Mrb, ekte göndermiş olduğum dosyada kayıt formundaki liste kutusundan verileri aratacağım. Eğer liste kutusunda veri varsa tek seferlik butonu gözükmesin ve liste kutusuna çift tıkladığımda başvuru formunda o kişinin bilgileri otomatik gelsin. Eğer liste kutusunda veri yoksa tek seferlik butonu aktif olsun ve tekseferlik formu açılsın.

=IIf(DateDiff("m";[SON ÖDEME TARİHİ];Date())>0;IIf(([TAHAKKUK EDİLEN]-[ÖDENEN])>0;([TAHAKKUK EDİLEN]-[ÖDENEN])*([G_ZAM ORANI]*DateDiff("m";[SON ÖDEME TARİHİ];Date()))))


Arkdaşlar öncelikle herkese kolay gelsin.
Benim sorumum şu yukardaki kod gecikme zammı hesaplamak için sayın Alpeki 99 tarafından düzenlenmişti sağolsun. Ama küçük bir sorumum var. Eğer son ödeme tarihi gelmemisse sonuç olarak değeri sıfır (0,00TL) göstermesini istiyorum. yani gecikme zammı yoksa 0 olarak yazsın istiyorum.

Kucuk bir sorun var, EK'te gonderdigim veritabaninin, SRG05 isimli raporuna;11/12/2010 tarihini ekledim. Ancak bu tarih rapor sorgusunda yok, olmayinca da raporun 11/12/2010 textine (text58) =IIf(nz([11/12/2010]) Is Null;0;nz([11/12/2010])) yazdim. Kod ile demek istedigim suydu; eger 11/12/2010 bos ise (cunku bos sorguda yok bu tarih) 0 yaz, degilse kendisini yaz dedim. Ancak bu kez de rapor calismadi. Hata verdi ("The mMicrosoft Jet database engine does not recognize '[11/12/2010]' as a valid f

arkadaşlar sizce yaptığım otomasyon programında setup dosyasınımı yoksa installing dosyasını kullanayım bana bir fikir verirsiniz?

İyi günler arkadaşlar evrak kayıt diye bir program hazırlıyorum. Program bitmedi lakin daha başlarında bir sorunla karşılaştım. Sorunum şu Rapor kısmında eki diye bir etiket dört adette metin kutusu var. Eki etiketi metin kutusu boş ise gözükmesin dolu ise gözüksün istiyorum. bunu icin şu kodları yazdım
[vb]Private Sub Report_Current()
On Error Resume Next
Dim Eki1 As String
If Me.Eki1 = "" Then
Me.Eki1_Etiket.Visible = False
Else
Me.Eki1_Etiket.Visible = True
End If
End Sub

Private

Merhabalar;

İlişikteki dosyamda yer alan rapora ait tarih aralığını 01-01-2012 / 11-01-2012 girdiğimde raporum ilgili tarih aralığında veri bulunduğu için doğru çalışıyor.

Ancak tarih aralığını 20-01-2012 / 30-01-2012 girdiğimde raporda ilgili tarih aralığında veri bulunmadığından #hata iletisi alıyorum.

Bu sorunu nasıl çözümlerim.

Teşekkürler.

Ek Dosyalar

vt1.rar(234.35 KB)

iyi günler

formda bulunan metin kutularına sorgudan veri alıyorum...

=DSum("[kdv]";"harcama sorgu tempa_buay";"[sınıf] = 'araç bakım'")

ancak veri yoksa metin kutusu boş oluyor...
eğer veri yoksa nasıl sıfır(0) yapabilirim..

ilginize yardım ve bilgilendirmenize şimdiden çok teşekkür ederim...

hayırlı cumalar
programda ilgili tablo var mı diye nasıl kod yazmalıyız
yani önce
tablo1
programımızda varmı diye bakacak yoksa bağlayacak

if tablo1 var mı then
msgbox "tablo var tekrara gerek yok"
else
DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=eleman", acTable, "personel", "personel", False
end if

buradaki tablo1 in olup olmadığını kontrol edeceğiz
teşekkürler

---

bunu nasıl kullanabilirim
[code]
Dim Data As New adodb.Connection
Dim Kayit As New adodb.Recordset

İyi akşamlar.

Haftalık raporum var, o raporda bir alan var ki, eğer içinde EVET girdisi yoksa başlık dahil görünmesini istemiyorum.

Örnek: TEVKİF Mİ ? Başlığı Formda Onay kutusu şeklinde, tevkifse onay kutusunu işaretliyorum..Geçerlilik metnini EVET yaptım.Veri yoksa hiç bir şekilde görünmesin, başlık dahil !

Altta ki linkte Sn.Ozaakkaya'nın VERİ YOKKEN olay yordamına kodu ekledim, ancak yine gözüküyor ! Birde bu kodu eklerken On ERROR diye mi ekleyeceğiz ? Yoksa Prıvate Sub....şeklinde

Ozanakkaya Hocam , örneğinizi kendi veri tabanıma "Müşteri adı soyadı" olacak şekilde uyguladım ama "müşteri telefonunuda" eklemesini istiyorum , ne yapabilirim ?