Move Typed value from field to another field

[Alhakeem1977]

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:

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!

 

[theDBguy]

Hi. How about something like this?

Private Sub AccountNo_NotInList(NewData As String, Response As Integer)

DoCmd.Beep
MsgBox "Sorry, file not received !" & vbCrLf & _
    "* Please provide the Actual A/C # in the field you will be provided. *" _ 
    , vbCritical, "A/C Not Listed"
Response = acDataErrContinue
Me.ActualAC.Visible = True
Me.ActualAC = NewData

End Sub

 

[arnelgp]

Private Sub AccountNo_NotInList(NewData As String, Response As Integer)

DoCmd.Beep
MsgBox "Sorry, file not received !" & vbCrLf & _
    "* Please provide the Actual A/C # in the field you will be provided. *" _ 
    , vbCritical, "A/C Not Listed"
Response = acDataErrContinue
Me.AccountNo.Undo
With Me.ActualAC
    .Visible = True
    .Value = NewData
    .SetFocus
End With
End Sub

 

[CJ_London]

is AcrualAC field supposed to be the [ActualAC] control?

 

[Alhakeem1977]

Hi. How about something like this?

Private Sub AccountNo_NotInList(NewData As String, Response As Integer)

DoCmd.Beep
MsgBox "Sorry, file not received !" & vbCrLf & _
    "* Please provide the Actual A/C # in the field you will be provided. *" _ 
    , vbCritical, "A/C Not Listed"
Response = acDataErrContinue
Me.ActualAC.Visible = True
Me.ActualAC = NewData

End Sub

It's working perfectly.
Thank you so much!

 

[theDBguy]

It's working perfectly.
Thank you so much!

Hi. You're welcome. Glad we could assist. Good luck with your project.

 

[Alhakeem1977]

Private Sub AccountNo_NotInList(NewData As String, Response As Integer)

DoCmd.Beep
MsgBox "Sorry, file not received !" & vbCrLf & _
    "* Please provide the Actual A/C # in the field you will be provided. *" _ 
    , vbCritical, "A/C Not Listed"
Response = acDataErrContinue
Me.AccountNo.Undo
With Me.ActualAC
    .Visible = True
    .Value = NewData
    .SetFocus
End With
End Sub

It's working perfectly getting the same result as theDBguy provided.
Thank you so much both of you!

 

[Alhakeem1977]

is AcrualAC field supposed to be the [ActualAC] control?

I got the solution.
Thanks for your response.