Discussion :

[flo31200]

Bonjour je débute en SQL et je rencontre un problème lors de l'exécution d'une requete. Le message d'erreur 3073 empeche l'ajout dans ma table.
Voila le code que j'ai fait .... Je ne comprends pas .

_____________________________________________
Private Sub BP_Valider_Click()
chemin = "C:\Users\TO87688\Desktop\Base.accdb"
Set base = OpenDatabase(chemin, True, True)

If IsNull(ES_TO) Or IsNull(ES_nom) Or IsNull(ES_Poste) Or IsNull(ES_Prenom) Then
MsgBox ("Champ(s) non saisi(s)")
Else
If Len(ES_TO) < 3 Or Len(ES_TO) > 6 Then
MsgBox ("Le TO doit être écrit en chiffres (de 100 à 999999)")
Else
req = "SELECT * FROM effectifs WHERE TO = " + CStr(ES_TO)
Set rs = base.OpenRecordset(req, dbOpenDynaset)
If rs.EOF Then
'insertion nouveau personnel
req = "INSERT INTO effectifs (TO, Nom, Prénom, Poste) VALUES (' (ES_TO) ',' [ES_nom] ' ,' [ES_Prenom] ',' [ES_Poste] ');"
base.Execute req
Else
rs.Edit
rs.Update
End If
rs.Close


End If
End If

DoCmd.Close acForm, "3_AET_NouveauPersonnel"
End Sub
_________________________________________________


Merci d'avance pour votre aide

Florian

[jimbolion]

flo31200,

La méthode d'ouverture comme nous l'avons vu sur le chat :

https://msdn.microsoft.com/en-us/lib...ffice.12).aspx

En passant ton troisième argument à ReadOnly tu l'as mise dans un état read only (lecture seule) qui interdit toute insertion.

Pense à mettre

Jimbolion