Discussion :

[Blado_sap]

Bonjour,
étant débutant sous Access 2007, je rencontre une problématique

j'ai une table T_bordereau avec comme champ (clé primaire : numéro_bordereau et numéro_facture)

j'ai un premier formulaire : f_recherche_bordereau avec un champ recherche et un bouton "rechercher" sur lequel j'ai mis une fonction onclick (code VBA)

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
Option Compare Database
 
Private Sub Cmd_recherche_bordereau_Click()
 
Me.Requery
Dim sql_bordereau, bordereau_id As String
Dim rs As DAO.Recordset
sql_bordereau = "SELECT * FROM T_bordereau WHERE numero_bordereau ='" & Me.Txt_bordereau & "' ;"
Set rs = CurrentDb.OpenRecordset(sql_bordereau)
If Not rs.EOF Then
  DoCmd.OpenForm "F_trouve_bordereau", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_menu"
  bordereau_id = rs("numero_bordereau").Value
Else
  MsgBox "NumÈro de bordereau incorrect ", vbInformation, "NumÈro de bordereau"
End If
End Sub

et j'ai un deuxième formulaire : F_trouve_bordereau
sur lequel je voudrais récupérer ma variable passée sur le premier formulaire
en l'occurence ici bordereau_id si je ne me trompe

par contre je ne sais pas du tout comment faire pour afficher ce champ dans une textbox
dans mon form je n'ai que ça au départ

Code :

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

Option Compare Database

merci de votre aide

sachant que par la suite j'aimerais pouvoir afficher les différents champs d'autre table dont la clé est aussi numéro_bordereau

d'avance merci
Franck

[loufab]

Bonjour,

Tout d'abord renseignes-toi sur le requery.

Code :

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

1
2
3
4
5
 
Me.Requery
Dim sql_bordereau, bordereau_id As String
Dim rs As DAO.Recordset
sql_bordereau = "SELECT * FROM T_bordereau WHERE numero_bordereau ='" & Me.Txt_bordereau & "' ;"

Si tu fais un requery avant de te servir de la valeur d'un champ ça fonctionnera 1 fois sur 10. En effet Requery réinterroge la source de données et donc c'est le premier enregistrement de cette source qui sera affichée et non plus la courante.

Requery ne doit pas être utilisé à tord et à travers.

Si ton but est d'afficher le bordereau correspondant à l'id choisi dans le formulaire 1, il faut utiliser la clause Where de la commande docmd.openform.

Cordialement,

[Blado_sap]

bonjour,

merci pour ta réponse

pourrais tu m'en dire plus sur comment faire en adaptant mon code stp?
car je ne m'en sors pas

D'avance merci

[loufab]

Bonjour,
Tout d'abord l'option explicit est vivement conseillée, ça évite pas mal de soucis.(voir le F1)

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
Option Compare Database
Option Explicit
 
Private Sub Cmd_recherche_bordereau_Click()
 
Dim sql_bordereau, bordereau_id As String
Dim rs As DAO.Recordset
 
sql_bordereau = "SELECT * FROM T_bordereau WHERE numero_bordereau ='" & Me.Txt_bordereau & "' ;"
Set rs = CurrentDb.OpenRecordset(sql_bordereau)
If Not rs.EOF Then
  DoCmd.OpenForm "F_trouve_bordereau", acNormal, , "numero_bordereau ='" & Me.Txt_bordereau & "'", , acWindowNormal
  DoCmd.Close acForm, "F_menu"
Else
  MsgBox "NumÈro de bordereau incorrect ", vbInformation, "NumÈro de bordereau"
End If
rs.close  'on est propre, si on ouvre une variable sur un recordset on le ferme après utilisation
set rs = nothing
End Sub

Normalement le id sont de type Long (numérique long) et pas String.

Cordialement,

[Blado_sap]

j'ai modifié quelques points mais cela ne fonctionne toujours pas

dans mon form 1 j'ai ma zone de text nommée txt_bordereau

et j'ai le code suivant sur le bouton onclick:

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
 
 
Option Compare Database
 
Private Sub Cmd_recherche_bordereau_Click()
 
Dim sql_bordereau, bordereau_id As String
Dim rs As DAO.Recordset
sql_bordereau = "SELECT * FROM T_bordereau WHERE numero_bordereau ='" & Me.Txt_bordereau & "' ;"
Set rs = CurrentDb.OpenRecordset(sql_bordereau)
If Not rs.EOF Then
  Me.Refresh
  DoCmd.OpenForm "F_trouve_bordereau", acNormal, , " [bordereau_id] =" & Me![Txt_bordereau], , acWindowNormal
  DoCmd.Close acForm, "F_recherche_bordereau"
Else
  MsgBox "NumÈro de bordereau incorrect ", vbInformation, "NumÈro de bordereau"
End If
End Sub

par contre ça m'ouvre une boite de dialogue me demandant le bordereau_id
ce que je ne souhaite pas vu que je le saisie dans la zone de texte txt_bordereau

comment faire pour ne pas avoir cette boite?

et surtout comment récupérer et afficher ce que je récupère du form1 pour l'afficher dans le form2 ?

D'avance merci

[Blado_sap]

avec ta solution cela fonctionne super
merci

par contre du coup je n'ai meme pas besoin de ma variable bordereau_id ??

[Blado_sap]

j'en profite pour une autre question toujours sur le même sujet

je récupère bien mes données dans mon deuxième form nommé f_trouve_bordereau


par contre dans la table T_BORDEREAU

pour un même numéro d'échafaudage je peux avoir plusieurs numéros de factures

exemple

numero_bordereau / numero_facture
1 / 1
1 / 2
1 / 3
2 / 1
3 / 2


comment faire dans mon form2 (f_trouve_bordereau) pour que ça m'affiche toutes les factures en relation avec le numéro d'échafaudage saisi sur le premier form?

D'avance merci

[loufab]

Attention à ne rien oublier durant la recopie du code. Chaque caractère compte dans du code.

Pour la variable tu peux factoriser ton code, et ne faire plus référence à ton contrôle (Me.Txt_bordereau) mais à ta variable .

Comme dans cet exemple :

Code :

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

1
2
3
4
dim bordereau_id As String
bordereau_id = Me.Txt_bordereau 
 
...bordereau ='" & bordereau_id & "' ;"

Normalement avec le code que tu as ça devrait le faire. C'est juste une histoire de présentation.
En intégrant un sous-form en mode liste qui affiche tes factures ça fonctionnera, sans invoquer de code supplémentaire.