OPen Password form

[amna77]

Hi, i have one form, on which I have combo boxes and date fields. like 7 of each.

Combo1 and text1
Combo2 and text2

Now what I want to do is, when ever user click on the text1 then I it opens up the small paswword form. but the thing is I want to get that combo1 value on the small pop up form. if user clik on text2 then combo2 value should be caputre in that small pop up form.
Please help me with that. I shall be thankful to you.

Thanks
Amna

 

[amna77]

sorry, its me again.
I did put that code in the Module.
but still same error, Function not defiend.


Private Sub OpenPwd()

Dim lngSuffix As Long
Dim strComboName As String
Dim strOpenArgs As String

strComboName = Screen.ActiveControl.Properties("Name")

strComboName = Left(strComboName, InStr(strComboName, "Date") - 1)

strComboName = "cbo" & Mid(strComboName, 4) & "Names"

strOpenArgs = Me.Controls(strComboName).Value
DoCmd.OpenForm FormName:="frmPWD", OpenArgs:=strOpenArgs
End Sub

 

[amna77]

Now I got this error.

"Expected Variable or Procedure, not Module"

 

[Russell Hauf]

Not in a regular module, but in the form's module. You should have the Button_Click (or double click) events in there also - I want to see the whole module.

 

[amna77]

Thanks for help. my password is working now, the way I want it. actually I used to first codes, the one you gave me first time, I modify little bit in there, now its working. Thanks, its all becasue of you.

Thanks
Amna