Ana listedeki(a ve b sütunları) tarih ve fiş no bilgilerini, kontrol edilen(c ve d sütunları) listedeki bilgilerle kaşılaştırıp kalan listeye(e ve f sütunları) yazmasını istiyorum ama bir türlü doğru sorguyu oluşturamadım. Yardımlarınız için şimdiden teşekkürler.
Kod:
Dim baglan, kayitseti As Object
Sub sorgu()
baglanti
S = "SELECT * FROM [Sayfa1$] WHERE [Tarih] ='04/01/2011' And [Fiş No] = 1"
kayitseti.Open S, baglan
If kayitseti.EOF Then
kayitseti.Close
baglan.Close
Set kayitseti = Nothing
Set baglan = Nothing
Else
MsgBox "e"
kayitseti.Close
baglan.Close
Set kayitseti = Nothing
Set baglan = Nothing
End If
End Sub
Sub baglanti()
Set baglan = CreateObject("ADODB.Connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"/KalanListeyiBul.xlsm;extended properties=""excel 8.0;hdr=yes"""
Set kayitseti = New ADODB.Recordset
End Sub
Ekli dosyalar
-
11.2 KB Görüntüleme: 26