OVH Cloud OVH Cloud

open forms

10 réponses
Avatar
Laurent
Bonjour, Bonsoir,

J'ai un petit pb : je souhaite ouvrir un Form en sélectionnant un
enregistrement précis dans une liste d'un autre Forms. Tout marchait bien,
mais maintenant, pour simplifier, le tri doit se faire sur 2 champs.

mon code d'origine

Private Sub EditSej_Click()
'Stop
Dim Table As String
Dim Lien As String

Me.Visible = False
Table = "HResDet"
Lien = "ResSejNo=" & Me!ListSej
DoCmd.OpenForm Table, , , Lien, , acDialog
Me.Visible = True

End Sub

Le Lien maintenant doit inclure un champs Date.

Que faire ? Merci de votre aide même si cela paraît trop simple...

10 réponses

Avatar
Eric
Bonjour Laurent,

Essaies :
Pour une date précise
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate=" _
& Format(Me!LeControleDate,"#mm/dd/yyyy#")

ou encore pour une date comprise entre 2 bornes :
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate Between " _
& Format(Me!LeControleDate1,"#mm/dd/yyyy#") & " And " _
& Format(Me!LeControleDate2,"#mm/dd/yyyy#")

Bonjour, Bonsoir,

J'ai un petit pb : je souhaite ouvrir un Form en sélectionnant un
enregistrement précis dans une liste d'un autre Forms. Tout marchait bien,
mais maintenant, pour simplifier, le tri doit se faire sur 2 champs.

mon code d'origine

Private Sub EditSej_Click()
'Stop
Dim Table As String
Dim Lien As String

Me.Visible = False
Table = "HResDet"
Lien = "ResSejNo=" & Me!ListSej
DoCmd.OpenForm Table, , , Lien, , acDialog
Me.Visible = True

End Sub

Le Lien maintenant doit inclure un champs Date.

Que faire ? Merci de votre aide même si cela paraît trop simple...


--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Laurent
Merci Eric,

mais le champs date est une référence qui se situe dans la liste (au même
titre que le No d'enregistrement "ResResNo" : la référence du recordset est
construit comme ceci : date et No sont les 2 clés primaires

Merci de ton aide.

Laurent



Bonjour Laurent,

Essaies :
Pour une date précise
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate=" _
& Format(Me!LeControleDate,"#mm/dd/yyyy#")

ou encore pour une date comprise entre 2 bornes :
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate Between " _
& Format(Me!LeControleDate1,"#mm/dd/yyyy#") & " And " _
& Format(Me!LeControleDate2,"#mm/dd/yyyy#")



Avatar
Eric
re,
en supposant que le champ ResSejNo est en 1ere colonne, la date en 2eme
colonne :
Lien = "ResSejNo=" & Me!ListSej.Column(0) & " And LeChampDate=" _
& Format(Me!ListSej.Column(1), "#mm/dd/yyyy#")

(L'index des colonnes commence à 0)

Ca serait bon ?

mais le champs date est une référence qui se situe dans la liste (au même
titre que le No d'enregistrement "ResResNo" : la référence du recordset est
construit comme ceci : date et No sont les 2 clés primaires




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Jessy Sempere [MVP]
Bonjour

Je ne comprends pas très bien...
Tu as 2 listes pour sélectionner avec une le ResResNo et avec
l'autre une date ou tu as une seule qui contient plusieurs 2 colonnes ?

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit dans le message news:

Merci Eric,

mais le champs date est une référence qui se situe dans la liste (au même
titre que le No d'enregistrement "ResResNo" : la référence du recordset
est

construit comme ceci : date et No sont les 2 clés primaires

Merci de ton aide.

Laurent



Bonjour Laurent,

Essaies :
Pour une date précise
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate=" _
& Format(Me!LeControleDate,"#mm/dd/yyyy#")

ou encore pour une date comprise entre 2 bornes :
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate Between " _
& Format(Me!LeControleDate1,"#mm/dd/yyyy#") & " And " _
& Format(Me!LeControleDate2,"#mm/dd/yyyy#")






Avatar
Laurent
Bonsoir Eric,

j'obtiens un message d'erreur '3075' : erreur de syntaxe dans la date dans
l'expression 'ResSejNoZndResDate=#18.07.2005#'.

Mais peut-être me suis-je mal exprimé ? La reconnaissance du recordset se
fait sur 2 points : le ResSejNo et le ResDate (les 2 clés primaires)


re,
en supposant que le champ ResSejNo est en 1ere colonne, la date en 2eme
colonne :
Lien = "ResSejNo=" & Me!ListSej.Column(0) & " And LeChampDate=" _
& Format(Me!ListSej.Column(1), "#mm/dd/yyyy#")

(L'index des colonnes commence à 0)

Ca serait bon ?

mais le champs date est une référence qui se situe dans la liste (au même
titre que le No d'enregistrement "ResResNo" : la référence du recordset est
construit comme ceci : date et No sont les 2 clés primaires




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Laurent
Bonsoir Jessy,

j'essaie simplement d'ouvrir un recordset avec la reconnaissance sur 2
champs (les clés primaires), à savoir : ResSejNo et ResDat.

Merci de ton aide

Laurent



Bonjour

Je ne comprends pas très bien...
Tu as 2 listes pour sélectionner avec une le ResResNo et avec
l'autre une date ou tu as une seule qui contient plusieurs 2 colonnes ?

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit dans le message news:

Merci Eric,

mais le champs date est une référence qui se situe dans la liste (au même
titre que le No d'enregistrement "ResResNo" : la référence du recordset
est

construit comme ceci : date et No sont les 2 clés primaires

Merci de ton aide.

Laurent



Bonjour Laurent,

Essaies :
Pour une date précise
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate=" _
& Format(Me!LeControleDate,"#mm/dd/yyyy#")

ou encore pour une date comprise entre 2 bornes :
Lien = "ResSejNo=" & Me!ListSej & " And LeChampDate Between " _
& Format(Me!LeControleDate1,"#mm/dd/yyyy#") & " And " _
& Format(Me!LeControleDate2,"#mm/dd/yyyy#")











Avatar
3stone
Salut,

"Laurent"
| j'obtiens un message d'erreur '3075' : erreur de syntaxe dans la date dans
| l'expression 'ResSejNoZndResDate=#18.07.2005#'.


Attention aux espaces...

'ResSejNo=5 And ResDate=#18.07.2005#'


de plus, entouré de "#" les dates doivent être au format US

donc : #07.18.2005#



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Laurent
Bonsoir,

j'obtiens tjs le même message d'erreur '3075' : erreur de syntaxe dans le
nombre dans l'expression ResDate.07.2005 And ResSejNo=1 (j'ai supprimé le
format sur la date car ça ne fonctionnait pas).

Merci de l'aide

Laurent


Salut,

"Laurent"
| j'obtiens un message d'erreur '3075' : erreur de syntaxe dans la date dans
| l'expression 'ResSejNoZndResDate=#18.07.2005#'.


Attention aux espaces...

'ResSejNo=5 And ResDate=#18.07.2005#'


de plus, entouré de "#" les dates doivent être au format US

donc : #07.18.2005#



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw




Avatar
3stone
Salut,

"Laurent"
| j'obtiens tjs le même message d'erreur '3075' : erreur de syntaxe dans le
| nombre dans l'expression ResDate.07.2005 And ResSejNo=1 (j'ai supprimé le
| format sur la date car ça ne fonctionnait pas).


tu ne peux pas supprimer le format !!! c'est le VBA qui exige cela !


Pas suivis le fil... mais essaies:

Lien = "ResSejNo=" & Me!ListSej.Column(0) & " And ResDate=" & Format(Me!ListSej.Column(1),
"#mm-dd-yyyy#")


ResSejNo est bien de type numérique ?


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Laurent
Rebonsoir Pierre,

Tout fonctionne à merveille : cela venait des tirets au lieu des slash.

Un grand MERCI à toi et bonne nuit.

A bientôt

Laurent



Salut,

"Laurent"
| j'obtiens tjs le même message d'erreur '3075' : erreur de syntaxe dans le
| nombre dans l'expression ResDate.07.2005 And ResSejNo=1 (j'ai supprimé le
| format sur la date car ça ne fonctionnait pas).


tu ne peux pas supprimer le format !!! c'est le VBA qui exige cela !


Pas suivis le fil... mais essaies:

Lien = "ResSejNo=" & Me!ListSej.Column(0) & " And ResDate=" & Format(Me!ListSej.Column(1),
"#mm-dd-yyyy#")


ResSejNo est bien de type numérique ?


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw