Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. chunter33

    Corrupt Database - 55,000 Records Lost

    Sorry, let me clarify. They aren't actually autoid's, just sequential Id's starting from 1 to uniquely identify records. Thanks for those links, I'll take a look at them.
  2. chunter33

    Corrupt Database - 55,000 Records Lost

    Are there any other alternatives that don't involve a corruption or devious users? After looking at the database in question, it's actaully a little more than 53k records that are missing - and it's all primarily from 1 table. If you follow the autoid column down, the "corrupted" database gets...
  3. chunter33

    Access 2010: Output VBA code using control buttons

    I've never used Access 2010, but in 2007 when you inser a button and the wizard comes up you can select "Form Operations" and it will generate code to perform simple tasks such as opening and closing forms. Is there an option like this when the Access 2010 wizard is displayed? I imagine that...
  4. chunter33

    Force Lower Case

    Whoops... forgot in the last post the line .Caption = "http://www." & LCase(Me.txtDomain.Value) Inside of MakeLink should also be changed to... .Caption = LCase(Me.txtDomain.Value) These forums should really have the ability to edit posts.
  5. chunter33

    Force Lower Case

    Ah, ignore my last post. I only read the first half of the OP and didn't see that you already tried that LOL! Maybe try this... On the OnEnter event of your text box... Private Sub txtDomain_Enter() 'Clear the text box txtDomain.text = "" End Sub Change your MakeLink to... Private Sub...
  6. chunter33

    Force Lower Case

    Can you not simply just do this? Private Sub MakeLink() With Me.lblHyperlink .Caption = "http://www." & LCase(Me.txtDomain.Value) .HyperlinkAddress = .Caption End With End Sub
  7. chunter33

    Corrupt Database - 55,000 Records Lost

    Hi there, shortly I will be investigating an issue regarding an Access 2007 database which is supposedly "corrupted", and some time last week it lost 55,000 records. The details of what went wrong and caused the corruption are very unspecific, all I know is that it happened at some point between...
  8. chunter33

    Microsoft Word Connecting To Access 2007 DB

    Hello, I was having a bit of trouble connecting to an access 2007 database. Before I get into the details, I'll give you a little background. I had a tool running off of Word in the old .doc format, and the code originally connected to an older access 97 database with the old mdb format. The...
  9. chunter33

    Locating/Debugging Slow Code

    Running in debug mode seems to be the easiest way to do things. So long as you have a general idea of where things are running slowly, simply set a break point, run code stop, set another breakpoint continue, determine if the block of code between the two breakpoints is running slowly and...
  10. chunter33

    Is there a way to speed up this line?

    Selecting only the fields I need sounds like a great idea. I can't try this at the moment as I'm not in the office but I'll surely give it a try at some point this week.
  11. chunter33

    Is there a way to speed up this line?

    Ah, I see why that wouldn't make sense. The snippet of code I put up there was the modified version, and not the original and the "tbl_task_table" part should be surrounded in quotes. Originally it was this: Me.RecordSource = "SELECT * FROM [" & curw_rs.name & "] where [Task ID] = " &...
  12. chunter33

    Clearing ControlSource Slows Down Code BigTime!

    I appologise if that last post made me sound a little full of myself, I'm actually fairly new to Access developement. But I'm 99.9% sure that the problem lies with dynamically modifying the control source. If somebody has another theory please inform me as to how I can confirm it.
  13. chunter33

    Is there a way to speed up this line?

    This might be a shot in the dark, but is there a way for me to speed up this snippet of code? Even a second would count, as this code gets called repeatedly. [code]Me.RecordSource = "SELECT * FROM [" & tbl_task_table & "] where [Task ID] = " & curw_rs.Fields(1).value & ";"[code] I tried to...
  14. chunter33

    Clearing ControlSource Slows Down Code BigTime!

    Though that would be possiblem, I don't think the network has anything to do with it. I'm not currently running this code off of a network for fear of modifying live data. For the time being I have a copy of the backend database on my local disk and I simply re-linked the tables as needed. The...
  15. chunter33

    Clearing ControlSource Slows Down Code BigTime!

    No it isn't. Like I said, looping through the controls and finding the ones I want wasn't the problem. The only problem was this: Text_control.controlsource = "" It's unbelievably slow. Please note, that the forms recordsource is a linked table. The recordsource of the form is contantly...
  16. chunter33

    Clearing ControlSource Slows Down Code BigTime!

    Hey there, I had a form in access 2007. I had recently upgraded it from 97 where it ran within seconds. Now when I run it it takes something like 20-30 seconds. I pinpointed one of the areas where code was running really slow. 'Unbinds all text and combo boxes from the work form Sub...
  17. chunter33

    Locating/Debugging Slow Code

    Hey there, I will soon be taking on a project regarding optimizing a series of Access databases to run with better performance. In Access 97 these databases ran queries and modules with no trouble at all, however, after upgrading to 2007 there's been a huge impact on speed. I was wondering if...
  18. chunter33

    Dropdown box/filter?

    In regards to the SQL Randy gave you, you need to remove the quotation mark next to the word SELECT. Like so: SELECT casenumber FROM OpenItems1WHERE casenumber = " & Me.ComboboxName
  19. chunter33

    Need help with Combo boxes

    In your optional combo box, have something like the following in your change event code: Private Sub Combo0_Change() If Combo0.Value = "Option 1" Then Combo2.RowSource = "SELECT EmpID FROM tbltimes;" End If End Sub You can modify that for some sort of case structure instead of just the single...
  20. chunter33

    Pulling records specific to a user

    Oh, by the way dhookom I misinterpreted the context of your last post. Ignore my earlier reply lol..

Part and Inventory Search

Back
Top