marwakarim
Messages postés40Date d'inscriptionsamedi 27 mars 2010StatutMembreDernière intervention11 juin 2010
-
25 mai 2010 à 16:17
marwakarim
Messages postés40Date d'inscriptionsamedi 27 mars 2010StatutMembreDernière intervention11 juin 2010
-
25 mai 2010 à 20:25
salut je suis entrain de réaliser un projet de gestion de brouillage mon problème ce que j'ai former une table dossier ou je veux entrer des données mais j'ai déjà fait la form dossier et une data et j fait une bouton d'ajout mais le problème quand je click sur ajouter il m'affiche ce message Format de base de données
"c/users/hp/Desktop/gestion/anf.mdb no reconnu "
voila le code
Private Sub Command3_Click()
Dim Q As String
N = Txtlicence(0).Text
Q "Select * from Dossier where N° de licence '" & Replace(N, "'", "''") & " ' "
Data.DatabaseName = App.Path & "\anf.mdb"
Data.RecordSource = Q
Data.Refresh
If Data.Recordset.NoMatch = False Then
MsgBox "Le N° de licence existe déjà !", vbInformation, "Erreur"
Txtlicence(0).Text = ""
Txtlicence(0).SetFocus
Else
'--------------------------------------------------------------------
If Txtlicence(0) = "" Then
MsgBox "Veuillez renseigner les cellules vides. N°de licence et Date de plainte.", vbInformation, "Information"
Txtlicence(0).SetFocus
Else
With Data.Recordset
.AddNew
If Txtlicence(0) = "" Then
Data.Recordset.N°licence = Null
Else
Data.Recordset.N°licence = Txtlicence(0)
End If
If Txtplainte(1) = "" Then
Data.Recordset.Date plainte = Null
Else
Data.Recordset.Date plainte = Txtplainte(1)
End If
If Txtbande(3) = "" Then
Data.Recordset.Bande = Null
Else
Data.Recordset.Bande = Txtbande(3)
End If
If Txtbrouillé(1) = "" Then
Data.Recordset.Brouillé = Null
Else
Data.Recordset.Brouillé = Txtbrouillé(1)
End If
If Txtfreqbrouillage(2) = "" Then
Data.Recordset.Fréquence brouillage = Null
Else
Data.Recordset.Fréquence brouillage = Txtfreqbrouillage(2)
End If
If Txtsitebrouillage(4) = "" Then
Data.Recordset.Site brouillage = Null
Else
Data.Recordset.Site brouillage = Txtsitebrouillage(4)
End If
If Txtrappel(10) = "" Then
Data.Recordset.Date Rappel = Null
Else
Data.Recordset.Date Rappel = Txtrappel(10)
End If
.Update
MsgBox "L'ajout a été exécuté avec succès.", vbInformation, "Information"
End With
Txtlicence(0) = ""
Txtplainte(1) = ""
Txtbande(3) = ""
Txtbrouillé(3) = ""
Txtfreqbrouillage(2) = ""
Txtsitebrouillage(4) = ""
Txtrappel(10) = ""
Txtlicence(0).SetFocus
End If
End If
End Sub
Merci d'avance
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 25 mai 2010 à 18:39
Salut
Comme on le répète très souvent sur ce forum :
Quand le nom d'un champ comporte des espaces ou des caractères spéciaux (accents), il faut encadrer le nom du champ avec des crochets [ et ] :
De plus, à la fin de ta requète, tu termines avec
& " ' "
Si tu rajoutes un espace devant ce dernier ', l'espace fera partie de la donnée à rechercher !
N'ajoute pas d'espaces pour faire joli.
Q "Select * from Dossier where [ N° de licence<gras>] </gras>'" & Replace(N, "'", "''") & "' "
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)