Form Açtıracağın buton kodlarını aşağıdaki ile değiştir.

Private Sub izintakipcmd_Click()

On Error GoTo Err_izintakipcmd_Click



    Dim stDocName As String

    Dim stLinkCriteria As String

    Call VeriBulKaydet

    stDocName = ChrW(102) & ChrW(114) & ChrW(109) & ChrW(97) & ChrW(100) & ChrW(305) & ChrW(115) & ChrW(111) & ChrW(121) & ChrW(97) & ChrW(100) & ChrW(305)

    stLinkCriteria = "[sicilno]=" & "'" & Me![PersonelNo] & "'"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_izintakipcmd_Click:

    Exit Sub



Err_izintakipcmd_Click:

    MsgBox Err.Description

    Resume Exit_izintakipcmd_Click

    

End Sub

ve
üstteki kodun bulunduğu vb sayfasında en alta

Sub VeriBulKaydet()



strSQL = "SELECT * FROM tbadısoyadı "

Set rstkayit = New ADODB.Recordset

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

With rstkayit

.Find "[sicilno]=" & Me.[Sicil No]

If Not rstkayit.EOF Then

.Fields("sicilno") = Me.[Sicil No]

.Fields("adısoyadı") = Me.Adı_Soyadı

.Fields("Çalıştığı Yer") = Me.ÇalıştığıYer

.Fields("Görevi") = Me.Görevi

.Fields("İşeGirişTarihi") = Me.İşeGirişTarihi

.Update

Else

.AddNew

.Fields("sicilno") = Me.[Sicil No]

.Fields("adısoyadı") = Me.Adı_Soyadı

.Fields("Çalıştığı Yer") = Me.ÇalıştığıYer

.Fields("Görevi") = Me.Görevi

.Fields("İşeGirişTarihi") = Me.İşeGirişTarihi

.Update

End If

End With

End Sub

kodunu ekle ve,

Referanslardan "Microsoft ActiveX Data Object........" referansını ekle.
Bu şekilde tbadısoyadı tablosunda ilgili kaydı arar, bulursa formu açar. Bulamazsa tabloya gerekli bilgileri kaydederek açar.