(02/03/2021, 19:07)Oğuz Türkyılmaz yazdı: Feraz Hocam Sıralatmada sorun yok sıralıyor sadece eklenen kayıt eklendiği anda listboxda görünsün istiyorum. Formu kapatıp açmaya gerek kalmasın.

(02/03/2021, 19:14)berduş yazdı: Ozaman liste kutusunu doldurma kodunu bağımsız bir fonksiyon olarak yazıp hem form yükleme hem de kayıt ekleme silme vs vs komutlarından bu fonksiyonu caagirmaniz daha uygun olur

Sub LstBxDoldur()

With Me.ListBox2

        .ColumnCount = 7

        .RowSource = Range("Baslik").Address  '"Tablo1" 'Worksheets(1).Name & "!A1:G1"

        .ColumnWidths = "30;70;100;70;240;130;70"

End With

With Me.ListBox1

        .ColumnCount = 7

        .ColumnWidths = "30;70;90;70;240;100;110"

End With

    txt_MasrafTarihi = Format(Date, "dd/mm/yyyy")

'hy______________________________________Recordset Deneme

Dim Sql As String



Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection

    'Space$(20 - Len([F7] & ''))

SQL = "SELECT [F1],[F2],[F3],[F4],[F5],[F6],Space$(20 - Len(format([F7],'#,##0.00 TL') & '')) & format([F7],'#,##0.00 TL')" & _

      "FROM [Ana Sayfa$];"

'Space$(11-Len([F7])) & [F7] & "TL"

'#,##0.00

Set ADO_RS = New ADODB.Recordset

Set ADO_CN = New ADODB.Connection



ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _

                          ";extended properties=""excel 8.0;hdr=no"""

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1

'

'   Eğer Hiç Kayıt Yoksa

If ADO_RS.RecordCount = 0 Then GoTo son



ADO_RS.MoveLast

ADO_RS.MoveFirst

ADO_RS.MoveNext

 

ListBox1.Column = ADO_RS.GetRows



son:

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

End Sub

Private Sub UserForm_Initialize()



Application.ScreenUpdating = False  'excelde

LstBxDoldur

Application.ScreenUpdating = True   'excelde



End Sub