فراخوانی یک تابع از داخل تکست باکس

[moustafa]

با سلام
نام یک فانکشن رو داخل یک تکست باکس قرارد ادیم میخوایم اون فراخونی کنیم از چه کدی استفاده کنیم (چندتا فانکشن رو داخل یک جدول ریختیم بسته به رکورد فانکشن اون رو فراخوانی کنیم )

call me.TextBox1

[moustafa]

Application از نوع کلاس
Me.txtsub نام تابع از نوع رشته

Application.Run (Me.txtsub)

[moustafa]

و اگر تابع مون داری متغیرهای v1 , v2 , ... باشن

Application.Run (Me.txtsub,v1,v2)

[mazoolagh]

سلام و روز خوش

یک function (و نه sub) رو میتونین با استفاده از تابع eval سدا بزنین.

مثلا یک تابع By2 داریم که عدد N رو میگیره و در 2 ضرب میکنه و برمیگردونه:

FUNCTION By2(N AS INTEGER) AS INTEGER

    By2=N*2

END FUNCTION

اینجوری میتونین استفاده کنین:

DIM K AS INTEGER

K=EVAL("By2(5)") ' K <== 10

یا اگر sub نیاز دارین که مقداری برنمیگردونه بازهم باید اون رو function تعریف کنین:

FUNCTION SHOW(i AS INTEGER , s AS STRING)

    MSGBOX "s=" & s & VBCRLF & "i=" & i

END FUNCTION

و اینجوری سدا بزنین:

Eval("SHOW(8 ,""moustafa"")")

[mazoolagh]

یک نمونه کار با eval رو در پست شماره 20 تاپیک زیر میتونین ببینین:

https://barnamenevis.org/showthread.php?539924

[moustafa]

سلام وعرض ادب خدمت استاد و سرور گرامی
از بذل توجه همیشگی تون سپاسگذارم
دقیقا همچین چیزی میخواستم نام ساب یا فانکشن رو در قالب رشته بدی call کنه
درApplication.Run فقط باید نام تابع رو وارد و پارامترها رو با شرط وبطور دستی وارد کنی ولی با این تابع Eval کل تابع رو با آرگومانهاش یجا وارد میکنی

Private Sub tv2_NodeClick(ByVal Node As Object)

Dim x As Integer

Dim func As String

x = Mid(Node.Key, 2, Len(Node.Key) - 1)

func = Nz(DLookup("funcName", "tblnodes", "keynode=" & x), "")

If Not IsNull(func) And func <> "" Then

    If x = 37 Then

        Application.Run func, Forms!frmMain

    Else

        Application.Run func

    End If

End If

'    Select Case Node.Key

'       Case "x26"

'           Call Form_frmMain3.btnSabtSand_Click

'       Case "x27"

'           DoCmd.OpenForm "frmAmaliyat_gharardad"

'    End Select

End Sub

[moustafa]

با تابع Eval

  

Private Sub tv2_NodeClick(ByVal Node As Object)

Dim x As Integer

Dim func As String

x = Mid(Node.Key, 2, Len(Node.Key) - 1)

func = Nz(DLookup("funcName", "tblnodes", "keynode=" & x), "")

If Not IsNull(func) And func <> "" Then

   Eval(func)

End If

'    Select Case Node.Key

'       Case "x26"

'           Call Form_frmMain3.btnSabtSand_Click

'       Case "x27"

'           DoCmd.OpenForm "frmAmaliyat_gharardad"

'    End Select

End Sub