AccessTr.neT

bir türlü yapamadım yardım edebilir misiniz

zat-ı alinizin kıymetli zamanınızı boşa harcamak istemezdim  biliyorum böyle saçma şeylere ayıracak zamanınız yok ama
1 - çalışma kitabınız açılırken tanımlayamadığı değişkenler nedeniyle hata veriyor?
2 - hangi form hangi buton hangi nesne?
3 - hangi sayfadaki hangi verileri hangi kriter ve sıralamaya göre hangi durumda hangi comboya alacağız?

2008den beri üyesiniz, 2.811 mesaj yazmış, 651 konu açmışsınız acemi değilsiniz siz sorunları ve yerini ne kadar açık ifade ederseniz biz o kadar çabuk sorunu bulur zamanımız buradaki gibi abidik gubidik şeyleri yazmaya harcamak yerine sorunu çözmeye harcarız.

haklısınız anlaşılır zannetmiştim 
frmForm1 commandbutton ile liste sayfasından cmbAra içersine liste almaya çalışıyorum

aşağıdaki kodu dener misiniz?

Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection



SQL = "SELECT [tarih]  "

SQL = Sql & "FROM [liste$A:A" & "] where  not isnull([tarih]) order by [tarih]"

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=yes"""

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1

'

'   Eğer Hiç Kayıt Yoksa



If ADO_RS.RecordCount = 0 Then

    ADO_RS.Close

    ADO_CN.Close

    Set ADO_RS = Nothing

    Set ADO_CN = Nothing

    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"

    Exit Sub

End If

ADO_RS.MoveLast

ADO_RS.MoveFirst



    cmbAra.Clear

    cmbAra.Column = ADO_RS.GetRows

' yada aşağıdaki hy arası da olur

'''hy additem yöntemi______________________________

'Do

'    cmbAra.AddItem Format(ADO_RS(0), "dd.mm.yyyy")

'ADO_RS.MoveNext

'Loop Until ADO_RS.EOF

'''hy additem yöntemi______________________________Bitti

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

Ellerinize sağlık sn.berduş çok güzel olmuş

sizin gönderdiğinizde çok güzel çalışıyor asıl programa ekleyince resmini eklediğim hatayı veriyor neden olabilir
asıl programı ekleyemem çünkü kişisel bilgileri vs çıkınca önceki eklediğimin aynısı olacak 
acaba neden bu hatayı veriyordur