Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
.rar KBS-1.rar (Dosya Boyutu: 126,86 KB | İndirme Sayısı: 2)
Son Düzenleme: 26/11/2017, 14:45, Düzenleyen: prestij06. (Sebep: imla hatası)
Cevapla
#2
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.
.rar KBS-2.rar (Dosya Boyutu: 136,43 KB | İndirme Sayısı: 10)
Cevapla
#3
(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.
Cevapla
#4
sayın prestij06
ribbon menüyü nasıl yaptınız 
kısada olsa anlatmanız mümkünmü
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task