Discussion :

[lucyole]

voila g une erreur d'executtion dans mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
 
Dim rep As Byte
Dim base As DAO.Database
Dim enregistrement As DAO.Recordset
 
Set base = Application.CurrentDb
 
Dim requete As String
requete = "SELECT NOMORGANISATEUR FROM ORGANISATEUR WHERE NOMORGANISATEUR = " & Forms![MCT1]!rechercher & " ; "
 
Set enregistrement = base.OpenRecordset(requete)
 
If (Not enregistrement.EOF) Then
MsgBox "rien "
 
End Sub

L'erreur produite viens de la ligne Set enregistrement !

Merci de votre aide!!
@:

[Faw]

Voilà de quoi faire le tour de la question
http://warin.developpez.com/access/dao/
Autrement tu vas continuer à t'empétrer dans la syntaxe dao.
n'hésite pas à faire des recherches.


edit: koike, c'est peut-être simplement le type du contrôle rechercher
qui pose problème. C'est du numérique?

[lucyole]

je les lu et relu
mais je comprend pas tellement le code de trouver un enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim strCritere as string
strCritere="NomClient LIKE " & chr(34) & "T*" & chr(34)
Me.Recordset.FindFirst strCritere
If Me.Recordset.NoMatch Then Msgbox "Aucun enregistrement n'a été trouvé"

mais ou mentionne tu le SELECT nomclient FROM tablclient where....
et ou ouvre tu ta connection ?
en fait, j'ai du mal a definir les syntaxe exacte
en php , tu dois d'abord te connecter au serveur puis a la base executer ta requettes et lire tes enregistrement dans un tableau mais la j'avoue que g du mal

[lucyole]

et le type de rechercher c'est STRING : c'est ma zone de saisie

[Faw]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT NOMORGANISATEUR FROM ORGANISATEUR WHERE NOMORGANISATEUR = '" & Forms![MCT1]!rechercher & "'"

et comme ça?

[lucyole]

heu
desolé mais ta zone de code est illisible

[Faw]

Tu as mis ça comment? comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 requete ="SELECT NOMORGANISATEUR FROM ORGANISATEUR WHERE NOMORGANISATEUR = '" & Forms![MCT1]!rechercher & "'"

[lucyole]

desolé mais g qu'une barre horizontale qui s'affiche sur ton message

[lucyole]

voici mon code exacte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub rechercher_AfterUpdate()
 
Dim strCritere As String
 
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
 
strCritere = "SELECT NOMORGANISATEUR FROM ORGANISATEUR WHERE NOMORGANISATEUR = '" & Forms![MCT1]!rechercher & "'"
 
 
While Not oRecordset.EOF
   oRecordset.MoveNext
Wend
 
Me.Recordset.FindFirst strCritere
 
If Me.Recordset.NoMatch Then
MsgBox "Aucun enregistrement n'a été trouvé"
End If
 
End Sub

et l'erreur d'execution est =>objet requis !!
ca veut dire quoi ?

[Faw]

Comprends pas, c'est lisible chez moi. Tu parles d'affichage du post c'est ça?
je recommence

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  requete ="SELECT NOMORGANISATEUR FROM ORGANISATEUR WHERE NOMORGANISATEUR = '" & Forms![MCT1]!rechercher & "'"

[lucyole]

ouai
mais t'inkiet en me debrouillant , j'ai pu arriver a le lire

mais g une erreur d'objet requis ?

[Faw]

Il ne reconnaît pas une de tes variables dao comme
tout à l'heure avec le recordset.
c'est ton code complet? il y a plu d'un problème...

[lucyole]

heu oui !
c'est mon code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub rechercher_AfterUpdate()
 
Dim strCritere As String
Dim oDb As DAO.Database
 
Set oDb = CurrentDb
strCritere = "SELECT NOMORGANISATEUR FROM ORGANISATEUR WHERE NOMORGANISATEUR = '" & Forms![MCT1]!rechercher & "'"
 
While Not oRecordset.EOF
   oRecordset.MoveNext
Wend
 
Me.Recordset.FindFirst strCritere
 
If Me.Recordset.NoMatch Then
MsgBox "Aucun enregistrement n'a été trouvé"
End If
 
End Sub

quel genre de probleme ! et peux te me les expliquer ??

désolé mais comme je les dis je suis vraiment debutante en access

[Faw]

Par exemple tu te sers d'attributs de recordset sans déclarer d'objet
recordset (While Not oRecordset.EOF).
Tu ne définis pas de curseur non plus à ton recordset. Comment veux-tu
faire un movenext dessus

inspire toi de ton tout premier code dans l'autre post, les déclaratives
et affectations étaient correctes.
Je ne saurais te conseiller le lien DAO que je t'ai donné plus haut.
@+