İyigeceler arkadaşlar,gecenin bu saatinde sor sorduğum için özür dilerim
Ana form üzerinde formülle hesaplamalar yapılmış alanlar bulunmaktadır,Bu alanlardaki veriler tabloda gözükmemektedir,gözükmesi için ne yapabilirim,vb.içinde çözüm aradım doğrusu beceremedim,yine anaforum üzerinde bulunan bir başka forumdaki (Adisyon) Toplam alanındaki veri anaform üzerinde bulunan alana
"=IIf(IsNumeric(adisyon1.Form!toplam);adisyon1.Form!toplam;0)" formül kullanılarak aktarılmaktadır,haliyle bu alandaki veride tabloda görünmemektedir Bu konuda yardımcı olacak arkadaşlara tşk ederim Saygılarımla.
Merhaba,
Aşağıdaki kodu denermisiniz,
Private Sub KaydetButonu_Click()
DENE = "INSERT INTO tablo1(Metin1, Metin2, Metin3, Metin4) values ('" & MetinKutusu1 & "', '" & MetinKutusu2 & "' , '" & MetinKutusu3 & "', '" & MetinKutusu4 & "')"
CurrentDb.Execute DENE
End Sub
Saygılar.
Merhaba sayın fascioglu,
Konunuzda bahsettiğiniz bu “IIF” kontrolü durumuna dair,bir sorgu hazırlayıp bu sorgu üzerinden anaform olarak belirttiğiniz bir form üzerindeki bir diğer alanda bu kontrolün neticelenmesini sağlamak yerinde olacaktır.böylece,form vb kodlama işlemine gerek kalmaksızın bu sorgulama sonucunda gerekli değer ilgili alan üzerinde yerini alacaktır.
Ek’te,bu duruma dair bir örnek uygulama mevcuttur.inceleyebilirsiniz.
Bir diğer yöntem ise,bu kontrol kodlamasına gerek bırakmayacak şekilde,adisyon tablosunun tasarım kısmında ilgili alanın numeric değer olmasına kullanıcıyı şartlandırarak,ve gerekli mesajı da ekleyerek sayısal değer girmesine yönlendirebilirsiniz.böylece,”IIF” kontrolüne gerek olmaksızın da bir çözüm elde ederek,harici kodlama ile uygulamayı da hesaplamalar için yormamış olursunuz.takdir ve kullanım şekli sizindir.bilgilerinize.
İyi çalışmalar,
Saygılar.
Sayın Atoz112...
Ben Ofice 2003 kullanıyorum,eğer mahsuru yoksa örneği 2003 'e çevirebilirmisiniz.
Saygılarımla
sayın fascioglu,
örnek uygulama,2003 olarak bir önceki mesaja eklenmiştir.
iyi çalışmalar,
saygılar.
Sayın Atoz112,
İstediğim sonucu aşağıdaki uygulamada elde ettim ve tabloya kayıtları gönderdiği gibi form üzerinde de formül kullanmamış oluyorum burada yalnız şöyle bir sıkıntı var " içindeki kodlar
ancak oda no tıklandığında aktif hale geliyor yani adisyon kaydı girdiğimde veya değiştiğinde sonucu anında alana atmıyor anca oda no tıkladığımda aktif hale geliyor buda kodu Kaydagit (ODN) içine yazdığım için,aşağıda " içindeki kodları bağımsız çalıştırmanın yolu nedir.Saygılarımla.
Private Sub Kaydagit(ODN)
Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN
Me.KONTOP = Me.Oda_fiyati * Me.Konaklamasuresi
"Me.ADTOP = IIf(IsNumeric(adisyon1.Form!toplam), adisyon1.Form!toplam, 0)"
"Me.HESTOP = Me.KONTOP + Me.ADTOP"
"Me.ODTUTARI = Me.HESTOP - Me.onodeme - Me.ıskonto"
"Me.KAL = Me.ODTUTARI - Me.Nakitodeme - Me.Kredikartiodeme"
Me.Form.Requery
End Sub