reference form and form control

[Ruegen]

I am making a function that opens a form and fills the text box with that number while also filtering the form

I have

Function filterSchoolPostCodes(FormName As Form, Postcode As String, FillField As control)


If Len(Postcode) <> 5 Or lenpostcode <> 4 Then
Else




Dim PostcodeConverted As Integer
PostcodeConverted = CInt(postcodefield)


DoCmd.OpenForm (FormName), , , "[numberInt] between " & (PostcodeConverted + 5) & " And " & (PostcodeConverted - 5) & ""
Forms!(FormName).Form.FillField.Value = PostcodeConverted


End If
End Function

Private Sub PostCode_DblClick(Cancel As Integer)
Call filterSchoolPostCodes(frmSchoolsSearchPostCode, Me.Postcode, txtPostCode)
End Sub

What I don't know is how to correctly reference the formname and the textbox on the field in my code.

any recommendations?

[Ruegen]

Private Sub PostCode_DblClick(Cancel As Integer)
Call filterSchoolPostCodes("frmSchoolsSearchPostCode", Me.Postcode, "txtPostCode")
End Sub


Function filterSchoolPostCodes(FormName As String, Postcode As String, FillField As String)


If Len(Postcode) <> 5 Or Len(Postcode) <> 4 Then
Else




Dim PostcodeConverted As Integer
PostcodeConverted = CInt(postcodefield)


DoCmd.OpenForm FormName, , , "[numberInt] between " & (PostcodeConverted + 5) & " And " & (PostcodeConverted - 5) & ""
Forms!FormName.Form.FillField.Value = PostcodeConverted


End If
End Function

[Ruegen]

now using this

Function filterSchoolPostCodes(Postcode As Control)


If Len(Postcode) = 5 Or Len(Postcode) = 4 Then
Dim strStore As String
strStore = Postcode




Dim PostcodeConverted As Integer
PostcodeConverted = CInt(strStore)






DoCmd.OpenForm "frmSchoolsSearchPostCode", , , "[numberInt] between " & (PostcodeConverted + 5) & " And " & (PostcodeConverted - 5) & ""


Forms!frmSchoolsSearchPostCode!txtPostCode.Value = PostcodeConverted






Else
End If


End Function

however I would still like to know how to pass form names and controls through a function.

[pbaldy]

I typically pass them as strings and use:

Forms(FormVariablename).Controls(ControlVariableNa me).Value

[Ruegen]

I typically pass them as strings and use:

Forms(FormVariablename).Controls(ControlVariableNa me).Value

ah I didn't have .controls or .forms

[Ruegen]

I get compile error, identifier or bracket expression

[Ruegen]

oh wait

Forms(FormToOpen).Controls(ControlToPassPostCode). Value = PostcodeConverted

works - thanks

[pbaldy]

Happy to help!