Alhakeem1977
Registered User.
- Local time
- Today, 13:56
- Joined
- Jun 24, 2017
- Messages
- 308
Hi All,
I have got two fields in a form one called [AccountNo](ComboBox) and the other one called [ActualAC](Text) I want to move the typed data from AccountNo to AcrualAC field if the value typed not in the list of the Combobox.
How can I achieve this? Please find my code below:
Thanks in advance!
I have got two fields in a form one called [AccountNo](ComboBox) and the other one called [ActualAC](Text) I want to move the typed data from AccountNo to AcrualAC field if the value typed not in the list of the Combobox.
How can I achieve this? Please find my code below:
Code:
Private Sub AccountNo_NotInList(NewData As String, Response As Integer)
On Error Resume Next
DoCmd.Beep
If MsgBox("Sorry, file not received !" & vbCrLf & _
"* Please provide the Actual A/C # in the field you will be provided. *" _
, vbCritical, "A/C Not Listed") = vbCritical Then
Response = acDataErrContinue
Else
Response = acDataErrContinue
End If
Me.AccountNo = 4589
Me.ActualAC.Visible = True
Me.ActualAC.SetFocus
End Sub
Thanks in advance!
Last edited: