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

[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