Çözüldü Aynı formlar açılmıyor

Merhaba.
Koddaki gibi IIF olarak kullanın.
Boş hücreler olduğunda hata veriyor.

HTML:

Malesef olmadı. aşağıdaki sorgu hatasını verdi.

Public Sub imhaListeAra()
Set cn = New ADODB.Connection
Cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no;ReadOnly=False;IMEX=1;"";"
cn.Open (Cnstr)
Set rs = cn.Execute(sorgu) ' Bu hatayı gösterdi
Dim li As ListItem
Lvcontrol
If Not rs.EOF Or Not rs.BOF Then
rs.MoveFirst
Do While Not rs.EOF
With ListView1
Set li = .ListItems.Add(, , IIf(IsNull(rs.Fields(0)) = True, Empty, rs.Fields(0)))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(1)) = True, Empty, rs.Fields(1))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(2)) = True, Empty, rs.Fields(2))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(3)) = True, Empty, rs.Fields(3))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(4)) = True, Empty, rs.Fields(4))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(5)) = True, Empty, rs.Fields(5))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(6)) = True, Empty, rs.Fields(6))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(7)) = True, Empty, rs.Fields(7))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(8)) = True, Empty, rs.Fields(8))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(9)) = True, Empty, rs.Fields(9))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(10)) = True, Empty, rs.Fields(10))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(11)) = True, Empty, rs.Fields(11))
End With

rs.MoveNext
Loop
txt = "": txt2 = "": txt3 = ""
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Bende hata vermemişti orda.
Hata satırının üst satırına on error resume next ekleyin.

Teşekkürler. Malesef açıldı ama bu defada başka sorun çıkardı.
Satır1 ikilendi. Altta

Rica ederim.
Önceki konunuzda bunun için çözüm eklemiştik move 1 gibi hatırlıyorsanız.

Teşekkürler emeğine sağlık .Evet haklısın hallettim şimdilik konu kapanmasın tek safyada denedim sorun yok. tümünü test edim. Cevap yazıcam.

Public Sub imhaListeAra()
Set cn = New ADODB.Connection
Cnstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=no;ReadOnly=False;IMEX=1;"";"
cn.Open (Cnstr)
Set rs = cn.Execute(sorgu) ' Bu formdada aynı hatayı aldım.
Dim li As ListItem
Lvcontrol
If Not rs.EOF Or Not rs.BOF Then
rs.MoveFirst
rs.Move 1
Do While Not rs.EOF
With ListView1

Set li = .ListItems.Add(, , IIf(IsNull(rs.Fields(0)) = True, Empty, rs.Fields(0)))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(1)) = True, Empty, rs.Fields(1))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(2)) = True, Empty, rs.Fields(2))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(3)) = True, Empty, rs.Fields(3))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(4)) = True, Empty, rs.Fields(4))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(5)) = True, Empty, rs.Fields(5))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(6)) = True, Empty, rs.Fields(6))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(7)) = True, Empty, rs.Fields(7))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(8)) = True, Empty, rs.Fields(8))
li.ListSubItems.Add , , IIf(IsNull(rs.Fields(9)) = True, Empty, rs.Fields(9))

End With

rs.MoveNext
Loop
txt = "": txt2 = "": txt3 = ""
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub


Bu defa da aynı acaba formda farklılık olması gereken bir durum mu var yada bunların çakışmasını engelleyecek bir kod varmı. nedir bilemedim.

Abey yazdıklarımı tam okumuyor musunuz?
On error resume next ekleyin yazıyorum kodda yok.

Teşekkürler emeğine yüreğine sağlık bende bir tek ona eklememişim onu örnek vermişim. hatta gene mi dicektim yazdığınızı görünce fark ettim sağolun. konu kilit Tamamı sorunsuz oldu.

Abey mesela alttaki kodda F12 ye kadar yazmışsınız imha sayfası için ama sütun sayısı 9 a kadar.
Siz 12 ye kadar yazdığınız için hata var ilk olarak.

HTML:

11 nolu örnek tek formda olunca çalışıyor fakat 2. formada ekleyince gene aynı sorun oldu. ama olsun önceki yol işimi gördü genede emeğine sağlık.

imha sayfası için öncedende yazdığım gibi sütun sayısı 9 ama alttaki kodda li.ListSubItems.Add , , rs.Fields(9) burdan itibaren fazlaolmuş bence.
Kısaca sütun sayısına göre tümünü düzeltin userformdaki kodların.
On error resume next tam çözüm değil.

HTML:

okinava14' Alıntı:

11 nolu örnek tek formda olunca çalışıyor fakat 2. formada ekleyince gene aynı sorun oldu. ama olsun önceki yol işimi gördü genede emeğine sağlık.

Genişletmek için tıkla...

Rica ederim.
Kısaca sayfadaki sütun sayısına göre kodları ayarlayın ileride başka hatalar almamak için.

İlgin ve alakana çok ama çok teşekkürler onları tek tek incelicem.

Dosyayı tek tek inceledikçe f1,f2....gibi yazılanlar gereksiz olmuş bence.
Listviwe formatlı alınırken olabilir ama alttaki gibi * olarak bütüm [F] olarak yazmaya gerek yok abey.
Bu şekilde sütun sayısı olayıylada uğraşmak zorunda kalınmaz.
Tarih alanı olasaydı [F1] gibi tek tek yazılabilinirdi ama dosyanızda gerek yok.

sorgu = "Select * from [imha$] where [F1] <> '" & "S.NO" & "'"

Tarih formatı var o hatayı kontrol ediyodum daha önceden 16 ve 17 cevaplarda bunu denemiştim ve çok farklı yerlere götürmüştü beni kodların uyumsuzluğu yani. Ben su an tarih kodunu arıyorum arşivimden. Genel listede taranan tarih modu yıl değil açık tarih olacak.

Format([F1].'dd.mm.yyyy'),[F2] ,[F3]
Yukardaki gibi formatlayabilirsiniz kalıp olarak.

Çok fazla zamanını aldım ama bende TextBox-Combobox tarih kodu var ve ListView formatı yok bunuda nereye koyacağımı bulamadım.
Son bir yardım lütfen.