Kayıt Tarihi: 04.06.2015
Toplam 43 konu açtı.
Toplam 408 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
form üzerinde metin kutuları ile hesap yaptırmaktayım.
başka bir form üzerinde "ftrkdv" adındaki seçenek kutusunda "kdv'li" ve "kdv'siz" seçeneklerim var. (kdv'li=1 , kdv'siz=2)
yapmak istediğim şu;
f_tedariktarihsec formu üzerindeki ftrkdv "kdv'li seçili ise [tpl4]*0,09 işlemi yapılsın, değilse değer "0" olsun.
metin kutusunun denetim kaynağına;
=iff([Formlar]![f_tedariktarihsec]![ftrkdv]=1;[tpl4]*0,09;0)
uyguladım ama ad? hatası döndürüyor. acaba yanlışım nerede yardımcı olursanız sevinirim.
Kayıt Tarihi: 24.03.2013
Toplam 25 konu açtı.
Toplam 8.711 yorum yaptı.
Toplam
948
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 47 / 211
(03-12-2015, 18:00)devilspath demiş ki: =iff([Forms]![f_tedariktarihsec]![ftrkdv]=1;[tpl4]*0,09;0) =iff(... degil de IIf(... olarak yazilmali.
r_tedarik raporu kdv1 alani kayit kaynagina
=IIf([Forms]![f_tedariktarihsec]![ftrkdv]=1;Nz([g1];0)*0,09;0)
formulu girebilirsiniz.
Kayıt Tarihi: 04.06.2015
Toplam 43 konu açtı.
Toplam 408 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
teşekkür ederim sezgin bey. bir an önce bitirmek istediğimden acele ediyorum, bu da basit hatalar yapmama neden oluyor. verdiğiniz cevapla utandım
Kayıt Tarihi: 24.03.2013
Toplam 25 konu açtı.
Toplam 8.711 yorum yaptı.
Toplam
948
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 47 / 211
VBA da calisirken her guncelleme ile derleme(compile) yapmaniz halinde, kod hatalari ile ilgili mesaj verecektir. Deneme esnasinda benim neler yazdigimi bilseniz.
Kayıt Tarihi: 04.06.2015
Toplam 43 konu açtı.
Toplam 408 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
Allah kolaylık versin
size zahmet olmayacaksa bir sorunum daha var Sezgin bey,
daha önce http://www.access-sql.com/Konu-tarih-ara...rme?page=3 konumda çoklu puantaj girmemde bana yardımcı olmuştunuz.
yazmış olduğunuz kod dizininde tedarik ve firma fiyatı girilmemişse "çetele ekle" dediğimde hata vermekte ve vba sayfası açılmakta.
bu kod yapısına boş hücre kontrolü yapıp hata mesajı verdirecek şekilde nasıl uyarlayabiliriz acaba?
şu şekil tepki vermeli;
mesela tedarik fiyatı girilmediyse "güzergâha tedarik fiyatı girilmedi" diye hata mesajı verip kayıt yapmamalı. yada plaka seçilmediyse "plaka seçimi yapılmadı" yada "tarih seçimi yapılmadı" vb.
yani kodda kayıt için hangi hücrelere bakıyorsa, ona göre hata mesajı verip kayıt yapmamalı.
ben iif ile denemeler yaptım ama olmadı.
Visual Basic CurrentDb.Execute "INSERT INTO t_cetele ( guzergah_id, plaka_gir, tek_sayisi, tarih, firma_fiyat, tedarik_fiyat)" _ & " SELECT " & Me.guzergah_id & ", '" & Me.plaka_gir & "','" & IIf(Eval(Weekday(Trh, vbMonday) & " In(6,7)"), 0, Me.tek_sayisi) & "', " _ & "#" & Format(Trh, "mm\/dd\/yyyy") & "#," & IIf(Me.f_fiyatgor.Form!t_firma_fiyat = "" Or Null Or 0, MsgBox = vbCancel, "uyarı", Me.f_fiyatgor.Form!t_firma_fiyat) & "," & Me.f_fiyatgor.Form!t_tedarik_fiyat
iif'ten sonraki ilk t_firma_fiyat'ta hata gösterdi. çalışsaydı diğer değişkenlere de uyarlayacaktım ama, denememde hata alınca bir yerde yanlış yaptığımı düşündüm. zahmet olmazsa bakabilirseniz sevinirim.
Kayıt Tarihi: 04.06.2015
Toplam 43 konu açtı.
Toplam 408 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 2
kod yapısının son hali şu şekilde;
Visual Basic Private Sub Komut33_Click() Dim Trh As Date If Me.t1 > Me.t2 Then MsgBox "Başlangıç Tarihiniz Bitiş Tarihinizden sonrası olamaz..", vbCritical, "ETAEL Araç Takip" Else For Trh = Me.t1 To Me.t2 If Eval(Weekday(Trh, vbMonday) & " Not In (" & IIf(Me.cmt = -1 And Me.pzr = -1, "6,7", IIf(Me.cmt = -1 And Me.pzr = 0, "6", IIf(Me.cmt = 0 And Me.pzr = -1, "7", 0))) & ")") Then If DCount("*", "t_cetele", "[guzergah_id]=" & Me.guzergah_id & " And [tarih]=#" & Format(Trh, "mm\/dd\/yyyy") & "#") > 0 Then MsgBox Me.guzergah_id & " Guzergahi ve " & Format(Trh, "dd\/mm\/yyyy") & " Tarihine ait kayit var" Else CurrentDb.Execute "INSERT INTO t_cetele ( guzergah_id, plaka_gir, tek_sayisi, tarih, firma_fiyat, tedarik_fiyat)" _ & " SELECT " & Me.guzergah_id & ", '" & Me.plaka_gir & "','" & IIf(Eval(Weekday(Trh, vbMonday) & " In(6,7)"), 0, Me.tek_sayisi) & "', " _ & "#" & Format(Trh, "mm\/dd\/yyyy") & "#," & Me.f_fiyatgor.Form!t_firma_fiyat & "," & Me.f_fiyatgor.Form!t_tedarik_fiyat End If End If Next Trh Me.f_cetelealt.Requery End If Debug.Print Me.t2 End Sub
|