sayın aydın3838 ilginize teşekkürler.sanırım konuyu yanlış anlattım ben. ilişkisiz formdaki kaydet butonuna basınca mükerrer kontrolu yapılacak.numara=ad , ad=soyad ve numara=soyad gibi.bu üç olayda sorun yoksa tabloya kayıt yapacak.
bir sorum daha olacak arkadaşlar. ekteki örnekte excelden al butonuna basınca dosya almakta sorunum var. öğrenci nosunu integer yaptığımda sorun çıkıyor. string yapınca dosyayı alıyor. anlamadım?

selam siz öğrencinin adını ve soy adını gireceksiniz ve kaydet yapınca kontrol istiyorsunuz
bu sizi yavaşlatır ama
metin kutusunun çıkıldığında olayında ise siz mükerrerlik var ise kaydet yapamazsınız zaten illaki ismi düzenlemeniz gerekli
eklediğim kodu çoğaltıp değişkenlerini ve alanlarını düzeltip kaydetmek için kullandığınız sql sorgudan önce ekleyip aynı işlemi yapabilirsiniz

saygılar

Sayın aydın3838 kaydet click e aşağıdaki kodu yazdığımda okul girilmesine rağmen okul girilmedi uyarısı veriyor.


Private Sub Kaydet_Click()
On Error GoTo Err_KAYDET_Click

If IsNull(Me.OGRENCİNO) Or Me.OGRENCİNO = "" Then MsgBox "Öğrenci No Girilmedi", vbExclamation, "Sistem Uyarı": Me.OGRENCİNO.SetFocus: Exit Sub
If IsNull(Me.OGRENCİAD) Or Me.OGRENCİAD = "" Then MsgBox "Öğrenci Adı Girilmedi", vbExclamation, "Sistem Uyarı": Me.OGRENCİAD.SetFocus: Exit Sub
If IsNull(Me.OGRENCİSOYAD) Or Me.OGRENCİSOYAD = "" Then MsgBox "Öğrenci Soyadı Girilmedi", vbExclamation, "Sistem Uyarı": Me.OGRENCİSOYAD.SetFocus: Exit Sub
If IsNull(Me.SINIF) Or Me.SINIF = "" Then MsgBox "Öğrenci Sınıfı Girilmedi", vbExclamation, "Sistem Uyarı": Me.SINIF.SetFocus: Exit Sub
If IsNull(Me.Sube) Or Me.Sube = "" Then MsgBox "Öğrenci Şubesi Girilmedi", vbExclamation, "Sistem Uyarı": Me.Sube.SetFocus: Exit Sub
If IsNull(Me.Okul) Or Me.Okul Then MsgBox "Öğrenci Okulu Girilmedi", vbExclamation, "Sistem Uyarı": Me.Okul.SetFocus: Exit Sub

Dim SD1 As String
Dim SD2 As String
Dim SD3 As String
Dim stLinkCriteria1 As String
Dim stLinkCriteria2 As String
Dim stLinkCriteria3 As String

SD1 = Me.OGRENCİNO.Value
SD2 = Me.OGRENCİAD
SD3 = Me.OGRENCİSOYAD

stLinkCriteria1 = "[OGRENCİNO]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[OGRENCİAD]=" & "'" & SD2 & "'"
stLinkCriteria3 = "[OGRENCİSOYAD]=" & "'" & SD3 & "'"

If DCount("*", "OGRENCİLER", " OGRENCİNO ='" & Me.OGRENCİNO & "'") > 0 Then
If DCount("*", "OGRENCİLER", " OGRENCİAD ='" & Me.OGRENCİAD & "'") > 0 Then
If DCount("*", "OGRENCİLER", " OGRENCİSOYAD ='" & Me.OGRENCİSOYAD & "'") > 0 Then

MsgBox "" & vbCr & SD1 & " " & vbCr & vbCr & "Numaralı kayıt var.", vbExclamation, "Sistem Uyarı"
MsgBox "" & vbCr & SD2 & " " & vbCr & vbCr & "İsimli kayıt var", vbExclamation, "Sistem Uyarı"
MsgBox "" & vbCr & SD3 & " " & vbCr & vbCr & "İsimli kayıt var", vbExclamation, "Sistem Uyarı"

Me.OGRENCİNO.SetFocus
Me.OGRENCİAD.SetFocus
Me.OGRENCİSOYAD.SetFocus

Exit Sub
End If
End If
End If


SQL = "INSERT INTO OGRENCİLER(OGRENCİNO, OGRENCİAD, OGRENCİSOYAD, SINIF, SUBE, OKUL) values ('" & OGRENCİNO & "', '" & OGRENCİAD & "' , '" & OGRENCİSOYAD & "', '" & SINIF & "', '" & Sube & "', '" & Okul & "')"
CurrentDb.Execute SQL


Me.OGRENCİNO = ""
Me.OGRENCİAD = ""
Me.OGRENCİSOYAD = ""
Me.SINIF = ""
Me.Sube = ""
Me.Okul = ""
Me.OGRENCİNO.Requery
Me.OGRENCİAD.Requery
Me.OGRENCİSOYAD.Requery
Me.SINIF.Requery
Me.Sube.Requery
Me.Okul.Requery
Me.Liste34.Requery


Exit_KAYDET_Click:
Exit Sub
Err_KAYDET_Click:
MsgBox "İşlem Yapılmadı", vbExclamation, "Sistem Mesajı"
Resume Exit_KAYDET_Click

End Sub