Code:
ElseIf IsNull(DLookup("NoFacture", "TblRecomPaiementDet", "[NoFacture]= '" & Me.NoFacture & "'")) Then Dim db As DAO.Database Dim rst As DAO.Recordset On Error GoTo Err_RP_Click DoCmd.OpenForm "FrmRecomPaiement"
ElseIf IsNull(DLookup("NoFacture", "TblRecomPaiementDet", "[NoFacture]= '" & Me.NoFacture & "'")) Then Dim db As DAO.Database Dim rst As DAO.Recordset On Error GoTo Err_RP_Click DoCmd.OpenForm "FrmRecomPaiement"
Private Sub RP_Click() If IsNull(DLookup("NoRecomPaiem", "TblRecomPaiementDet", "[NoRecomPaiem]="
Private Sub RP_Click() If DLookup("NoRecomPaiem", "TblRecomPaiementDet", "[NoRecomPaiem]=" & Me.NoRecomPaiem) Is Null Then DoCmd.OpenForm "FrmRecomPaiement", , , , acFormAdd Forms!FrmRecomPaiement!NoRecomPaiem = Me!NoRecomPaiem Forms!FrmRecomPaiement!DateRecom = Me!DateRecomPaiem Forms!FrmRecomPaiement!NoFacture
Private Sub RP_Click() If DLookup("NoRecomPaiem", "TblRecomPaiementDet", "TblRecomPaiementDet.NoRecomPaiem='" & Me.NoRecomPaiem & "'") Is Null Then DoCmd.OpenForm "FrmRecomPaiement", , , , acFormAdd Forms!FrmRecomPaiement!NoRecomPaiem
Leave a comment: