Merhaba,
Uygulamanızda bulunan Ayarlar isimli tabloya veri türü sayı olan islemucreti adında alan ekledim.

Ayarlar formundaki butona

Dim GIslemUcreti As String





GIslemUcreti = InputBox("İslem Ücreti Güncelle", "Yeni İslem Ücretini Yazınız", Dlookup ("islemucreti", "Ayarlar"))



If StrPtr(GIslemUcreti) = 0 Then

Exit Sub

End If



If MsgBox("İşlem Ücreti Güncellensin mi?", vbYesNo) = vbYes Then



DoCmd.SetWarnings False



DoCmd.RunSQL "UPDATE Ayarlar SET Ayarlar.islemucreti = " & GIslemUcreti & " "



DoCmd.SetWarnings True



End If

kodu ekledim,

defter kayıt formundaki işlem yap butonunun tıklandığında olayındaki 33 yerine de

DLookup("islemucreti", "Ayarlar")

kodu eklendi.