Removed the Exit Do.
Closed the second Loop. (Thanks for that, didn't see it)
Here's the corrected code:
DoCmd.SetWarnings False
Dim FirstDate, EndDate As Date, RecordNo As Long, ChangeType As String
FirstDate = Me.Date1
EndDate = Me.Date2
RecordNo = 1
ChangeType = cboTipoCambio.Value
Do...
I'm trying to insert records in a table with a range of dates. I've already did that with one employee on this sub.
DoCmd.SetWarnings False
Dim FirstDate, EndDate As Date, RecordNo As Long, ChangeType As String
FirstDate = Me.Date1
EndDate = Me.Date2
RecordNo = 1
ChangeType =...
I'm trying to return the value of a custom menu item from its parameter property and copy it to an unbound text field in a form. I've tried the following code with no success.
Function Menu1()
Me.txtMenuValue = Application.CommandBars("mnuCustom").Controls(1).Parameter
End Function
I've...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.