Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!
easy one - pass form and field to function
Dear experts -
I want to pass the current form name and the name of a text box (field) on that form to a function.
I then want the function to do certain things and in certain cases update that field.
How do I properly pass the form and field name, and then how do I properly reference them in the function?
Thanks!
I want to pass the current form name and the name of a text box (field) on that form to a function.
I then want the function to do certain things and in certain cases update that field.
How do I properly pass the form and field name, and then how do I properly reference them in the function?
Thanks!
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Public Function YourFunction (frm as form,TextBoxValue as string)
You call it like this
YourFunction Me, Me.textbox.name
Thank you - how do I think reference that form+field to update it with a certain value, in the function?
I am not 100% percent sure what you need,,,
I assume that you want to perform some operations in your function that will affect your form....
if this is correct then you need to modify the function to like this
I assume that you want to perform some operations in your function that will affect your form....
if this is correct then you need to modify the function to like this
Public Function YourFunction (ByRef frm as form,TextBoxValue as string)
I'm trying to do something like this in the function, but it is giving me an error:
Function ShowLink(thislink As String, thisform As Form, thiscontrol As String)
Dim sFilename as string
sFileName = Mid(thislink, iBackslash + 1, (Len(thislink) - iBackslash))
thisform.thiscontrol = sFileName
On the last line above, I'm getting error 2465, Application-defined or object-defined error...
Function ShowLink(thislink As String, thisform As Form, thiscontrol As String)
Dim sFilename as string
sFileName = Mid(thislink, iBackslash + 1, (Len(thislink) - iBackslash))
thisform.thiscontrol = sFileName
On the last line above, I'm getting error 2465, Application-defined or object-defined error...
Function ShowLink(thisLink as string) as string
ShowLink= = Mid(thisLink , iBackslash + 1, (Len(thislink) - iBackslash))
End function
me.thiscontrol = showlink(thisLink )
Also - when I'm passing the formname ('me'), I guess it is not fully referenced. Maybe this is part of the problem?
sorry, I'm still not getting this. can you pls be more specific on how I should correct the error?
Thanks!
Thanks!
There are a number of ways to do this.
1. You could pass the form and control names to your function/subroutine and then create objects within the procedure, something like:
Call fnSomething(me, me.txt_TextboxName)
1. You could pass the form and control names to your function/subroutine and then create objects within the procedure, something like:
Public function fnSomething(FormName as string, CtrlName as string)
Dim frm as Form
Dim ctrl as Control
set frm = forms(FormName)
set ctrl = frm.controls(CtrlName)
Public Function fnSomething(frm as Form, ctrl as Control)
Call fnSomething(me, me.txt_TextboxName)
Premium Content
You need an Expert Office subscription to comment.Start Free Trial