Search results for query: *

Yes, Much faster!

Andy, Very smooth, thank you for your help. Acce45

...MAIN TABLES\DateCompareFORTEST.accdb") Set dbs = DBEngine.OpenDatabase(rRemoteDB) For Each tdf In dbs.TableDefs With tdf If .Name Like "MSys*" Or .Name Like "~*" Then Else Dim rAccount As String rAccount = .Name Dim objAccess As Access.Application Set objAccess = New Access.Application...

...= New Access.Application objAccess.OpenCurrentDatabase rRemoteDB On Error Resume Next Me.txtAccount = rAccount Me.CtAccount = objAccess.DCount("*", rAccount) On Error GoTo 0 On Error Resume Next Me.txtCategory = rCategory Me.CtCategory = objAccess.DCount("*", rCategory) On Error GoTo 0 On...

Andy, Thank you for taking time to help, but neither option worked. Neither option brought in anything (Tables nor Row Counts) from the Remote Database. Accel45

...Me![List40].RowSource = "SELECT [Name] FROM MSysObjects IN '" & rRemoteDB & "'" _ & " WHERE [Type]=1 AND NOT ([Name] Like '~*' OR [Name] Like 'MSys*') ORDER BY 1" What I would like to do is add a second column to the Listbox that contains a count of the Rows In each of the Remote Database...

Thank you dhookom, that worked great.

...within "Description". I then use the DSearch result to look up the appropriate Category in a separate table. DSearch: IIf([Description] Like "*Record*","Record",Null) & IIf([Description] Like "*Security*","Security",Null) & IIf([Description] Like "*Deposit*","Deposit",Null) &...

That did the trick, Thank you for your help.

...MVP. SELECT MSysObjects.[Name] FROM MSysObjects IN 'C:\MyFolder\MyFile.mdb' WHERE (MSysObjects.[Type] = 1) AND NOT ((MSysObjects.[Name] Like "~*") OR (MSysObjects.[Name] Like "MSys*")) ORDER BY MSysObjects.[Name]; I’m using the code as the Row Source for a combo box on a MS Access form: I...

Work great, Thank you strongm

BACKGROUND: I find myself creating help message boxes frequently so I put together a DB to help with creating the string for the msgbox. I enter the steps or instructions into a continuous form: How To Eat A Banana First, Remove the Peel Second, Open Mouth Third, Shove Banana in Mouth The...

Works fine dhookom. Thank you. And Thank you to Andrzejek. On question, when running the code stops when a note contains a ' or - or some other non letter characters. Not that big of a deal as the error message identifies the word containing the character. Thanks again, for saving me a lot of...

My example above shows three notes: ** some text that is the note ** some text that is the second note ** some text that is the third note I did not try your suggestion as I did not know how to complete the code to insert aryTemp(i) into table. btw thank you for helping me with this.

The actual text is confidential. What I provided above is how the text is formatted in the text file.

Using this thread to illustrate content of the text file. I have three notes here but the actual file has hundreds of notes: --- ** I have a TXT file containing hundreds of "notes". The TXT file does not have column headings. Some of the notes are short some are long. The only consistent...

...The TXT file does not have column headings. Some of the notes are short some are long. The only consistent pattern is that each note begins with “**”. I would like to import each “note” into a separate record with a table. I have tried using import wizard but the wizard wants to import each...

That solved the problem. Thank you DHOOKOM

Additionally, I am using a Listbox to select the search criteria. ListBox ------- Visible ........ Yes Enabled ........ Yes Multi Select ... Simple Tag ............ Where=tblDocs.Payee,String,[forms]![frmFilter4]![OpPayee]

...quotes as suggested. With the change I get a a Syntax error if there is an apostrophe and I get a Syntax error if there is not an apostrophe. '*********************** '* Save Where Clause * '*********************** 'BuildWhere = strWhere BuildWhere = Replace(strWhere, "'", "'")...