Olay Yordamının İçindeki Bilgiyi Formda Düzenleme

26/11/2017, 14:43

prestij06

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...


Kod:
.Cells(21, 3) = InputBox("Kişi Sayısı", "Kişi Sayısı") * 33
26/11/2017, 15:30

ozanakkaya

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, 16:35

prestij06

(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.
26/11/2017, 22:20

metınaycıcek

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