Kapalı dosyaya kayıt ve mükerrer kontrolu

[kelkitli]

Selamlar,

Private Sub CommandButton1_Click()
Dim baglanti As Object
Dim Nsql As String
Dim kayit As Object

Set baglanti = CreateObject("ADODB.Connection")
Set kayit = CreateObject("ADODB.Recordset")

With baglanti
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=D:\Test\izinler.xls;" & _
"Extended Properties=Excel 8.0;"
.Open
End With

Nsql = "SELECT * FROM [Veritabani$] Where AdiSoyadi='" & TextBox3 & "'"

kayit.Open Nsql, baglanti, 1, 3

If kayit.RecordCount = 0 Then
kayit.AddNew
En son satır
kayit("Sira_No")=?
kayit("yaka_no") = TextBox1
kayit("sicil_no") = TextBox2
kayit("adi_soyadi") = TextBox3
kayit("tarih") = TextBox4
kayit.Update
Else
MsgBox TextBox3 & " adli kisi bu ay izin kullandı."
End If

baglanti.Close
Set kayit = Nothing
Set baglanti = Nothing
End Sub

Yukarıdaki kodlarla kayıt yaparken A sütununa otomatik sıra no yazmasını ve dolu satırların sonundaki ilk boş satıra yazmasını istiyorum. Bir de mükerrer kontrolü yaparken şu kişi bu ay izin kullandımı ona bakılmalı. Yani bu kişiye ait izin kaydedilmesi istenilen ay içinde ise "bu kişi bu ay izin kullandı" deyip çıkmalı. Saygılar.

 

[kelkitli]

Değerli Dostlar,

Nsql = "SELECT * FROM [Sayfa1$] where ADI_SOYADI='" & TextBox3 & "' AND İZİN_TARİHİ = '" & TextBox4& "'"

Şeklinde yapınca gün olarak kontrol ediyor. Ama ben TextBox4 e yazılı ay aransın istiyorum.

 

[Orion1]

Nsql = "SELECT * FROM [Sayfa1$] where ADI_SOYADI='" & TextBox3 & "' AND  datepart(month,İZİN_TARİHİ) = '" & TextBox4& "'"

yukarıdakini deneyin olöamazsa birde aşağıdakini deneyin :cooL:

Nsql = "SELECT * FROM [Sayfa1$] where ADI_SOYADI='" & TextBox3 & "' AND  datepart(month,İZİN_TARİHİ) = " & cdate(TextBox4)

cdate fonksiyonu olmazsa cdbl deneyiniz

 

[kelkitli]

Cevabınız için teşekkür ederim Hocam.

kayit.Open Nsql, baglanti, 1, 3

Kodları uyguladığımda şu kısımda hata oluşuyor.

 

[kelkitli]

Şu şekilde oldu.

Nsql = "SELECT * FROM [Sayfa1$] where ADI_SOYADI='" & TextBox3 & "' AND Month(İZİN_TARİHİ) = '" & Month(TextBox4) & "'"

Ancak sayfaya rastgele kayıt yapıyor. Boşluklar oluşuyor. Nasıl bir sıra numarası ile sıralı kaydederim.