Search results

Fuga, replace the separator ; in your formula with ,

Hi, first some remarks: 1. when you declare multiple variables on one line, you've to give them all the type, like: Dim i As Integer, j As integer. When you declare: Dim i, j As Integer: i would be a variant and not an integer. 2. Why do you use a workspace? You set it and close it, but that's...

Glad to help you :)

Glad it works! I'd think the table you imported has always the same name, so you can bound your form to it or use: =DLookUp("Field"; "TableName"; "Criteria")

Dave, I looked at it. It works in that way, but I attached a modified version and I'll think this works quicker, because you don't have to create an ExcelObject Greetz, Bert

I'm sorry, as ObjectType you must select 'Table', but Helps tells me it work with Exporting a query, so I'm not sure it will work with Importing. You can have a look at "TransferDatabase" in Help

Ok, I didn't see directly that is was in a numeric field. Than it gives more problems, because of the Notation (ie #,##0.00), so sometimes a part of the field is selected... I use it in Access 2002. Can you attach a copy/extraction of the db with the problem, then I'll have a look at it

Hi, In a macro, you can do it with TransferDatabase. That action creates in your database a table with the query-data, which table you can delete after using it. You can also let the table stay, because next time you run TransferDatabase, this table will be overwritten. See Help for more info...

From where's that code running? Is it from the form "Bid - Master Form" or not? If not, you may have to select the form first with Forms![Bid - Master Form].Setfocus

Hi, Maybe this?Function CallQuery() Dim wrk As DAO.Workspace Dim dbs As DAO.Database Dim rst As DAO.Recordset Set wrk = CreateWorkspace("", "admin", "") Set dbs = wrk.OpenDatabase("C:\MyDatabase.mdb") Set rst = dbs.OpenRecordset("QueryInMyDatabase") Do Until rst.EOF...

No, you can run it from a module. Put it in a public sub or function and call that from your forms' code

While you was doing, I did something like that :D Private Sub Report_Open(Cancel As Integer) On Error Resume Next Dim ctl As Control Dim var As Variant Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset(Me.RecordSource) For Each ctl In Me.Controls var =...

Oh, now I read the help for this topic. This property can only be changed in designmode of the form... DoCmd.OpenForm "MyForm", acDesign Forms!MyForm!lstFOAP.MultiSelect = 2 DoCmd.OpenForm "MyForm", acNormal

You assign different recordsources to the report (you're speaking about different tables, how's that?) If Yes, how do you do that?

Hi, You may have set Word as your default E-maileditor (this can be set in the Options of Outlook), so that'll be the reason it 'looks like' Word... For that question about Saving: you must delete the line "EmailApp.Quit" from your code, because your code then tries to close the preview also...

Can you attach a copy of the database? It must work in the way Fuga declared...

Ok, How do you change the recordsource of the report? At that time you can check (or know) which fields are in it and you can set the controlsource to a zero-lenth string.

Keep in mind that you also can leave the 'controlsource'-property blank...

Hi, Gives it an error when the code not runs? Try this: Forms![Order entry]!Country.MultiSelect = 2

Oh I see we were here at the same time, Fornation :D :D In addition to your loop:Do Until Inputbox("Give value") <> "" MsgBox "You must give in a value!" Loop