30-01-2015, 12:31
merhabalar,
accessimde odbc ile sql bağlantılı tablolar mevcut (linked table). herhangi bir sebeple bağlantı kurulamazsa bir ileti ekranı ile kullanıcıya bildirilsin ve docmd.quit ile program kapatılsın istiyorum. aşağıdaki kodu ilk açılış formunun open eventine yazarak yapmaya çalıştım. ama formu açarken program kitleniyor. bu kodu ilk formun açılış event'ine değilde programın yani accesin ilk açılış yordamına yazabilirmiyim, yani bir modüle veya class gibi? daha hiç form yüklenemden bağlantı yok ise program kapansın
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
"server=111.11.11.111;uid=username;pwd=11111;database=dbname"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
MsgBox ("Sisteme giriş yapıyorsunuz...")
Else
MsgBox ("Bağlantı Kurulamıyor!!")
DoCmd.Quit
End If
rst.Close
'cn.Close
Set rst = Nothing
'Set cn = Nothing
accessimde odbc ile sql bağlantılı tablolar mevcut (linked table). herhangi bir sebeple bağlantı kurulamazsa bir ileti ekranı ile kullanıcıya bildirilsin ve docmd.quit ile program kapatılsın istiyorum. aşağıdaki kodu ilk açılış formunun open eventine yazarak yapmaya çalıştım. ama formu açarken program kitleniyor. bu kodu ilk formun açılış event'ine değilde programın yani accesin ilk açılış yordamına yazabilirmiyim, yani bir modüle veya class gibi? daha hiç form yüklenemden bağlantı yok ise program kapansın
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
"server=111.11.11.111;uid=username;pwd=11111;database=dbname"
On Error Resume Next
cn.Open
If cn.State = adStateOpen Then
MsgBox ("Sisteme giriş yapıyorsunuz...")
Else
MsgBox ("Bağlantı Kurulamıyor!!")
DoCmd.Quit
End If
rst.Close
'cn.Close
Set rst = Nothing
'Set cn = Nothing
