Alpeki'nin belirttiği gibi bu kodlar dao. Sorunuza yanıt açısından aşağıdaki linki incele.

Formlar arası veri aktarımı

örnekteki "frm_hasta" formundaki kayıt ekleme ve güncelleme kodu

strSQL = "SELECT * FROM TBL_HASTA_BILGI "

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.Find "[Kimlik]=" & Me.kaynakno

If Not rstkayit.EOF Then

.Fields("tc_no") = Me.htcno

.Fields("kaynakno") = Me.kaynakno

.Fields("adi") = Me.hadi

.Fields("soyadi") = Me.hsoyadi

.Fields("mah_koy_id") = Me.mahkoykutu.Column(0)

.Fields("adres") = Me.hadres

.Fields("tlf") = Me.htlf

.Fields("SGK_id") = Me.sgkkutu

.Fields("SGK_durum_id") = Me.sgkdurumkutu.Column(0)

.Fields("SGK_sicil") = Me.hsicil

.Update

Else

.AddNew

.Fields("tc_no") = Me.htcno

.Fields("kaynakno") = Me.kaynakno

.Fields("adi") = Me.hadi

.Fields("soyadi") = Me.hsoyadi

.Fields("mah_koy_id") = Me.mahkoykutu.Column(0)

.Fields("adres") = Me.hadres

.Fields("tlf") = Me.htlf

.Fields("SGK_id") = Me.sgkkutu

.Fields("SGK_durum_id") = Me.sgkdurumkutu.Column(0)

.Fields("SGK_sicil") = Me.hsicil

.Update

End If

End With