Discussion :

[the_6L20]

Bonjour,

Voila, j'ai 2 tables "TL_documents a crée", et "TL_documents a joindre",
qui continnent toutes les deux les champs {n°; N° Shipping; titre document, nbcopie client;nbcopie transporteur;inclus?}

le N° de shipping est en relation avec une autre tables, et je voudrais a partir d'un formulaire lorsque je clique sur un bouton, pouvoir ouvrir d'autres formulaires en fonction de : si [N° shipping] du formulaire = [N° shipping]dans "TL_Document a cree" et que [inclus?] qui est une checkbox, soit vrai.

en sachant qu'uil peut y avoir plusieurs enregistrements avec le meme [N° de shipping] dans les tables des documents.

j'ai commencer a tester avec des recordset, mais meme si l'enregistrement existe bien dans la "TL_documents a crée", cela ne fonctionne pas.

voici le bout de code qui me sert a tester:

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
Dim BDD As Database, TDC As DAO.Recordset, TDJ As DAO.Recordset
 
        Set BDD = DBEngine.Workspaces(0).Databases(0)
 
        Set TDC = BDD.OpenRecordset("TL_Documents a Créer", dbOpenDynaset)
        Set TDJ = BDD.OpenRecordset("TL_Documents a Joindre", dbOpenDynaset)
 
    Me.Refresh
       TDC.MoveFirst
    Do Until TDC.EOF
    If TDC(2) = Me.[N° Shipping].Value Then
        MsgBox "coucou1"
        Exit Sub
 
          Else
          MsgBox "aurevoir1"
        Exit Sub
       End If
 Loop

J'arrete pas de lire et relire dans tous les sens les faq contenant des infos sur les recordset, et bientot la touche F1 sera totalement Destroy!

Merci pour la precisues aide que vous voudrez bien m'accorder!

[Muhad'hib]

Salut,

Je ne suis pas sûr d'avoir bien compris ...

Tu est dans un formulaire "Frm1" et tu veux sur le click d'un bouton, ouvrir un autre formulaire "frm2" contenant la liste des enregistrement de "TL_Document a cree" ayant [N° shipping] = [N° shipping] de "frm1" et [inclus?] = vrai ?

Si c'est bien ça, pas besoin de formulaire.

Sur l'événement Click de ton bouton tu fais :

Code :

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

1
2
3
4
5
6
7
 
Dim Sql as String
Sql = " Select [TL_Document a cree].* from [TL_Document a cree] where [TL_Document a cree].[N° shipping] = " & Me![N° shipping] & " and [TL_Document a cree].[inclus?] = true ;"
 
DoCmd.OpenForm "frm2"
Forms("frm2").RecordSource = Sql
Forms("frm2").Refresh

A+

[the_6L20]

Non, je ne veux pas ouvrir 1 seul formulaire,

ce que je veux c'est ouvrir les formulaires necessaires a la suite de la saisie de mon dossier d'export, et ceci en fonction des documents inclus, en sachant donc que je choisi les formulaire a ouvrir en fonction du nom des documents!

j'ai mis une copie d'ecran dans un word, car vive windows 2000, paint ne gere que les bmp, et j'ai pas les droit pour installer autre chose!

[the_6L20]

C'est bon j'y suis arriver tout seul

il me manquer juste un tdc.movenext avant mon loop!

je suis un imbecile!

enfin je vais pas le crier trop fort non plus! lol