13-07-2014, 02:15
Function'u kodla çalıştırırken Function ismini tablodan almak mümkün mü?
Docmd.OpenFunction Metodunu kullanmaya çalışıyorum.
Access yardımındaki şu örneği de inceledim ama function'un adını tablodan aldırınca kabul etmiyor:
Dim objFunction As AccessObject
Dim strFunction As String
Set objFunction = Application.AllFunctions(0)
DoCmd.OpenFunction FunctionName:=objFunction.Name, _
View:=acViewDesign, Mode:=acReadOnly
Ben örneği şu şekilde düzenledim:
Dim objFunction As AccessObject
Dim strFunction As String
Set objFunction = Me.AltMenü.Column(4)
DoCmd.OpenFunction objFunction, acViewDesign, acReadOnly
Örneğimdeki 3.Satırı aşağıdaki şekilde yazınca function'u çalıştırıyor ama çalıştırdığı halde "Object required" hatası veriyor:
Set objFunction = GirisFn.KasalarAc
Column(4)'te yazan ifadede tam olarak: GirisFn.KasalarAc
Function adını açıkça yazmak yerine AltMenü.Colum(4)'ten aldırmak istiyorum.
Yardımcı olursanız sevinirim.
Docmd.OpenFunction Metodunu kullanmaya çalışıyorum.
Access yardımındaki şu örneği de inceledim ama function'un adını tablodan aldırınca kabul etmiyor:
Dim objFunction As AccessObject
Dim strFunction As String
Set objFunction = Application.AllFunctions(0)
DoCmd.OpenFunction FunctionName:=objFunction.Name, _
View:=acViewDesign, Mode:=acReadOnly
Ben örneği şu şekilde düzenledim:
Dim objFunction As AccessObject
Dim strFunction As String
Set objFunction = Me.AltMenü.Column(4)
DoCmd.OpenFunction objFunction, acViewDesign, acReadOnly
Örneğimdeki 3.Satırı aşağıdaki şekilde yazınca function'u çalıştırıyor ama çalıştırdığı halde "Object required" hatası veriyor:
Set objFunction = GirisFn.KasalarAc
Column(4)'te yazan ifadede tam olarak: GirisFn.KasalarAc
Function adını açıkça yazmak yerine AltMenü.Colum(4)'ten aldırmak istiyorum.
Yardımcı olursanız sevinirim.

