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
| ' Début de la requête Ajout
MonSQL = "INSERT INTO [T-Fournisseur] (Fournisseur, Pays, Adresse, Tel, [Site Web]) VALUES ("
' Valeur pour champ Fournisseur
' f!NomFournisseur n'est jamais Null
MonSQL = MonSQL & "'" & Replace(f!NomFournisseur, "'", "''") & "'"
' Valeur pour champ Pays
If Not IsNull(f!Pays) Then
MonSQL = MonSQL & ", '" & Replace(f!Pays, "'", "''") & "'"
Else
MonSQL = MonSQL & ", Null"
End If
' Valeur pour champ Adresse
If Not IsNull(f!Adresse) Then
MonSQL = MonSQL & ", '" & Replace(f!Adresse, "'", "''") & "'"
Else
MonSQL = MonSQL & ", Null"
End If
' Valeur pour champ Tel
If Not IsNull(f!Tel) Then
MonSQL = MonSQL & ", '" & Replace(f!Tel, "'", "''") & "'"
Else
MonSQL = MonSQL & ", Null"
End If
' Valeur pour champ [Site Web]
If Not IsNull(f!Web) Then
MonSQL = MonSQL & ", '" & Replace(f!Web, "'", "''") & "'"
Else
MonSQL = MonSQL & ", Null"
End If
' Fin de la requête Ajout. On ferme la parenthèse de VALUES
MonSQL = MonSQL & ")" |
Partager