Skip to main content

AccessTr.neT


tahsilat ajanda uygulaması

tahsilat ajanda uygulaması

Çözüldü #1
daha önce bu sıtede olan bir ajanda uygulamasını (hazırlayan arkdaşa teşekkur ederim)tahsilat yapılacak müşterilerin olduğu sorgudan bilgileri almaya çalıştım.
burası oldu sorun yok .

ama randevu çizelgesinde müşterinin üzerine çift tıklayınca o muşterinin bilgilerinin olduğu formun açılmasını yapamadım.

birde randevu çizelgesini açarken hata veriyor.bazı tanloları silmiştim ondan olsa gerek.

yarımcı olursanız güzel bir uygulama olur.
.rar AJANDA TAKİP.rar (Dosya Boyutu: 530,18 KB | İndirme Sayısı: 74)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 13/07/2009, 13:30, Düzenleyen: zetyu.
Cevapla
Çözüldü #2
Merhaba,
Rica etsem programı açıp formdaki yerleri tek tek yazarak nerede ne yapmak istiyoruz açıkça belirtirmisin. Ona göre sorunu çözüp göndereyim.
Ayrıca bu program iflah olmaz sanırım. karman çorman. çok gereksiz kodlar kullanılmış. gerçi kişinin kendi isteği doğrultusunda istediği gibi yapmış ama sanırım baştan birşey yapmaya başlarsan güzel olur Img-grin
selamlar.
programda dokunulması gereken çok yer var. istediklerinden tıkladığında kişi bilgilerinin gelmesi olayını yaptım.
şu şekilde yapabilirsin.
formuna bir tane metin kutusu yerleştir adını Secilen yap.
daha sonra liste kutularının olay yordamlarından Çift tıklandığında olayına aşağıdaki kodu yapıştır. listenin adı ne ise kodda onu belirt. örneğin ben liste1.column(2) demişim bunu liste1 'in çift tıklandığında olayına yapıştır. diğerlerine de yapıştır ancak onlardaki liste1 'i değiştir 2 3 veya neyse

secilen = Me.Liste1.Column(2)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "tahsilat geçmiş2"
stLinkCriteria = "[müş adı]=" & "'" & Me![secilen] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

açılırken hata vermesinin sebebi olmayan tabloya veya sorguya başvuruluyor olması. burada ne yapılmak istendiğini anlamadığım için çözemedim.

aşağıdaki kodlamanın tamamı yanlış. Dlookup ("SrNO", "x01") bu olay ile tablodan alan istenmiş. halbuki x01 diye bir tablomuz yok. veya örneği eksik gönderdin. x01 diye bir tablo varmı? Eğer tablo varsa şu şekil yaparsan daha sağlıklı olur: Dlookup ("[SrNo]", "x01")


Public Sub Takvimle()
t01.ForeColor = IIf(t01 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x01")), vbBlack, vbRed))
t02.ForeColor = IIf(t02 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x02")), vbBlack, vbRed))
t03.ForeColor = IIf(t03 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x03")), vbBlack, vbRed))
t04.ForeColor = IIf(t04 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x04")), vbBlack, vbRed))
t05.ForeColor = IIf(t05 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x05")), vbBlack, vbRed))
t06.ForeColor = IIf(t06 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x06")), 32768, vbRed))
t07.ForeColor = IIf(t07 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x07")), 32768, vbRed))
t08.ForeColor = IIf(IsNull(DLookup("SrNO", "x08")), vbBlack, vbRed)
t09.ForeColor = IIf(IsNull(DLookup("SrNO", "x09")), vbBlack, vbRed)
t10.ForeColor = IIf(IsNull(DLookup("SrNO", "x10")), vbBlack, vbRed)
t11.ForeColor = IIf(IsNull(DLookup("SrNO", "x11")), vbBlack, vbRed)
t12.ForeColor = IIf(IsNull(DLookup("SrNO", "x12")), vbBlack, vbRed)
t13.ForeColor = IIf(IsNull(DLookup("SrNO", "x13")), 32768, vbRed)
t14.ForeColor = IIf(IsNull(DLookup("SrNO", "x14")), 32768, vbRed)
t15.ForeColor = IIf(IsNull(DLookup("SrNO", "x15")), vbBlack, vbRed)
t16.ForeColor = IIf(IsNull(DLookup("SrNO", "x16")), vbBlack, vbRed)
t17.ForeColor = IIf(IsNull(DLookup("SrNO", "x17")), vbBlack, vbRed)
t18.ForeColor = IIf(IsNull(DLookup("SrNO", "x18")), vbBlack, vbRed)
t19.ForeColor = IIf(IsNull(DLookup("SrNO", "x19")), vbBlack, vbRed)
t20.ForeColor = IIf(IsNull(DLookup("SrNO", "x20")), 32768, vbRed)
t21.ForeColor = IIf(IsNull(DLookup("SrNO", "x21")), 32768, vbRed)
t22.ForeColor = IIf(IsNull(DLookup("SrNO", "x22")), vbBlack, vbRed)
t23.ForeColor = IIf(IsNull(DLookup("SrNO", "x23")), vbBlack, vbRed)
t24.ForeColor = IIf(IsNull(DLookup("SrNO", "x24")), vbBlack, vbRed)
t25.ForeColor = IIf(IsNull(DLookup("SrNO", "x25")), vbBlack, vbRed)
t26.ForeColor = IIf(IsNull(DLookup("SrNO", "x26")), vbBlack, vbRed)
t27.ForeColor = IIf(IsNull(DLookup("SrNO", "x27")), 32768, vbRed)
t28.ForeColor = IIf(IsNull(DLookup("SrNO", "x28")), 32768, vbRed)
t29.ForeColor = IIf(t29 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x29")), vbBlack, vbRed))
t30.ForeColor = IIf(t30 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x30")), vbBlack, vbRed))
t31.ForeColor = IIf(t31 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x31")), vbBlack, vbRed))
t32.ForeColor = IIf(t32 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x32")), vbBlack, vbRed))
t33.ForeColor = IIf(t33 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x33")), vbBlack, vbRed))
t34.ForeColor = IIf(t34 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x34")), 32768, vbRed))
t35.ForeColor = IIf(t35 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x35")), 32768, vbRed))
t36.ForeColor = IIf(t36 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x36")), vbBlack, vbRed))
t37.ForeColor = IIf(t37 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x37")), vbBlack, vbRed))
t38.ForeColor = IIf(t38 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x38")), vbBlack, vbRed))
t39.ForeColor = IIf(t39 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x39")), vbBlack, vbRed))
t40.ForeColor = IIf(t40 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x40")), vbBlack, vbRed))
t41.ForeColor = IIf(t41 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x41")), 32768, vbRed))
t42.ForeColor = IIf(t42 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x42")), 32768, vbRed))
'-----------------------------------------------------
Son Düzenleme: 01/07/2009, 22:52, Düzenleyen: cuneyt.
Cevapla
Çözüldü #3
Verdiğiniz kodu yazdım istediğim oldu teşekkur ederim.

evet bende çok istıyorum.baştan yapmayı.o da olucak.

tekrar teşekkur ederim.
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Sayın Zetyu;

Günaydın..

Sayın Cuneyt'in eklediği kodlar sonrası, ilk mesaja eklediğiniz dosyanın güncel olanını siteye eklemeniz mümkün mü?

İlginiz için önceden teşekkürler..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task