[Access]Problème avec une condition If Fermé

Question

Bonjour,

J'ai un petit problème en Access. Voila j'ai réalisé un formulaire afin d'enregistrer un nouveau centre qui est définit par les propriétés
Nom_Centre
Groupement
Statut
Type_Centre
Effectif_Total
Effectif_Volontaire
Effectif_Garde
Effecti_Abstrainte
Num_Categorie

Le formulaire permet de selectionner un groupement parmis la liste des groupement disponible de meme pour le statut ainsi que le Type de centre. Néanmoins si le groupent n'est pas dans la liste, j'ai crée un champ à coté ou on peut écrire son groupement précis. Et c'est la qu'il ya un problème je vous envois mon code VB

Private Sub ValiderNewCentre_Click()
Dim BD As Database
Dim req As String




Set BD = CurrentDb

req = "insert into Centre (Nom_Centre, Groupement, Statut, Type_Centre, Effectif_Total, Effectif_Volontaire, Effectif_Garde, Effectif_Abstrainte, Num_Categorie) values("
Nom_Centre.SetFocus
req = req & "'" & Nom_Centre.Text & "'" & ", "
Groupement.SetFocus
req = req & "'" & Groupement.Value & "'" & ", "
If (Groupement.Value = "") Then
NewGroupement.SetFocus
req = req & "'" & NewGroupement.Text & "'" & ", "
End If
Statut.SetFocus
req = req & "'" & Statut.Value & "'" & ", "
If (Statut.Value = "") Then
NewStatut.SetFocus
req = req & "'" & NewStatut.Text & "'" & ", "
End If
Type_Centre.SetFocus
req = req & "'" & Type_Centre.Value & "'" & ", "
If (Type_Centre.Value = "") Then
NewType_Centre.SetFocus
req = req & "'" & NewType_Centre.Text & "'" & ", "
End If
Effectif_Total.SetFocus
req = req & "'" & Effectif_Total.Text & "'" & ", "
Effectif_Volontaire.SetFocus
req = req & "'" & Effectif_Volontaire.Text & "'" & ", "
Effectif_Garde.SetFocus
req = req & "'" & Effectif_Garde.Text & "'" & ", "
Effectif_Abstrainte.SetFocus
req = req & "'" & Effectif_Abstrainte.Text & "'" & ", "
Num_Categorie.SetFocus
req = req & "'" & Num_Categorie.Value & "'" & "); "


BD.Execute req




DoCmd.Close
DoCmd.OpenForm ("FormulairePrincipaleConsultationTtLesCentres")
End Sub

Si quelqu'un pouvait me dire ce qui ne va pas ca me rendrait très heureux, et mon clavier serait heureux de ne plus se manger des coups de poings ravageurs ....... ^^

blux · Answer

Salut,si tu commençais pas nous dire OU est l'erreur (avec son type)...On pourrait avancer plus vite... ;-)

Akabane · Answer

Le problème c'est justement qu'il n'y a pas d'erreur. C'est juste que dans la base ya rien d'ecrit dans les propriétés groupement statut et type_centre si je remplis le champ manuellement. Par contre si je choisis dans la liste alors la oui ca remplit comme il faut ..

Cordialement

blux · Answer

Dans 99% des cas, c'est la syntaxe du SQL qui est incorrecte...

Colle un msgbox avant l'exécution de la requête et tu verras si elle est formatée correctement.

Erreurs courantes :

- des doubles-quotes (") dans une valeur qui interfèrent avec le séparateur utilisé pour construire le texte de la requête

- des valeurs numériques entre quotes (Num_Categorie.Value ?)

- oubli d'un espace

Akabane · Answer

Bon j'ai résolu mon problème en modifiant l'ordre de mes tests.

Private Sub ValiderNewCentre_Click()

Dim BD As Database
Dim req As String
Dim Cancel As Integer


Set BD = CurrentDb

req = "insert into Centre (Nom_Centre, Groupement, Statut, Type_Centre, Effectif_Total, Effectif_Volontaire, Effectif_Garde, Effectif_Abstrainte, Num_Categorie) values("
Nom_Centre.SetFocus
req = req & "'" & Nom_Centre.Text & "'" & ", "

NewGroupement.SetFocus
If (NewGroupement.Text = "") Then
Groupement.SetFocus
req = req & "'" & Groupement.Value & "'" & ", "
Else: req = req & "'" & NewGroupement.Text & "'" & ", "
End If

NewStatut.SetFocus
If (NewStatut.Text = "") Then
Statut.SetFocus
req = req & "'" & Statut.Value & "'" & ", "
Else: req = req & "'" & NewStatut.Text & "'" & ", "
End If

NewType_Centre.SetFocus
If (NewType_Centre.Text = "") Then
Type_Centre.SetFocus
req = req & "'" & Type_Centre.Value & "'" & ", "
Else: req = req & "'" & NewType_Centre.Text & "'" & ", "
End If

Effectif_Total.SetFocus
req = req & "'" & Effectif_Total.Text & "'" & ", "
Effectif_Volontaire.SetFocus
req = req & "'" & Effectif_Volontaire.Text & "'" & ", "
Effectif_Garde.SetFocus
req = req & "'" & Effectif_Garde.Text & "'" & ", "
Effectif_Abstrainte.SetFocus
req = req & "'" & Effectif_Abstrainte.Text & "'" & ", "
Num_Categorie.SetFocus
req = req & "'" & Num_Categorie.Value & "'" & "); "


  If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
Else: BD.Execute req
  End If


DoCmd.Close
DoCmd.OpenForm ("FormulairePrincipaleConsultationTtLesCentres")
End Sub

[Access]Problème avec une condition If

4 réponses

Discussions similaires