Applying actions to another form than the one where the event occur ??

[tintin007]

Hi,

I'm trying to copy the texte I've freshly enter in a field into a specific field of an ADD CUSTOMER form... just to avoid my users to have to enter the info twice.

So my code is at this point:


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

On Error GoTo Err_NumClient_NotInList

Dim intAnswer As Integer

intAnswer = msgbox("Ce client n'existe pas! Voulez-vous l'ajouter?", vbYesNo + vbQuestion, "Client Innexistant&quot
If intAnswer = vbYes Then
DoCmd.RunCommand acCmdUndo
DoCmd.OpenForm "frm_AjoutClient", acNormal, , , acFormEdit, acDialog
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If

Exit_NumClient_NotInList:
Exit Sub

Err_NumClient_NotInList:
msgbox Err.Description
Resume Exit_NumClient_NotInList
End Sub


_______
What it is missing to achieve my objective???
Thank you very much


[sig][/sig]

 

[jagilman]

tintin007 here is how I have done it.

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


Dim strMessage As String
Dim dbs As Database
Dim rst As Recordset

strMessage = NewData & " was not in the list." & vbNewLine _
& "Do you want to add ' " & NewData & " ' to the list?"
If Confirm(strMessage) Then
'Open the Business Types table and add.
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("tblBusinessTypes&quot
With rst
.AddNew
!BusType = NewData
.Update
End With
Response = acDataErrAdded 'this requeries the list
Else
Response = acDataErrDisplay 'display the error
End If

End Sub
[sig]<p>John A. Gilman<br><a href=mailto:gms@uslink.net>gms@uslink.net</a><br>[/sig]