hgetir = Dlookup ("last(kimlik)", "TBL_HASTA_BILGI")
kodu ile TBL_HASTA_BILGI tablosundan son kaydı alıyorsunuz ve devamındaki kodlarla bu kimlik numarasına göre forma son kayıttaki verileri aktarıyorsunuz.
devamında da KAYNAK tablosundaki ilk kayıt değiştiriliyor,
Private Sub hasta_kontrol()
kodunu
Kod:
If IsNull(hgetir) Or hgetir = 0 Or hgetir = "" Or hgetir = Empty Then 'yoksa yeni hasta kayıt formunu açıp hastayı ekleyeceğiz
mesaj = MsgBox("Bu isimli kişi Hasta veritabanında kayıtlı değil." & Chr(13) & "Şimdi Eklemek ister misiniz?", _
vbCritical + vbYesNo, _
"<<HASTA BULUNAMADI>>")
If mesaj = vbYes Then
DoCmd.OpenForm "FRM_HASTA"
strSQL = "SELECT * FROM TBL_HASTA_BILGI "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.AddNew
.Fields("adi") = Me.Alan4
.Fields("soyadi") = Me.Alan5
End With
Else
Exit Sub
End If
Else
End If
FRM_HASTA formundaki
Private Sub yenikayit()
koduna yazdığın
.addnew
kodunu
.movelast
(az önce yeni kayıt ekledik, movelast ile son kaydı düzenliyoruz)
olarak değiştir.
ayrıca
FRM_AKTARMA formunun kayıt kaynağı KAYNAK tablosu, yapılan her işlem 1. kayıt üzerinden gerçekleştiriliyor, bu yüzden aynı veriden 2 tane oluşuyor.
yazılan bir koddan dolayı KAYNAK tablosundaki ilk kayıt değiştiriliyor.