Modül Kısaltması

[hlojan]

15 tane prosüdür yazcam modüle

bütün prosüdürlere ortak tanımalama yap mak istiorum

Yol =" c: ... /./././."

gibi mesela.

Aynı modüle de bütün prosüdürlerde geçerli olsun. Yol yazdığımda aldılasın


Birde ADO Connection için bir kolaylık yapabilirmiyiz

Set con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & ""

sürekli prosüdürlerde bunu yazmıım

Baglan dediğimde bunu yapsın mesala

Yardımalrınızı bekliyorum

 

[Asri]

Bir modül içinde bir çok prosedür de ortak değişken kullanmak için kodların en başına Dim ile değişkenleri tanımlanamız ve ilk prosedür de bu değişkenere değer atamanız yeterli.

Ancak sormak istediğiniz bir çok modül içinde ortak değişken ve prosedür kullanmak ise, aşağıdaki şekilde yapmanız yeterli olur.

Her yerde geçerli olacak değeri atanmış değişken için aşağıdaki şekilde kullanabilir siniz.

Public Const yol As String = "c:\deneme"

ADO için aşağıdaki şekilde kullanabilir siniz.
Burada önemli olan nokta "Function" un başındaki "Public"

Public Function Connect(Server, database) As Boolean
 
    Set CN = New ADODB.Connection
    On Error Resume Next
 
    With CN
         .ConnectionString = "Provider=SQLOLEDB.1;" & _
                             "Persist Security Info=False;" & _
                             "Initial Catalog=" & database & ";" & _
                             "Data Source=" & Server & ";" & _
                             "User ID=kullanici;Password=sifre;"
        .Open
    End With

    If CN.State = 0 Then
        Connect = False
    Else
        Connect = True
    End If
 
End Function

 

[hlojan]

Public Const wb As Workbook = ActiveWorkbook

hata veriyor mesela

 

[Asri]

Bu şekilde deneyin.

Private awb As Workbook

Public Property Get wb() As Workbook
  Const sPath As String = "c:\deneme\kitap1.xlsx"
  Dim sFile As String

  If awb Is Nothing Then
      sFile = Dir(sPath)
      On Error Resume Next
      Set awb = Workbooks(sFile)
      If awb Is Nothing Then
        Set awb = Workbooks.Open(sPath)
      End If
      On Error GoTo 0
  End If
  Set wb = awb
End Property

Sub Test()
 MsgBox wb.Worksheets.Count
End Sub