Reference variable Form Name in Module Function Recordset 1

[Binnit]

I would like to pass the form name to a procedure within a module so that it can be used within a recordset update, I have tried various methods and got various error messages in return!, my current bit of code looks like this

(FN is the name of the form being passed in to the function)

Public Sub Addrec(FN)


    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("tbltest", dbOpenDynaset)

    With rst
        .AddNew
        ![f2] = Forms![FN]![txtF2]
        ![f3] = Forms![FN]![txtF3]
        ![f4] = Forms![FN]![txtF4]
        .Update
    End With
    
End Sub

Can this be done?

If IT ain’t working Binnit and Reboot

 

[PHV]

Try this:
![f2] = Forms(FN)![txtF2]

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Binnit]

PHV
Once again you have come up trumps... excellent and many thanks.

If IT ain’t working Binnit and Reboot