AccessTr.neT

birkaç defa denedim ilginç bir şekilde şu an list1.clear çalıştı)

(25/03/2020, 02:07)feraz yazdı: [ -> ]Exit Sub eklenmeli

bence burada gerek yok hata yoksa zaten err.num=0 olacağından hemen çıkıyor

form2 referansı eklenmiş belki de o nedenle çalışıyordur ama ilkinde neden hata verdi ben onu anlamaya çalışıyorum

aslında sadece CreaTabellaTmp() fonksiyonuna list1.clear eklemeniz yeterliymiş)

 Set MiaTabellaTmp = MioDb.CreateTableDef("TabellaTmp")'<-- bu satırın hemen altına eklenecek

    Me.List1.Clear'<--eklenen satır

(25/03/2020, 02:11)berduş yazdı: [ -> ]bence burada gerek yok hata yoksa zaten err.num=0 olacağından hemen çıkıyor

Sizin kodları olduğu gibi çalıştırınca mesaj kutusu çıkıyordu sıfır olarak.

Arıca listbox resimdeki yerden eklendiği için bence clear yöntemi çalışıyor exceldede cllear kullanılıyor demekki aynısı.

(25/03/2020, 02:24)feraz yazdı: [ -> ]mesaj kutusu çıkıyordu sıfır olarak.

o satırı sonradan değiştirmiştim başına if err.number<>0 then eklemiştim

Berduş hocam listbox aynı exceldeki gibi ona göre ayarladım ve ışık hızında çalışıyor

Sadece alttaki kodu değiştirdim.

Public Sub CreaTabellaTmp(SrqTxt As String)



    Dim rs As Object

    Dim cn As Object

    

    Set rs = CreateObject("ADODB.Recordset")

    Set cn = CreateObject("ADODB.Connection")



    Set cn = CurrentProject.Connection

    rs.Open SrqTxt, cn, , , 1



    With Me.List1

        .ColumnCount = 3

        .ColumnWidths = "30;30"

        .Column = rs.GetRows

    End With



    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing

End Sub

Teşekkürler)

(25/03/2020, 02:47)berduş yazdı: [ -> ]Teşekkürler)

Sizede teşekkürler Gerisi üstada kalmış 3 sütunmu 4 sütunmu çıkacak listbıxtta ben 3 olarak yapmışım.