Discussion :

[MuadDib_II]

J'ai un formulaire et je voudrais faire le Recordset suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Dim dd As ADODB.Recordset
Set dd = New ADODB.Recordset
dd.ActiveConnection = CurrentProject.Connection
dd.Source = "SELECT * FROM [T_semaine] WHERE [D1] <=" & Forms!F_suivi_des_prets!date And [D2] >= Forms!F_suivi_des_prets!date
dd.CursorType = adOpenDynamic
dd.LockType = adLockOptimistic
dd.Open
dd.MoveFirst
MsgBox (dd![Semaine])

où D1 et D2 sont des Dates

Le code ne marche pas, je pense qu'il y a quelque chose a voir avec la double condition WHERE et peut-etre le type des variables date.

Je vous remercie d'avance pour toute aide.

[Zabriskir]

dd.Source = "SELECT * FROM [T_semaine] WHERE [D1] <=" & Forms!F_suivi_des_prets!date And [D2] >= Forms!F_suivi_des_prets!date

Tu t'es gouré dans la chaîne de ta requête. Essaye :

"SELECT * FROM [T_semaine] WHERE [D1] <=" & Forms!F_suivi_des_prets!date & " And [D2] >= " & Forms!F_suivi_des_prets!date

@+

[MuadDib_II]

Merci pour l'aide.
Je pense qu'il progrese, mais maintenant il dit que le BOF ou EOF sont egales à True ou l'enregistrement actuel a été suprimé..

[MuadDib_II]

Ici, il donne un ERROR d'Execution 13: Incompatibilité de type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim te As ADODB.Recordset
Set te = New ADODB.Recordset
te.ActiveConnection = CurrentProject.Connection
te.Source = "SELECT * FROM [T_prets] WHERE [COMPTE] = '" & Forms!F_prets_paiement!Compte & "'" And [num_pret] = " & Forms!F_prets_paiement!num_pret"
 
te.CursorType = adOpenDynamic
te.LockType = adLockOptimistic
 
te.Open
 
te.MoveFirst
Nom.Value = te![Nom]
Mt_pret=te![Mt_pret]

mais seulement si je mets la deuxiéme condition WHERE

Code :

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

And [num_pret] = " & Forms!F_prets_paiement!num_pret"

Est-ce qu'il y a une refernce de comment ecrire les diferents types de variables (string, numerique, est) dans cette condition? Je me trompe où?
La variable COMPTE est string et num_pret est numerique

Merci d'avance

[Invité]

Bonjour

Petit soucis de syntaxe :

Code :

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

"SELECT * FROM [T_prets] WHERE [COMPTE] = '" & Forms!F_prets_paiement!Compte & "'  And [num_pret] = " & Forms!F_prets_paiement!num_pret"

Pour du numérique on ne met rien.
Pour du texte on entoure de simples quotes '
Pour des dates on met des #

Starec

[MuadDib_II]

Merci pour la reponse

il dit attendu: fin d'instruction

[Invité]

Re

Enlèves la dernière double-quote.

Starec

[MuadDib_II]

Je vraiment vous remercie Startec. Il a bien marché.

Est-ce que je peux trouver ces references dans quelque part? Je veux dire, comment ecrire ce type d'instruction, avec des &, ", ', etc...?

[Invité]

Re

La permet de trouver beaucoup de choses : http://access.developpez.com/faq/ind...riteres#txtQry

Il faut aussi lire les posts des autres, on apprend beaucoup.

Starec

[MuadDib_II]

OK, merci pour l'aide.

Enfait, j'ai trop cherche par tout, et j'ai rien trouvé, c'est pour ça que je demande. Mais je vais chercher un peu plus.

Merci encore un fois.