Skip to main content

AccessTr.neT


Parametre hatasi

Parametre hatasi

Çözüldü #13
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
Cevapla
Çözüldü #14
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
Cevapla
Çözüldü #15
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
Son Düzenleme: 22/04/2013, 20:40, Düzenleyen: kaleci.
Cevapla
Çözüldü #16
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
Son Düzenleme: 22/04/2013, 20:41, Düzenleyen: kaleci.
Cevapla
Çözüldü #17
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.
.rar Kapi A_sled_son.rar (Dosya Boyutu: 97,18 KB | İndirme Sayısı: 4)
Cevapla
Çözüldü #18
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task