Discussion :

[aciri]

bonjour

mon probleme est simple,mais pourriez vous me mettre sur une piste?
je travaille sur une base ac-2003
j'ai un formulaire appelé F ,qui contient deux choses:
1) une liste deroulante appelé L (ayant comme source un seul champ d'une table appelé T ,et ce champ contient la liste des nom de fournisseurs )
2)et un sous formulaire appelé SF (ayant comme source la table précité appeléT)

QUESTION: je souhaites que quand je choisis un enregistrement de la liste L alors : un enregistrement du sous formulaire SF soit activé "mis en surbrillance"
c'est à dire j'atteins la ligne de l'enregistrement qui contient le nom du fournisseur.

pourriez vous m'indiquer un code evenementiel pour aprésMAJ de la liste deroulante L.
sinon pourriez vous m'indiquer une piste de recherche .mais je suis debutant en vb . je ne sais pas comment utiliser Find-recordsetclone-dao bookmark-signet bookmark. si cela constituerait une piste valable et merci cordialement , car je suis a bout de soufle en tatonnant comme un aveugle

[nico84]

Bonjour,

Il faudrait essayer un truc du genre :

Code :

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

1
2
3
4
Form_MaSousFenetre.Recordset.MoveFirst
While Form_MaSousFenetre.Recordset!Monchamp<>MaValeur
  Form_MaSousFenetre.Recordset.MoveNext
Wend

Ca marche bien chez moi par contre je ne sais pas comment tester la fin de fichier si qqn a la réponse ça m'intéresse

Un peu plus joli :

Code :

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

1
2
3
4
5
Form_stock_histo.Recordset.MoveFirst
For i = 1 To Form_stock_histo.Recordset.RecordCount
  If Form_stock_histo.Recordset!motif = MonMotif Then Exit For
  Form_stock_histo.Recordset.MoveNext
Next

[Tofalu]

Bonjour,

Il faudrait essayer un truc du genre :

Code :

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

1
2
3
4
Form_MaSousFenetre.Recordset.MoveFirst
While Form_MaSousFenetre.Recordset!Monchamp<>MaValeur
  Form_MaSousFenetre.Recordset.MoveNext
Wend

Ca marche bien chez moi par contre je ne sais pas comment tester la fin de fichier si qqn a la réponse ça m'intéresse

C'est vraiment très laid La méthode Find existe autant s'en servir non ?

http://warin.developpez.com/access/d...artie_5#L5.3.2

[aciri]

C'est vraiment très laid La méthode Find existe autant s'en servir non ?

http://warin.developpez.com/access/d...artie_5#L5.3.2

merci Monsieur Tofalu
j'ai utilisé la methode Find,mais en utilisant le code suivant, un message d'erreure m'indique que :

la variable objet ou la variable du bloc with est non definie

et cela concerne la ligne -->

Code :

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

FindFirst strcritere

je souhaites vivement que l'on me suggère ce qui ne va pas car je n'avancerai plus sans votre aimable aide

dans ce code j'ai testé si j'obtiendrait un resultat ,avec comme variable une requete SQL:

Code SQL :

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

strcritere= " nom fournisseur Like' ".....

j'ai omis pour le moment la liste deroulante L

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
23
24
25
26
27
28
Option Compare Database
Dim strcritere As String
Dim rst As recordset
 
Private Sub Form_Current()
Set rst = Me.recordset
End Sub
 
Private Sub sf_Enter()
Dim rst As recordset
Dim strcritere As String
Set rst = Me.recordset
strcritere = " nom fourniseur Like'" & Chr(34) & "PARA*" & Chr(34)
With rst
.FindFirst strcritere
    If NoMatch Then
    MsgBox "client non trouvé"
    Else
       Do While True
       MsgBox rst("nom fournisseur")
       .FindNext strcritere
       If NoMatch Then Exit Do
       Loop
    End If
End With
End Sub
'à la ligne FindFirst strcritere ,le message d'erreure m'indique que :
'(variable objet ou variable Bloc With non definit).

je penses que c'est la variable rst représentant le recordset qui n'est pas definit pourriez vous me guider vers une issue , et merci cordialement

[pier.antoine]

Bonjour

Je me demande si la construction de votre chaine strcritere n'est pas erronée.

Peut-être avec des crochets, puisque le nom de votre champ est à espace :

Code :

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

strcritere = " [nom fourniseur] Like'" & Chr(34) & "PARA*" & Chr(34)

Et puis je me demande à quoi sert le quote après Like, puisque vous n'en mettez pas un deuxième?

Pierre

[aciri]

Bonjour

Je me demande si la construction de votre chaine strcritere n'est pas erronée.

Peut-être avec des crochets, puisque le nom de votre champ est à espace :

Code :

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

strcritere = " [nom fourniseur] Like'" & Chr(34) & "PARA*" & Chr(34)

Et puis je me demande à quoi sert le quote après Like, puisque vous n'en mettez pas un deuxième?

Pierre

bonjour Pier.Antoine
effectivement il me fallait des crochets pour le champ "nom fournisseur"
et enlever le quote aprés Like.
en plus il a falu aussi que je definisse la variable rst càd le (recordset).
c'est fait et ca marche. je tiens a vous en remercier chaleureusement.

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
Private Sub sf_Enter()
Dim db As DAO.Database
Dim rst As DAO.recordset
Dim strcritere As String
 
Set db = CurrentDb
strcritere = "[nom fournisseur] Like" & Chr(34) & " P*" & Chr(34)
Set rst = db.OpenRecordset("SELECT F.[nom fournisseur] FROM F; ", dbOpenDynaset)
 
With rst
  rst.FindFirst strcritere
End With
 
End Sub
'c'est parfait

petit problème : le FindFirst me donne le premier enregistrement du champ "nom fournisseur" ,et non le premier enregistrement selon la condition Like;
question : devrai-je integrer le contenu de la variable strcritere dans la définition du recordset rst ?
si vous auriez une idée prière de m'en faire part, et mille fois merci