Ciao a tutti e buon anno.
Ho un problema di queto tipo:
ho creato una maschera M_NuovaCommessa nella quale ho inserito una combo box RAG_SOC_SE, nella quale mi compare un elenco di nominativi da selezionare.
Ho provato ad impostare una routine con cui verifico se il nominativo che devo richiamare è presente nella combo.
Se non presente, mi esce una message box YesNo per cui, se annullo mi torna sulla combo, se confermo mi apre una maschera M_Anagrafica2 nella quale posso inserire il nuovo nominativo.
Il richiamo della maschera funziona, però la message box YesNo mi compare due volte e non capisco il perchè…
Premetto che sono alle primissime armi e sono molto ignorante in materia, per cui vorrei chiedere il vostro gentilissimo aiuto.
La routine che ho creato è questa:
Private Sub RAG_SOC_SE_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
Dim intRisposta As Integer
intRisposta = MsgBox(NewData & " non esiste come Cliente. Vuoi inserirlo?", vbYesNo)
If intRisposta = vbYes Then
DoCmd.OpenForm "M_anagrafica2", , , , , , NewData
End If
End Sub
Grazie mille in anticipo.