Class:
[code=vba]
'*********************************************************
'*********************************************************
'*** Zeki Gürsoy 2009 ***
'*** www.access-sql.com ***
'*********************************************************
'*********************************************************
Private WithEvents LBL As MSForms.Label
'---------------------
Private vMax As Single
Private vMin As Sing

Elimde aşağıda gördüğünüz dosya ismini formdaki bir unbound text box'a kaydeden bir kod mevcut. Bu kodu modBrwsforXLS adıyla bir modül olarak kayıt ettim. (Kod test modunda çalışıyor.)

Sorum ise bu modüldeki GetOpenFile isimli Function'ı formdaki bir butonla nasıl ilişkilendirebilirim? (On Click)

[code=vba]Option Compare Database

' This code was originally written by Ken Getz.
' It is not to be altered or distributed, 'except as part of an application.
' You are free to use it in any

bir modul oluşturup modulümüze bu kodu yazalım

[color=#FF0000]Public Function SQLProsedur(Formx As Form, SQL_Prosedur As String)

Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sorgu1 As String
Set cn = New ADODB.Connection
sorgu1 = SQL_Prosedur
cn.ConnectionString = verinedir()
cn.Open
rst.CursorLocation = adUseClient
rst.Open sorgu1, cn, adOpenKeyset, adLockOptimistic
Set Formx.Recordset = rst
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing

End Functio

Yeni bir modul açalım ve bu kodları yazalım

[color=#FF0000]Public Function hatagec()
On Error Resume Next
End Function
Public Function BuGun()
BuGun = Date
End Function
Public Function Ileri()
DoCmd.GoToRecord , , acNext
End Function
Public Function Geri()
DoCmd.GoToRecord , , acPrevious
End Function
Public Function EnBas()
DoCmd.GoToRecord , , acFirst
End Function
Public Function EnSon()
DoCmd.GoToRecord , , acLast
End Function
Public Function Yeni()
DoCmd.GoToRecord , , a