1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Private Sub aj_ok_Click()
''' Ajout propriété au composant '''
' Désactivation alerte ajout ligne '
DoCmd.SetWarnings False
' Variables '
Dim Vérif_Valeur As String
Dim RQ As String
Dim Retour As Boolean
Dim ID_Composant As Long
Dim Propriété As String
Dim Valeur As String
Dim Existe As Variant
' Hydratation '
ID_Composant = Me.ID_Composant.Value
Propriété = Nz(Me.aj_propriété.Value, "")
Valeur = Nz(Me.aj_valeur.Value, "")
If Not IsNull(Me.aj_propriété.Value) And Not Me.aj_propriété.Value = "" Then
' Vérification propriété inexistante '
Existe = DLookup("[Valeur]", "propriété_composant", "[ID_Composant]=" & ID_Composant & " AND [Propriété]='" & Propriété & "'")
If IsNull(Existe) Then
' Fabrication requête '
RQ = "INSERT INTO propriété_composant (ID_Composant, Propriété, Valeur) VALUES ( " & ID_Composant & " , '" & Propriété & "' , '" & Valeur & "' ) ;"
' Requête '
DoCmd.RunSQL (RQ)
Else
Vérif_Valeur = DLookup("[Valeur]", "propriété_composant", "[ID_Composant] = " & ID_Composant & " AND [Propriété] = '" & Propriété & "'")
Retour = MsgBox("La propriété " & Propriété & " existe déjà avec la valeur " & Vérif_Valeur & ".", vbInformation + vbOKOnly, "La propriété existe déjà")
End If
' Réactivation alertes '
DoCmd.SetWarnings True
' Vidage des champs '
Me.aj_propriété = ""
Me.aj_valeur = ""
' Mise à jour du formulaire '
Me.Recalc
End If
End Sub |
Partager