Visual Basic Code
Private Sub KAYDET_BTN_Click()
If Me.UyeNo_TXT = "" Or IsNull(Me.UyeNo_TXT) Or IsNull(Me.TcNo_TXT) Or Me.TcNo_TXT = "" Or IsNull(Me.AdSoyad_TXT) Or Me.AdSoyad_TXT = _
"" Or Me.DogumTarihi_TXT = "" Or IsNull(Me.DogumTarihi_TXT) Or Me.UyeKabulTarih_TXT = "" Or IsNull(Me.UyeKabulTarih_TXT) Then
If IsNull(Me.AdSoyad_TXT) Or Me.AdSoyad_TXT = "" Then
MsgBox "DÝKKAT" & vbCrLf & "Lütfen Ad Soyad bilgisini giriniz!. " & vbCrLf & "Kayit iþlemi için bu bilginin girilmesi zorunludur", vbCritical
Me.AdSoyad_TXT.SetFocus
Exit Sub
End If
If IsNull(Me.TcNo_TXT) Or Me.TcNo_TXT = "" Then
MsgBox "DÝKKAT" & vbCrLf & "Lütfen Tc kimlik numarasýný giriniz!. " & vbCrLf & "Kayit iþlemi için bu bilginin girilmesi zorunludur", vbCritical
Me.TcNo_TXT.SetFocus
Exit Sub
End If
If IsNull(Me.DogumTarihi_TXT) Or Me.DogumTarihi_TXT = "" Then
MsgBox "DÝKKAT" & vbCrLf & "Lütfen doðum tarihini giriniz!. " & vbCrLf & "Kayit iþlemi için bu bilginin girilmesi zorunludur", vbCritical
Me.DogumTarihi_TXT.SetFocus
Exit Sub
End If
If IsNull(Me.UyeKabulTarih_TXT) Or Me.UyeKabulTarih_TXT = "" Then
MsgBox "DÝKKAT" & vbCrLf & "Lütfen üye kabul karar tarihini Giriniz!. " & vbCrLf & "Kayit iþlemi için bu bilginin girilmesi zorunludur", vbCritical
Me.UyeKabulTarih_TXT.SetFocus
Exit Sub
End If
Else
If MsgBox("Girdiginiz veriler kaydedilecektir, Onayliyormusunuz ", vbExclamation + vbYesNo, "Dikkat") = vbNo Then Exit Sub
Dim rstkayit As ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM T_Uye "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
If Not rstkayit.EOF Then
.AddNew
.Fields("UyeNo") = Me.UyeNo_TXT
.Fields("AdSoyad") = Me.AdSoyad_TXT
.Fields("TcNo") = Me.TcNo_TXT
.Fields("Tabiyeti") = Me.Tabiyeti_TXT
.Fields("DogumTarihi") = Me.DogumTarihi_TXT
.Fields("DogumYeri") = Me.DogumYeri_TXT
.Fields("AnaAd") = Me.AnaAd_TXT
.Fields("BabaAd") = Me.BabaAd_TXT
.Fields("Cinsiyeti") = Me.Cinsiyeti_CBO.Column(0)
.Fields("OgrenimDurumu") = Me.OgrenimDurumu_CBO.Column(0)
.Fields("Meslegi") = Me.Meslegi_TXT
.Fields("SosyalGuvence") = Me.SosyalGuvence_CBO.Column(0)
.Fields("CepNo_1") = Me.CepNo1_TXT
.Fields("CepNo_2") = Me.CepNo2_TXT
.Fields("Irtibat") = Me.Irtibat_TXT
.Fields("Ilce") = Me.Ilce_TXT
.Fields("Sehir") = Me.Sehir_TXT
.Fields("UyeKabulTarih") = Me.UyeKabulTarih_TXT
.Fields("UyeKabulKararNo") = Me.UyeKabulKararNo_TXT
.Fields("UyeIptalTarih") = Me.UyeIptalTarih_TXT
.Fields("UyeIptalKararNo") = Me.UyeIptalKararNo_TXT
.Fields("UyelikIptalNedeni") = Me.UyelikIptalNedeni_TXT
.Fields("E_Mail") = Me.EMail_TXT
.Fields("Adres") = Me.Adres_TXT
.Fields("Aciklama") = Me.Aciklama_TXT
.Fields("KanGrubu") = Me.KanGrubu_CBO.Column(0)
.Fields("EngelNedeni") = Me.EngelNedeni_TXT
.Fields("EngelYuzdesi") = Me.EngelYuzdesi_TXT
.Fields("IlgilendigiSpor") = Me.IlgilendigiSpor_TXT
.Fields("KanadyenBaston") = Me.KanadyenBaston_OKS
.Fields("Yurutec") = Me.Yurutec_OKS
.Fields("Protez") = Me.Protez_OKS
.Fields("Ortez") = Me.Ortez_OKS
.Fields("AkuluAraba") = Me.AkuluAraba_OKS
.Fields("ManuelAraba") = Me.ManuelAraba_OKS
.Fields("Resim") = Me.Resim
.Fields("Durum") = Me.Durum_CBO.Column(0)
.Update
End If
End With
Dim fat As Control
For Each fat In Me.Form.Controls
Select Case fat.ControlType
Case acTextBox
fat.Value = ""
Case acComboBox
fat.Value = ""
Case acCheckBox
fat.Value = "0"
End Select
Next
End If
End Sub