Discussion :

[jokenjo]

Bonjour
j´ai recupere ce code sur le forum , ces pour recupere les valeurs et nom de la table et l´afficher dans une Msgbox, mais moi j´aimerai l´afficher dans un formulaire comment dois je faire ?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub test()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db=CurrentDb
For Each tbd In Db.TableDefs
    For Each fld In tbd.Fields
        MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
    Next
Next
End Sub

[jean-paul lepetit]

Salut,
pour renvoyer tes valeurs dans un controle texte nommé Texte6 par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub test()
Texte6 = ""
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
    Texte6 = Texte6 & "Table : " & tbd.Name & vbNewLine
     For Each fld In tbd.Fields
            Texte6 = Texte6 & " Colonne : " & fld.Name & vbNewLine
     Next
Next
End Sub

[jokenjo]

Salut,
pour renvoyer tes valeurs dans un controle texte nommé Texte6 par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub test()
Texte6 = ""
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
    Texte6 = Texte6 & "Table : " & tbd.Name & vbNewLine
     For Each fld In tbd.Fields
            Texte6 = Texte6 & " Colonne : " & fld.Name & vbNewLine
     Next
Next
End Sub

Bonjour
merci pour votre reponse , le code modifier ne donne pas d´erreur , mais ne me donne pas n´ont plus le nom et numero demande(il n´affiche rien ) ...je ne sais pas ou est le problem .
Voici le code en question :

Code :

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

1
2
3
4
5
6
7
8
9
 
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "Formulaire2", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "Formulaire1"
 Text55 = rs("t_numero").Value
 Text54 = rs("nom").Value
else ....msgbox ""
end if

[jean-paul lepetit]

Que contient ta variable sql ?

avant ton

Code :

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

Text55=rs("t_numero").Value

, il faudrait faire un

Code :

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

rs.MoveFirst

Ton Text55 est sur quel formulaire Formulaire1 Ou Formulaire2

[jokenjo]

Que contient ta variable sql ?

avant ton

Code :

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

Text55=rs("t_numero").Value

, il faudrait faire un

Code :

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

rs.MoveFirst

Ton Text55 est sur quel formulaire Formulaire1 Ou Formulaire2

Bonsoir
Il est sur formulaire 2mon text55 .
merci

[jokenjo]

Bonsoir Jean-Paul
j´ai testé avec ce code

Code :

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

rs.MoveFirst

Mais toujours le meme probleme ca ne marche pas....

Mais je cherche toujours
Merci

[jean-paul lepetit]

et qu'as tu dans ta variable sql ?

[jokenjo]

et qu'as tu dans ta variable sql ?

Bonjour
Voici la requete sql :

Code :

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

1
2
 
sql = "SELECT * FROM T_USER WHERE t_numero = '" & Me.t_nunero & "' AND PASSWORD ='" & Me.t_password & "';"

Merci

[jokenjo]

Bonjour
merci pour votre reponse , le code modifier ne donne pas d´erreur , mais ne me donne pas n´ont plus le nom et numero demande(il n´affiche rien ) ...je ne sais pas ou est le problem .
Voici le code en question :

Code :

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

1
2
3
4
5
6
7
8
9
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "Formulaire2", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "Formulaire1"
 Text55 = rs("t_numero").Value
 Text54 = rs("nom").Value 
else ....msgbox ""
end if

Bonsoir
Il fallait que je mette le nom du formulaire de destination dans le code comme ceci :

Code :

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

1
2
Forms!Nomformulairedestination.Text55 = rs("t_numero").Value
 Forms!Nomformulairedestination.Text54 = rs("nom").Value 

Merci