Discussion :

[sihamelm]

Bonjour,
j'ai un formulaire avec une colonne dates et une colonne qui contient la somme des montants correspondants à chaque date
je veux crée un évenement sur clic qui ouvre un autre formulaire et lui affecte les données correspondantes or le programme que j'ai fait ne renvoi qu'un seule ligne
voici le 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'MsgBox (DateCA)
LeSql = "SELECT facture_clients.* " & _
"FROM facture_clients " & _
"WHERE facture_clients.date_reglement=#" & Format(dateC, "yyyy-mm-dd") & "#"
 
Set rsRdV = CurrentDb.OpenRecordset(LeSql, dbOpenForwardOnly)
 
' s'il y a un rdv alors copier dans la variable DateC l'horaire de début du rdv.
 
   If Not (rsRdV.EOF) Then
 'MsgBox (rsRdV!n_facture)
 'MsgBox (rsRdV!nom_client)
 DoCmd.OpenForm "F_details"
 F_details.Form.RecordSource = rsRdV
 
'[F_details].Form.RecordSource = rsRdV
' ouvre le formulaire " F_RendezVous "
 
Forms!F_details![n_facture] = rsRdV![n_facture]
Forms!F_details![nom_client] = rsRdV![nom_client]
Forms!F_details![montant_HT] = rsRdV![montant_HT]
Forms!F_details![montant_TTC] = rsRdV![montant_TTC]
Forms!F_details!TVA = rsRdV!TVA
Forms!F_details![date_reglement] = rsRdV![date_reglement]
Forms!F_details![Montant_reglé] = rsRdV![Montant_reglé]
Forms!F_details![Reste] = rsRdV![Reste]
 
Else
MsgBox ("Il n'y pas de réglement pour cette date!")
'  Forms!F_RendezVous!HoraireF = Format(DateAdd("n", 30, DateC), "hh:nn")
End If
 
rsRdV.Close
Set rsRdV = Nothing
End Sub

[zoom61]

Salut,

Ne devrais-tu pas faire plutôt :

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
LeSql = "SELECT facture_clients.* " & _
"FROM facture_clients " & _
"WHERE facture_clients.date_reglement=#" & Format(dateC, "yyyy-mm-dd") & "#"
Set rsRdV = CurrentDb.OpenRecordset(LeSql, dbOpenForwardOnly)
 
' s'il y a un rdv alors copier dans la variable DateC l'horaire de début du rdv.
 
If Not (rsRdV.EOF) Then
   Forms!F_details!Form.RecordSource = LeSql
 
Else
MsgBox ("Il n'y pas de réglement pour cette date!")
'  Forms!F_RendezVous!HoraireF = Format(DateAdd("n", 30, DateC), "hh:nn")
End If
 
rsRdV.Close
Set rsRdV = Nothing
End Sub

Et faire un formulaire avec le requête obtenue, plutôt que d'essayer de mettre les données du résultat de la requête dans les champs (ce qui ne te donne d'une donnée).
@+.

[sihamelm]

Rebonjour
merci zoom
En fait ça me donne une erreur comme quoi microsoft ne reconnait pas le formulaire F_details
une idée?

[zoom61]

Essai avec Forms!F_details.RecordSource = LeSql

[sihamelm]

ça me donne toujours microsoft access ne trouve pas le formulaire F_details...
je suis perdue là
F_details contient des champs, en plus de l'affectation de la requete il faut affecter à chaque champs une source
je ne vois vraiment pas comment faire

[zoom61]

Si le code se trouve dans le formulaire : Me.Form.RecordSource = LeSQL

[sihamelm]

le code se trouve dans le formulaire RCA,
je me réexplique
je veux créer un évènement qui, sur double clic, ouvre le formulaire F_details en lui affectant les données contenus dans la requete select...

[sihamelm]

Re
donc voila j'ai mis comme vous avez dis la requete en source
Sauf que j'ai plusieurs colonne et chaque colonne à comme source une base diférente avec cette methode je devrai creer pour chaque colonne un formulaire
Y-a moyen que pour le meme formulaire la source change? ou soit disant la base?

[zoom61]

Tu peux faire :

Code :

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

1
2
3
4
5
6
LeSql = "SELECT facture_clients.* " & _
"FROM facture_clients " & _
"WHERE facture_clients.date_reglement=#" & Format(CDate(ChampFormulaire), "yyyy-mm-dd") & "#" & _
"OR facture_clients.colonne1 = '" & ChampFormulaire & "' " & _
"OR facture_clients.colonne2 = '" & ChampFormulaire & "' " & _
...