tüm alanlar boşsa bile ekliyor.
Private Sub btnKaydet_Click()
Dim SqlEkle As String
Dim dTrh
If IsNull(Me.txtdTarihi) Then dTrh = "Null" Else dTrh = CLng(txtdTarihi) ' yada dTrh = "Null" yerine dTrh = CLng(Date) de yazılabilir
If MsgBox("Girdiginiz veriler kaydedilecektir, Onayliyormusunuz ", vbExclamation + vbYesNo, "Dikkat") = vbYes Then
SqlEkle = " insert into T_Personel " & _
"( uyeNo, AdiSoyadi, tcNo, dTarihi, dYeri, hesapBakiyesi, durumu, belge ) values " & _
"(" & Nz(Me.txtuyeNo, "Null") & ",'" & Nz(Me.txtadiSoyadi, "") & "','" & Nz(Me.txttcNo, "") & "', " & _
dTrh & ",'" & Nz(Me.cbodYeri, "") & "', ccur('" & _
Nz(Me.txthesapBakiyesi, "0") & "')," & Nz(Me.okdurumu, 0) & ",'#" & Me.Ek_Belge & "#')"
CurrentDb.Execute SqlEkle
Me.txtuyeNo = Null
Me.txtadiSoyadi = ""
Me.txttcNo = ""
Me.txtdTarihi = Null
Me.cbodYeri = ""
Me.txthesapBakiyesi = Null
Me.okdurumu = 0
Me.Ek_Belge = ""
txtuyeNo.SetFocus
End If
End Sub
