Ağdaki pc kapalı ise

[acar6783]

On Error GoTo hata
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & "xxx.mdb" & ""
 Sorgu = "SELECT * FROM ml WHERE Sıra LIKE '" & "" & "%' "
        Rs.Open Sorgu, Con, 1, 3

        ml.Range("A2").CopyFromRecordset Rs

        Rs.Close: Con.Close
hata: MsgBox "Bağlantı Yok"

Burada ağdaki pc kapalı ise bağlantı yok uyarısı vermek istedim.
On error yerine farklı bir kod yazabilirmiyim?

 

[antonio]

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & "xxx.mdb" & ""
if Con is nothing then
    msgbox "Bağlantı yok"
    Exit sub
end if

 

[acar6783]

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & "xxx.mdb" & ""
if Con is nothing then
    msgbox "Bağlantı yok"
    Exit sub
end if

Bazen akla gelmiyor işte
Teşekkürler...

 

[antonio]

Rica ederim. Dönüş için bende teşekkür ederim.