+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Varsa Getirsin Yoksa Hem Kayıt Yapsın Hem Yazsın (/konu-veri-varsa-getirsin-yoksa-hem-kayit-yapsin-hem-yazsin.html)
Veri Varsa Getirsin Yoksa Hem Kayıt Yapsın Hem Yazsın - hegu - 11/10/2023
Tüm Access üyelerini sevgi ve saygılar,
Ekteki örnekte Kisiler tablosu ve Tablo2 tablosu var. Formlarda Tablo1 formuna giriş yaparken eğer protokol numarası kisiler tablosunda varsa kisinin adını soyadını getiriyor. Fakat kisiler tablosunda olmayan birini giriş yaptığımda giriş yaptığım kişinin protokol ve adı soyadı kisiler tablosuna otomatik kayıt yapılabilir mi? Teşekkür ederim.
RE: Veri Varsa Getirsin Yoksa Hem Kayıt Yapsın Hem Yazsın - mozuer - 11/10/2023
Aşağıdaki kodları dener misiniz..
Private Sub addNew()
Dim insSQL As String, myName As String, myPrtc As String
myName = Nz(Me.HastaAdi, "")
myPrtc = Nz(Me.Protokol, "")
If myName <> "" And myPrtc <> "" Then
insSQL = "INSERT INTO Kisiler (HastaAdi, Protokol) VALUES ('" & myName & "', '" & myPrtc & "')"
CurrentDb.Execute insSQL
End If
End Sub
Private Sub HastaAdi_AfterUpdate()
Dim i As Integer
i = DCount("*", "Kisiler", "[Protokol]='" & Me.Protokol & "'")
If i = 0 Then
Call addNew
End If
End Sub
Private Sub Protokol_AfterUpdate()
Dim myName As String
myName = Nz(DLookup("[HastaAdi]", "Kisiler", "[Protokol]='" & Me.Protokol & "'"), "")
If myName <> "" Then
Me.HastaAdi = Dlookup ("[HastaAdi]", "Kisiler", "[Protokol]='" & Me.Protokol & "'")
Else
Call addNew
End If
End Sub
RE: Veri Varsa Getirsin Yoksa Hem Kayıt Yapsın Hem Yazsın - hegu - 11/10/2023
Sayın mozuer,
Emeğine sağlık teşekkür ederim.