C
Cmenkedi
Hello,
This was working fine until today.
I have a form with a subform. When I enter in the information on the form, I
have an "Add" button that moves the information to the subform. Today when I
tried to use it, it is giving me a runtime error 2105 and highlights my docmd
line. Please help me figure out what the problem is.
Private Sub cmdAdd_Click()
Me.subForm.SetFocus
DoCmd.GoToRecord , , acNewRec
Form_frmInventoryTransaction.TransactionDate = Me.txtDate
Form_frmInventoryTransaction.Received = Me.txtReceived
Form_frmInventoryTransaction.AdjustedIN = Me.txtAdjustedIN
Form_frmInventoryTransaction.AdjustedOUT = Me.txtAdjustedOUT
Form_frmInventoryTransaction.Comment = Me.memoComment
Me.Refresh
Me.txtReceived = 0
Me.txtAdjustedIN = 0
Me.txtAdjustedOUT = 0
Me.memoComment = ""
Me.txtReceived.SetFocus
If Me.RecordsetClone.RecordCount > 1 Then
DoCmd.GoToRecord , , acNext
End If
End Sub
Thank you
This was working fine until today.
I have a form with a subform. When I enter in the information on the form, I
have an "Add" button that moves the information to the subform. Today when I
tried to use it, it is giving me a runtime error 2105 and highlights my docmd
line. Please help me figure out what the problem is.
Private Sub cmdAdd_Click()
Me.subForm.SetFocus
DoCmd.GoToRecord , , acNewRec
Form_frmInventoryTransaction.TransactionDate = Me.txtDate
Form_frmInventoryTransaction.Received = Me.txtReceived
Form_frmInventoryTransaction.AdjustedIN = Me.txtAdjustedIN
Form_frmInventoryTransaction.AdjustedOUT = Me.txtAdjustedOUT
Form_frmInventoryTransaction.Comment = Me.memoComment
Me.Refresh
Me.txtReceived = 0
Me.txtAdjustedIN = 0
Me.txtAdjustedOUT = 0
Me.memoComment = ""
Me.txtReceived.SetFocus
If Me.RecordsetClone.RecordCount > 1 Then
DoCmd.GoToRecord , , acNext
End If
End Sub
Thank you