+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: tarih formatı koduyle ilgili (/konu-tarih-formati-koduyle-ilgili.html)
Sayfalar:
1
2
Cvp: tarih formatı koduyle ilgili - kesoka - 21/01/2011
örnek ekte hocam. periyodik muayeneden giriceksiniz. orda periyodik düzenle tuşu var
hocam orda tek kayıt var ve kodu incelerseniz sevinirim. tek kayıt seçtiğimde sorun yok ama 10 kayıt gibi fazla kayıt seçtiğimde liste kutusundan hata veriyor pm 1 koduyla ilgili....
Cvp: tarih formatı koduyle ilgili - Hayri16 - 21/01/2011
Sayın kesoka;
Yanılmıyorsam pm verileri tbl_personel adlı tablodan alıyorsunuz. Bunun üzerinden pm_sorgusu ile formdaki listeye aktarıyorsunuz.
1- tbl_personel deki pm alanları metin
2- formdaki sorguya temel aldığınız gecici adlı görünmez alanlar metin ve özellikleri düz metin olarak ayarlı
Bence bunları bir değiştirerek deneyin.
Saygılar.
Cvp: tarih formatı koduyle ilgili - ozanakkaya - 15/02/2011
sn kesoka, konuya geri bildirimde bulunmanız bekleniyor.
Cvp: tarih formatı koduyle ilgili - kesoka - 16/02/2011
sayın hocalarım. sorunumu şu kod ile çözdüm ilginize teşkkürler.
Metin29 = kayno
If Me.Liste38.ItemsSelected.Count < 1 Then
MsgBox ("Aktarmak için seçili dosya yok")
Exit Sub
Else
For x = 0 To Me.Liste38.ItemsSelected.Count - 1
kyt.Open "tbl_personel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
row = Me.Liste38.ItemsSelected(x)
kayno = Me.Liste38.Column(0, row)
Metin29 = kayno
kyt.Find "[p_id]= " & kayno
kyt("PM 1") = Format(DateAdd("m", 0, yenipm), "dd-mmm-yy")
kyt("PM 2") = Format(DateAdd("m", 6, yenipm), "dd-mmm-yy")
kyt("PM 3") = Format(DateAdd("m", 12, yenipm), "dd-mmm-yy")
kyt("PM 4") = Format(DateAdd("m", 18, yenipm), "dd-mmm-yy")
kyt("PM 5") = Format(DateAdd("m", 24, yenipm), "dd-mmm-yy")
kyt("PM 6") = Format(DateAdd("m", 30, yenipm), "dd-mmm-yy")
kyt("PM 7") = Format(DateAdd("m", 36, yenipm), "dd-mmm-yy")
kyt("PM 8") = Format(DateAdd("m", 42, yenipm), "dd-mmm-yy")
kyt.Update
kyt.Close