Recordset suite

Salut,

A l'ouverture de ma base j'execute un module (une fois)
qui me retourne une valeur "Rs(0)".
Je souhaiterais que cette valeur soit stockee en memoire
de telle sorte que je puisse la reutilser ensuite dans des
module de classe (En l'oocurence derriere des boutons dans
des formulaires)
Comment faire donc pour declarer correctement cette
variable et comment faire pour la rappeler ensuite dans
les procedures evenementielles.

Actuellement voici mon module. Je pense que les
declarations sont mal faites.

Sub logon()

Dim ib As String
Dim Rs As Recordset
Dim login As String
ib = InputBox("pswd")

Set Rs = CurrentDb.OpenRecordset("select login from logon
where pswd = '" & ib & "'")

If Rs.BOF Then
MsgBox "pswd incorrect"
GoTo Exit_Sub

Else
MsgBox Rs(0)
End If
Exit_Sub:
Set Rs = Nothing
End Sub

-----Message d'origine-----
bonjour
tu déclares une variable public dans le module

Public Mavar as ?? là tu mets le type
Sub logon()

Dim ib As String
Dim Rs As Recordset
Dim login As String
ib = InputBox("pswd")

Set Rs = CurrentDb.OpenRecordset("select login from logon
where pswd = '" & ib & "'")

If Rs.BOF Then
MsgBox "pswd incorrect"
GoTo Exit_Sub

Else
'// ici
Mavar = Rs(0)
End If
Exit_Sub:
Set Rs = Nothing
End Sub



--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"frederic" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:1652901c447db$d380f3b0

Salut,

A l'ouverture de ma base j'execute un module (une fois)
qui me retourne une valeur "Rs(0)".
Je souhaiterais que cette valeur soit stockee en memoire
de telle sorte que je puisse la reutilser ensuite dans
des

module de classe (En l'oocurence derriere des boutons
dans

des formulaires)
Comment faire donc pour declarer correctement cette
variable et comment faire pour la rappeler ensuite dans
les procedures evenementielles.

Actuellement voici mon module. Je pense que les
declarations sont mal faites.

Sub logon()

Dim ib As String
Dim Rs As Recordset
Dim login As String
ib = InputBox("pswd")

Set Rs = CurrentDb.OpenRecordset("select login from
logon

where pswd = '" & ib & "'")

If Rs.BOF Then
MsgBox "pswd incorrect"
GoTo Exit_Sub

Else
MsgBox Rs(0)
End If
Exit_Sub:
Set Rs = Nothing
End Sub

.