Search results

You will probably need to create a filter based on the results of your combo boxes and you can either pass it to your report when you DoCmd.OpenReport or set it after the report is opened and then apply the filter. Without knowing the source for your combo boxes and what info they return, this...

I may need a little more info on your setup. How are you getting your values for dsuf & dpre? If text boxes then: Try assigning to variables first before opening your form. Also for future reference try not to use spaces in your (object names, Table names, field names, etc.) it makes it easier...

Dim stLinkCriteria As String stLinkCriteria = "[Prefix] = '" & Me.dpre & "'" & " And [Patent Type] = '" & Me.dsuf & "'" DoCmd.OpenForm "Dockets Data Input Form", , , stLinkCriteria Hope This Helps.

My mistake, try stLinkCriteria = "[Status ID]=" & Statid & " And [Action dato] >= '" & MyDate & "'"

MyDate = Date will work OK. and stLinkCriteria = "[Status ID]=" & Statid & ";[Action dato] >= '" & MyDate & "'"

I am assuming that when this runs it shows a single record. Change the first line to: MyDate = Date() stLinkCriteria is the filter that is automatically being applied when the form is opened, so it needs to change to the following (Also assuming MyDate is dimensioned as a string)...

See if this link will help? http://www.tek-tips.com/faqs.cfm?fid=4389

See if this link will help? http://www.tek-tips.com/faqs.cfm?fid=4389

See if this link will help? http://www.tek-tips.com/faqs.cfm?fid=4389

Is Approval a (True/False or Yes/No Field?) or Text Field? Is your form a single form, continuous form or datasheet?

In The After Update Property Put: If IsNull(Me.[coordinator name]) Then Me.Approval = "No" Else Me.Approval = "Yes" End If And also set the Default for the textbox = No If this is an input form. If the form is for editing put the same code as above into the On Open event and leave...

Try changing you code to this to add error handling to you subroutine. Private Sub Form_Timer() On Error Goto Err_Form_Timer If Me.txtCurrentAge.Value < 18 Then Me.txtCurrentAge.Visible = Not Me.txtCurrentAge.Visible Else Me.txtCurrentAge.Visible = True End If Exit_Form_Timer: Exit Sub...

If your form is bound to a table or query then, In the On Click property of your command button, after the (VB) command to save the record, insert the following line: DoCmd.GoToRecord , , acNewRec That will take you to a new blank record, ready for new input. And if it doesn't go to the...

Might be some required field. If so, at the beginning of the cancel routine try: If Me.Dirty Then Me.Undo End If The rest of your Cancel code

You might try changing the Border Style to "Dialog", "Thin" or "None".