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