+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Olay Yordamının İçindeki Bilgiyi Formda Düzenleme (/konu-olay-yordaminin-icindeki-bilgiyi-formda-duzenleme.html)
Olay Yordamının İçindeki Bilgiyi Formda Düzenleme - prestij06 - 26/11/2017
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ı") * 33Cvp: Olay Yordamının İçindeki Bilgiyi Formda Düzenleme - ozanakkaya - 26/11/2017
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 Ifkodu ekledim,
defter kayıt formundaki işlem yap butonunun tıklandığında olayındaki 33 yerine de
DLookup("islemucreti", "Ayarlar")kodu eklendi.
Cvp: Olay Yordamının İçindeki Bilgiyi Formda Düzenleme - prestij06 - 26/11/2017
(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.
Cvp: Olay Yordamının İçindeki Bilgiyi Formda Düzenleme - metınaycıcek - 26/11/2017
sayın prestij06
ribbon menüyü nasıl yaptınız
kısada olsa anlatmanız mümkünmü