Search results for query: *

Duane, Code works, thanks, however it remains slow like my original code. I might try to develop a if or case in which it will skip this code if there are no records to delete, to hopefully speed things up a bit when I sync my tables. Cheers,

That worked Duane, thanks. Now how could I take those selected records and delete them? Thanks, Mike

...which may have failed lol.. The suggested select statement seems to be giving me problems when i try to run it: sqlstr = "select Tracker.*" & _ " from Tracker" & _ " where tracker.cf not in (select cf.cf from cf)" CurrentDb.Execute sqlstr I'm receiving an error 3065 cannot...

By a long time, only about 15 seconds lol but I would still prefer to speed it up if possible or at least find the most efficient way to select and delete the records. I have my original query that selects the data to be deleted, however i cant seem to figure out how to reference that query...

I moved to this code instead: sqlstr = "delete tracker.*, tracker.cf" & _ " from Tracker" & _ " where ((tracker.cf) not in (select cf.cf from cf))" CurrentDb.Execute sqlstr Is that an unmatched query as well? I'm not overly familiar with that term. As well, why would i want to...

PK in the Tracker table is CF. PK in the CF table is an unlisted field called ID. Thanks for the help

...is where i'm running into the problems. I've come up with a simple delete statement, however it take a very long time to run: sqlstr = "delete * " & _ " from Tracker" & _ " where not exists (select * from cf where Tracker.cf = cf.cf)" 'CurrentDb.Execute sqlstr Is there a...

lameid's idea worked perfectly! Thanks for the help all! Here is the changed that changed resulting from adding the subform. Forms![CFTO - Search Publications].subCFTOSearch.Form.Filter = SCriteria Forms![CFTO - Search Publications].subCFTOSearch.Form.FilterOn = True 'Statement to place the...

The subform idea is a good idea, I will try that and get to you with hopefully some result haha. Thanks, Mike.

Thanks for the example Andy. I've been playing around with my original code more to try and figure this out. I have narrowed down exactly which peice of code isnt allowing spaces. Me.FilterOn = True 'Statement to place the cursor correctly in the Search Description textbox...

Do you have a suggestion or an example about how I might go about this? Thanks,

...to create filter based on Search Field drop down menu and Search Description text box. SCriteria = "(CFTO.[" & Me!cboSearch & "] LIKE '*" & txtSearchDescription.Text & "*')" ElseIf cmdModeSwitch.Tag = "Pubs History" Then 'Statement to create filter based on Search Field drop down menu...

Thanks for the idea, it was worked out well so far.

Good Morning, I am attempting to store a file or folder location in a text field from a dialog box. I would like the ability to choose lets say a .pdf file and store the file path in a text field or just choose a folder and store that folders file path in a text field. Here is my code so far...

Haha I never claimed to be a good VBA programmer but this helped alot! With the dir function, all problems have been fixed. Thanks for the help!

Good Morning All, I have an error handling problem here that I can't quite wrap my head around. What my code does so far; When the cmdView button is clicked, I have used various fields to compile a string which is used to open a pdf file directly in the main Electronic Pub directory. Error case...

Haha about 1 minute after my last post I noticed I didn't put the any [] around my field(s) to compensate for the spaces..which has now fixed all my problems...lol Thanks for the help though!

The date field is called "Version Effective Date". Not to sure what you mean by control lol.. So setup another section of code that enables when "Version Effective Date" is choosen from the drop down? Thanks,

Me.Filter = SCriteria Produces the error. Thanks,

...perform a "search while typing": Private Sub txtSearchDescription_Change() Dim SCriteria As String SCriteria = "(CFTO." & Me!cboSearch & " LIKE '*" & Me!txtSearchDescription.Text & "*')" Me.Filter = SCriteria Me.FilterOn = True Me.txtSearchDescription.SelStart =...