Hata Mesajı

[Mdemir63]

Selamlar

Arkadaşlar Kendi bilgisayarımda normal çalışan excel dosyamı
Başka bilgisayarda denedim resimdeki gibi bir pencere çıkıyor nedeni ne olabilir?

Not:her iki bilgisayarda da ofis2010 kullanılıyor

Saygılar

 

[Korhan Ayhan]

Merhaba,

DEBUG tuşuna basmadığınız sürece bu ekran bizlere çok fazla birşey ifade etmez.

Hata veren sarı renkli satırı görmek çözüm için daha faydalı olacaktır.

 

[Mdemir63]

@Korhan Ayhan Hocam
Resim ekte

 

[ÖmerFaruk]

Not IsNull([AÇIKLAMA])

olarak denermisiniz?

 

[Mdemir63]

@ÖmerFaruk Hocam
denedim olmadı.

 

[ÖmerFaruk]

Sorgu satırı sonuçta bir metinsel ifade. Burada neden hata versin ki!
Sorgu değişkeninin tanımlanması doğru mu acaba?

 

[Mdemir63]

@ÖmerFaruk Hocam

örnek dosya ekliyorum
inceleyebilir misiniz?

 

[Korhan Ayhan]

Dosyanız bende sorun vermeden çalıştı. Bence bilgisayarınızı kapatıp açın sonra tekrar deneyin.

 

[Mdemir63]

Hocam ekteki video daki gibi yapıyor

 

[Mdemir63]

Dosyanız bende sorun vermeden çalıştı. Bence bilgisayarınızı kapatıp açın sonra tekrar deneyin.

@Korhan Ayhan Hocam
Benim Bilgisayarımda da hata vermiyor
diğer bilgisayarda veriyor bu hatayı anlayamadım.

Saygılar

 

[Korhan Ayhan]

O zaman diğer bilgisayarı kapatıp-açın sonra deneme yapın. Arkaplanda birşeyler sorun yaratıyor olabilir.

 

[Mdemir63]

O zaman diğer bilgisayarı kapatıp-açın sonra deneme yapın. Arkaplanda birşeyler sorun yaratıyor olabilir.

Tamam hocam
onu deneyim.

Ayrıca hocam
Ciro sayfasında herhangi bir bilgi olmadığında (Eğer gönderdiğim dosyada deneyebilirseniz) başka bir hata veriyor.
Onu da şimdi farkettim.


Saygılar

 

[Orion1]

Alan adı AÇIKLAMA , Türkçe karakter içeriyor.

 

[Korhan Ayhan]

Sayfada hiç kayıt yoksa ve kod içinde siz bunu sorgulamıyorsanız hata vermesi normal değil mi?

If sorgusu ile bu hatayı aşabileceğinizi düşünüyorum.

 

[Mdemir63]

Alan adı AÇIKLAMA , Türkçe karakter içeriyor.

Evren Hocam
sorun Türkçe karakter değil sanırım.

 

[Mdemir63]

Sayfada hiç kayıt yoksa ve kod içinde siz bunu sorgulamıyorsanız hata vermesi normal değil mi?

If sorgusu ile bu hatayı aşabileceğinizi düşünüyorum.

@Korhan Ayhan Hocam
if sorgusunu nerede yapacağımı bilemedim.

ayrıca: Bilgisayarı yeniden başlattım ama yine olmadı

Saygılar

 

[Mdemir63]

Selamlar

if sorgusu bölümünü çözdüm .
ama diğeri devam ediyor

 

[Korhan Ayhan]

Bir de bu şekilde deneyiniz.

Private Sub UserForm_Initialize()
    ListBox1.List = Application.GetCustomListContents(4)
   
    Set con = VBA.CreateObject("adodb.Connection")
   
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
   
    sorgu = "select distinct F2 from [Ciro$] where F2 is not null"
    Set rs = con.Execute(sorgu)
    If rs.RecordCount > 0 Then ListBox2.Column = rs.getrows
End Sub

Private Sub UserForm_Activate()
    If ListBox2.ListCount > 0 Then ListBox2.Selected(0) = True
End Sub

 

[Mdemir63]

@Korhan Ayhan Hocam
Teşekkür ederim

Saygılar

 

[Mdemir63]

@Korhan Ayhan Hocam
unutmuşum, Bilgisayarı kapatıp yeniden açınca düzeldi.
ilginize teşekkür ederim.

Saygılar