Hocam,
Kopyalarken altformdan cifttiklama ile üstforma gelen bir tek veri satirini kopyalattirabilirsek problemin birtanesini cözmüs oluruz.
Hocam "üc aydan eskileri sil" kodu hala ayni parametre hatasini gösteriyor ve calismiyor.
Saygilarimla
kaleci
Parametre hatasi
srg_verigonder sorgusunun Sql kodunu aşağıdaki ile değiştir.
3 aydan eskileri sil butonunun kodlarını aşağıdaki ile değiştir.
INSERT INTO (ms access;pwd=test;database=F:\KfzPersonenDB.accdb) tblKfzPersDE ( Datum1, Uhrzeit1, KFZ, Heangerzug, Auflieger, Firma, Adresse1, Branche, NameVorname1, Nation1, NurZumBeUndEntladen, Versand, Service, WA, Ansprechpartner )
SELECT AbfKfzPersDE.Datum1, AbfKfzPersDE.Uhrzeit1, AbfKfzPersDE.KFZ, AbfKfzPersDE.Heangerzug, AbfKfzPersDE.Auflieger, AbfKfzPersDE.Firma, AbfKfzPersDE.Adresse1, AbfKfzPersDE.Branche, AbfKfzPersDE.NameVorname1, AbfKfzPersDE.Nation1, AbfKfzPersDE.NurZumBeUndEntladen, AbfKfzPersDE.Versand, AbfKfzPersDE.Service, AbfKfzPersDE.WA, AbfKfzPersDE.Ansprechpartner
FROM AbfKfzPersDE
WHERE (((AbfKfzPersDE.ID) Like "*" & [Forms]![frmKfz]![Text73] & "*"));
3 aydan eskileri sil butonunun kodlarını aşağıdaki ile değiştir.
Private Sub cmdLöschen_2_Click()
'üc aydan eski tarihleri siler
Select Case MsgBox("Wollen Sie den gewählten Datensatz wirklich löschen?", _
vbYesNo Or vbQuestion Or vbDefaultButton1, "Datensatz löschen")
Case vbYes
MsgBox "Löschen..."
CurrentDb.Execute "DELETE DateDiff('m',[Datum1],Date()) AS İfade1, * FROM tblKfzPersDE IN '' [ms access;pwd=test;database=F:\KfzPersonenDB.accdb] WHERE (((DateDiff('m',[Datum1],Date()))>=3));"
Case vbYes
MsgBox "nicht Löschen..."
End Select
'Formular aktualisieren
Me.Requery
Me.untFrmKfz.Requery
End Sub
Hocam,
Kod "üc aydan eskileri sil" güzel calisiyor. Verdiginiz Sql kodunu kopyaliyorum ama su hatayi veriyor. "Syntaxfehler in der INSERT INTO - Anweisung" ve srg_verigonder acilmiyor
Hocam birde yabanci linklerden su kodu buldum ama calistiramadim. Bu Kod daki "Eval" ne anlama geliyor.
kaleci
Kod "üc aydan eskileri sil" güzel calisiyor. Verdiginiz Sql kodunu kopyaliyorum ama su hatayi veriyor. "Syntaxfehler in der INSERT INTO - Anweisung" ve srg_verigonder acilmiyor
INSERT INTO (ms access;pwd=test;database=F:\KfzPersonenDB.accdb) tblKfzPersDE ( Datum1, Uhrzeit1, KFZ, Heangerzug, Auflieger, Firma, Adresse1, Branche, NameVorname1, Nation1, NurZumBeUndEntladen, Versand, Service, WA, Ansprechpartner )
SELECT AbfKfzPersDE.Datum1, AbfKfzPersDE.Uhrzeit1, AbfKfzPersDE.KFZ, AbfKfzPersDE.Heangerzug, AbfKfzPersDE.Auflieger, AbfKfzPersDE.Firma, AbfKfzPersDE.Adresse1, AbfKfzPersDE.Branche, AbfKfzPersDE.NameVorname1, AbfKfzPersDE.Nation1, AbfKfzPersDE.NurZumBeUndEntladen, AbfKfzPersDE.Versand, AbfKfzPersDE.Service, AbfKfzPersDE.WA, AbfKfzPersDE.Ansprechpartner
FROM AbfKfzPersDE
WHERE (((AbfKfzPersDE.ID) Like "*" & [Forms]![frmKfz]![NameVorname1] & "*"));
Hocam birde yabanci linklerden su kodu buldum ama calistiramadim. Bu Kod daki "Eval" ne anlama geliyor.
WHERE AbfKfzPersDE.NameVorname1 Like "'*" & Eval("[Forms]![frmKfz]![SuchenVorleufig1]") & "*'"
AND AbfKfzPersDE.Firma Like "'*" & Eval("[Forms]![frmKfz]![SuchenVorleufig2]") & "*'"
Saygilarimlakaleci
Son Düzenleme: 22/04/2013, 20:40, Düzenleyen: kaleci.
Sayin hocam,
Yukaridaki verdigin Sql kodunu calistirabildim. (((AbfKfzPersDE.ID ye göre degistirmissiniz. Isme göre süzdürüyorum, eger bir isimden 2 tane ise birisini secmeme ramen (0) Veri kaydedilecek bilgisi geliyor. Onayladiktan sonra kopya yapmiyor.
Hocam neden bir satiri kopyalamak istiyorum derseniz: Bugün bizi ziyaret eden kisi 5 gün sonra tekrar geldiginde, ismine göre arattiriyorum, bulunan ismi kopyaladigim zaman, bütün metinkutularini doldurmamiz gerekmiyor ve zamandan kazanmis oluyoruz.
Saygilarimla
kaleci
Yukaridaki verdigin Sql kodunu calistirabildim. (((AbfKfzPersDE.ID ye göre degistirmissiniz. Isme göre süzdürüyorum, eger bir isimden 2 tane ise birisini secmeme ramen (0) Veri kaydedilecek bilgisi geliyor. Onayladiktan sonra kopya yapmiyor.
Hocam neden bir satiri kopyalamak istiyorum derseniz: Bugün bizi ziyaret eden kisi 5 gün sonra tekrar geldiginde, ismine göre arattiriyorum, bulunan ismi kopyaladigim zaman, bütün metinkutularini doldurmamiz gerekmiyor ve zamandan kazanmis oluyoruz.
Saygilarimla
kaleci
Son Düzenleme: 22/04/2013, 20:41, Düzenleyen: kaleci.
ekteki örnek daha önce verdiğim Sql kodunu içeriyor. Alt formdan 1 veriyi çift tıklayarak forma yansıttıktan sonra kopyala butonunu tıklarsan kaydın yenisini tabloya ekler,
Çalışmama sebebi şu olabilir, soruya aldığın cevabı kendine göre değiştiriyorsun. Değiştirirsen kod çalışmaz. Ben Id numarasına göre kopyalama yaptırıyorum, sen where kısmını değiştirirsen kod çalışmaz.
Çalışmama sebebi şu olabilir, soruya aldığın cevabı kendine göre değiştiriyorsun. Değiştirirsen kod çalışmaz. Ben Id numarasına göre kopyalama yaptırıyorum, sen where kısmını değiştirirsen kod çalışmaz.
Sayin hocam,
size ve diger degerli arkadaslara arkadaslarim adina sahsinizda cok tesekkür ederim. Süper sabriniz var. Sizlerin sayesinde islerimiz gercekten cok kolaylasti. Darlandigimizda formumuza basvuruyoruz ve suana kadarda alamadigim cevap olmadi. Demistimya tesekkür etmekle bile hakkiniz ödenmez. Konu suan icin kapanmistir. Hersey gönlünüzce olsun.
Saygilarimla
size ve diger degerli arkadaslara arkadaslarim adina sahsinizda cok tesekkür ederim. Süper sabriniz var. Sizlerin sayesinde islerimiz gercekten cok kolaylasti. Darlandigimizda formumuza basvuruyoruz ve suana kadarda alamadigim cevap olmadi. Demistimya tesekkür etmekle bile hakkiniz ödenmez. Konu suan icin kapanmistir. Hersey gönlünüzce olsun.
Saygilarimla
Konuyu Okuyanlar: 1 Ziyaretçi