Skip to main content

AccessTr.neT


Access ve Autocad Dosyaları

Access ve Autocad Dosyaları

Çözüldü #3
AUTOCADİN kendi activex i var onda direkt olarak görüntüyü görebiliyorsun ve autocad yüklü ise activex de yüklenmiştir zaten yüklenmiştir sen onu formuna ekliyeceksin sonrada
[Resim: components.jpg]
bir düğme zaten yollarıda tabloda

Private Sub komut1_Click()
Dim dosyayolu As String
dosyayolu = me.metinkutusu
If isimayır(dosyayolu) = True Then
Dwgizleme.DwgFileName = dosyayolu
Dwgizleme.Visible = True
Dwgizleme.BackColor = RGB(0, 0, 0)
End If
End Sub
________________________________________


Public Function isimayır(isim) As Boolean
If Left(isim, 4) = " " Then
isim = False
Else
If Dir(isim) <> "" Then
isimayır = True
Else
isimayır = False
End If

End If
End Function
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Access ve Autocad Dosyaları - Yazar: Soul - 03/06/2009, 10:32
Cvp: Access ve Autocad Dosyaları - Yazar: tdsharun - 03/06/2009, 10:46
Cvp: Access ve Autocad Dosyaları - Yazar: esrefigit - 03/06/2009, 11:44
Cvp: Access ve Autocad Dosyaları - Yazar: mesudi - 03/06/2009, 13:25
Cvp: Access ve Autocad Dosyaları - Yazar: Soul - 04/06/2009, 01:08
Cvp: Access ve Autocad Dosyaları - Yazar: karadam17 - 08/04/2011, 13:25
Task