Private Sub Komut6_Click()

Komut6'nın tıklandığında olayını iki defa yazmışsızın.

Private Sub Komut6_Click()

If MsgBox("Kaydetmek istiyor musunuz? (hayır'a tıklarsanız geri alır)", vbYesNo, "Kaydet") = vbYes Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.GoToRecord , , acNewRec

Else

Me.Undo

Cancel = True

End If

Me.altforum.Requery

End Sub



Private Sub Komut6_Click()

DoCmd.GoToRecord , , acNewRec

Dim AccessTr_SNO As Integer



AccessTr_SNO = DMax("[no]", "Sorgu1")



Me.txtil.DefaultValue = Dlookup ("il_kodu", "tablo", "[no]=" & AccessTr_SNO)

Me.txtilce.DefaultValue = Dlookup ("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO)

Me.txtmerkez.DefaultValue = Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO)

Me.txtfider.DefaultValue = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)

Me.txtsebep.DefaultValue = Nz(DLookup("[no]", "kesinti_yapan", "[kesinti_yapan]='" & Dlookup ("kesinti_sebebi", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)



End Sub

Aynı olayı iki defa yazamazsınız.

Her iki kodu da silip yerine aşağıdaki kodu ekleyiniz.

Private Sub Komut6_Click()



Dim AccessTr_SNO As Integer



If MsgBox("Kaydetmek istiyor musunuz? (hayır'a tıklarsanız geri alır)", vbYesNo, "Kaydet") = vbYes Then



    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.GoToRecord , , acNewRec

    AccessTr_SNO = DMax("[no]", "Sorgu1")

    Me.txtil.DefaultValue = Nz(DLookup("il_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)

    Me.txtilce.DefaultValue = Nz(DLookup("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)

    Me.txtmerkez.DefaultValue = Nz(DLookup("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)

    Me.txtfider.DefaultValue = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)

    Me.txtsebep.DefaultValue = Nz(DLookup("[no]", "kesinti_yapan", "[kesinti_yapan]='" & Dlookup ("kesinti_sebebi", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)

Else

    Me.Undo

    Cancel = True

End If

    Me.altforum.Requery

End Sub