Merhaba. Ekte bulunan projemde burdaki ustalardan birinin yaptığı Excel e veri aktaran İşlem Yap butonu var. Bu butonun olay yordamında bulunan aşağıdaki kodun sonundaki 33 rakamını formüle girmeden kullanıcıların formdan değiştirmesin istiyorum. Projemde Ayarlar adında bi alt form var. Oraya "İşlem Ücreti Güncellemesi" adında bir buton koydum. Bu butona basarak 33'ü istenilen sayıyla değiştermeyi yapabilirseniz çok sevinirim. Şimdiden teşekkürler...

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.

(26/11/2017, 15:30)ozanakkaya yazdı: 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.

hocam tamamdır eline sağlık.

sayın prestij06
ribbon menüyü nasıl yaptınız 
kısada olsa anlatmanız mümkünmü