18-11-2022, 18:44
Herkese merhaba;
Uzun bir aradan sonra yine bir program yazma çabası içerisine girdim ve bir noktada deneyimsizlik yüzünden tıkandım ve desteklerinizi ihtiyacım var.
Programımda ana başlık bilgilerinin kayıt edildiği ve ana tablo isimli bir tablom var. İkinci bir tablo olan files isimli tabloda da klasör içerisine eklettiğim dosyaların dosya yolunu kayıt altına alan bir tablom var. Her iki tabloda da kayıtlar DnNo adlı bir alan ile kayıt altına alınmakta.
Amacım ana tablodaki DnNo ya ait kaydı sildiğimde bu kayda ait klasör içerisindeki dosyaları çoklu olarak sildirtmek.
DnNo koşulunu taşıyan files isimli tablodaki ilgili kayıtların dosya yolu adlı alanındaki bilgiye göre ilgili dosyayı toplu olarak nasıl sildirtebilirim.
Bunu bir döngü ile yapmak mümkün biliyorum ancak döngüyü kodlayamadım.
Kod mantığım;
Dim kayitsayisi, i as Byte
kayitsayisi = Dcount("*", "tbl_Files", "DnNo='" & me.cboDnNo & "'")
For i =0 to kayitsayisi
Kill = DLookup("DosyaYolu", "tbl_Files", "DnNo='" & ne.cboDnNo & "'")
Next i
Yukarıdaki kod mantığının doğrusu hakkında beni yönlendirmenizi rica ederim
Uzun bir aradan sonra yine bir program yazma çabası içerisine girdim ve bir noktada deneyimsizlik yüzünden tıkandım ve desteklerinizi ihtiyacım var.
Programımda ana başlık bilgilerinin kayıt edildiği ve ana tablo isimli bir tablom var. İkinci bir tablo olan files isimli tabloda da klasör içerisine eklettiğim dosyaların dosya yolunu kayıt altına alan bir tablom var. Her iki tabloda da kayıtlar DnNo adlı bir alan ile kayıt altına alınmakta.
Amacım ana tablodaki DnNo ya ait kaydı sildiğimde bu kayda ait klasör içerisindeki dosyaları çoklu olarak sildirtmek.
DnNo koşulunu taşıyan files isimli tablodaki ilgili kayıtların dosya yolu adlı alanındaki bilgiye göre ilgili dosyayı toplu olarak nasıl sildirtebilirim.
Bunu bir döngü ile yapmak mümkün biliyorum ancak döngüyü kodlayamadım.
Kod mantığım;
Dim kayitsayisi, i as Byte
kayitsayisi = Dcount("*", "tbl_Files", "DnNo='" & me.cboDnNo & "'")
For i =0 to kayitsayisi
Kill = DLookup("DosyaYolu", "tbl_Files", "DnNo='" & ne.cboDnNo & "'")
Next i
Yukarıdaki kod mantığının doğrusu hakkında beni yönlendirmenizi rica ederim