Bu şekilde de kaldırırsınız referansları.
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Application.References.Remove "C:\PROGRA~1\COMMON~1\System\ado\msado28.tlb"
End Sub
çok teşekkürler
bir adım ileri daha giderek
programdaki seçilmiş olan referansları listeleyecek bir kod varmıdır
ne için lazım şunun için
bir program yazdık netten dll indridik bir sürü referans ekledik sonra başka pc ye programı götüreceğiz
ama referans karşılıkları olmayınca her seferinde falanca dll yok diye hata verecek tabiki bunu ilk yaparken tüm eklediğimiz dll vb leri bir yere kopyalayabiliriz ama yapmamısız
bir kod yazalım bize tabloda veya sorguda,
kullandığımız refransı adresiyle birlikte göstersin mesela
. alan1 .............alan2
OLE Automation C:\Windows\sysWOW64\stdole2.tlb
hatta bu dosyalarıda bizim belirlediğimiz bir klasöre alıverse tadından yenmez
bir yere program mı götüreceksin
çalıştır hemen referans klasörün hazır olsun
programın bulunduğu klasörde referans alt klasörü içindekilerle seni bekliyor olsun
ustalar mutlaka yapmıştır veya yapabilir
Ben bunun buraya geleceğini biliyordum. Fakat sorunca cevap vereyim istedim.
aşağıdaki fonksiyon ile listeletebilirsiniz.
Public Function kuralreferans()
Dim ad, acik As String
Dim refim As Variant
For Each refim In Application.References
ad = refim.Name
acik = refim.FullPath
Debug.Print ad, acik, refim.Major, refim.Minor, refim.Guid
Next
End Function
tam bitiremedim
ama ekliyorum
ustalar takıldığım yerleri düzeltirlerse çok sevinirim
s.kurala çok teşekkürler
Ustalar belki bitirebilir