Search results

Hi, When you open the form with DoCmd.OpenForm, the last argument is "OpenArgs". Give here the name of the calling form as string, for example:DoCmd.OpenForm "CalledForm", , , , , , "CallingForm" Then in the UnLoad-event of the form you put:Private Sub Form_Unload(Cancel As Integer)...

Re: tab order Yes it is, look at the View-menu, Tab-order. Objects that can have a Tab-stop do also have a Tab-index property, look at the properties of the control. Try creating a Delete-query with the build-in query-designer, change to SQL-mode and then compare that code with that what you use...

Try to import al objects in a new database.

Hi Pascal, On what criteria do you want the columns to be located? In the attached document I don't see directly which columns (fields) you want to put on one line. I'd think to do it with a cross-tab-query, with three columns. Then you create a continuous form based on that query. For the...

As I conclude, this refers to this post: http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=53482

If you open the form from code then you can use: DoCmd.OpenForm "MyForm", , , , , acDialog then the code will wait until MyForm is closed

Hi, Give at the before last argument of DoCmd.OpenForm 'acDialog', and your code will stop running until you closed that form, ie: DoCmd.OpenForm "FormName", , , , , acDialog Is that what you mean? Else, try to explain more exactly and, if possible, post your code

Hi, Click in the gray zone, outside of the form (not on the backround of the form, or on the (very small) square at the left top of the form (in the edge of the rulers)

Why don't you use a subform in your current form with the individual payments? After updating the count of payments you can run an APPEND-query to ad the given count of records into the table and then you take a Requery on the subform te refresh it. When you do it so, everything is in one form...

You're right :( It has to be this: (single quote after the double quote after Me!Text1)Private Sub Commande72_Click() Dim strSQL As String strSQL = "INSERT INTO x ( descriptionprb ) SELECT '" & _ Me!Text1 & "' AS descriptionprb" DoCmd.RunSQL strSQL Exit Sub greets

Kupe, Try this:DoCmd.TransferDatabase acLink, "Microsoft Access", "tblNew", "T:\www.bemrosebooth.com\OnLine_Marketing\Link Building\Link Survey databases\" & strfilename & ".mdb", acTable, "tblFoison"you referred to "filename" instead of strfilename

Are you coming form Holland? :D :D

That looks really heavy :D Try this:Private Sub Commande72_Click() Dim strSQL As String strSQL = "INSERT INTO x ( descriptionprb ) SELECT '" & _ Me!Text1 & " AS descriptionprb" DoCmd.RunSQL strSQL Exit Sub

You have to use u Block-font, that you can find here: http://www.mvps.org/access/forms/frm0055.htm

I suggest you've on your main form a field (textbox or combobox) named like 'txtCaseno' Then when you run it form VBA:DoCmd.RunSQL "INSERT INTO tblMain ( QuestionID, Caseno ) SELECT tblQuestions.QuestionID, " & Me!txtCaseno & " FROM tblQuestions"(Didn't test it yet)

Change this:rs.FindFirst ("[Site] like '" & txtAllKey & "*'")into this:rs.FindFirst ("[Site] like '*" & txtAllKey & "*'") The story about DAO is amazing me in this case, because rs is declared as DAO.Recordset, so always DAO is used undependend of the position in References? Or am I missing...

Sorry 's mine :o after "DoCmd.OpenReport "Planning Report" " add: , acViewPreview

Hi, Look at the underlined paragraph at this page: http://www.mvps.org/access/modules/mdl0037.htm

Create an additional textbox on your form, named txtAllKey Here the user can see what (s)he was typing.

Try this:Private Sub Command12_Click() On Error GoTo Err_Command12_Click Dim stDocName As String DoCmd.OpenReport "Planning Report" DoCmd.PrintOut acPrintAll, , , , 2 DoCmd.Close acReport, "Planning Report", acSaveNo Exit_Command12_Click: Exit Sub Err_Command12_Click...