AccessTr.neT

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

srg_verigonder sorgusunun Sql kodunu 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

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]") & "*'"

Saygilarimla
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

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.

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