Main Menü Harfe Göre Arama Ve Formu Açma - Baskı Önizleme +- 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ığı: Main Menü Harfe Göre Arama Ve Formu Açma (/konu-main-menu-harfe-gore-arama-ve-formu-acma.html) |
Cvp: Main Menü Harfe Göre Arama Ve Formu Açma - hegu - 27/03/2018 Emeğine sağlık çok teşekkür ederim. Cvp: Main Menü Harfe Göre Arama Ve Formu Açma - hegu - 27/03/2018 Function Func_HarfeGore_harfler() On Error GoTo Func_HarfeGore_harfler_Err With CodeContextObject Select Case .ALFABE.Value Case 1 kriter = "A" Case 2 kriter = "B" Case 3 kriter = "C" Case 4 kriter = "Ç" Case 5 kriter = "D" Case 6 kriter = "E" Case 7 kriter = "F" Case 8 kriter = "G" Case 9 kriter = "Ğ" Case 10 kriter = "H" Case 11 kriter = "I" Case 12 kriter = "İ" Case 13 kriter = "J" Case 14 kriter = "K" Case 15 kriter = "L" Case 16 kriter = "M" Case 17 kriter = "N" Case 18 kriter = "O" Case 19 kriter = "Ö" Case 20 kriter = "P" Case 21 kriter = "R" Case 22 kriter = "S" Case 23 kriter = "Ş" Case 24 kriter = "T" Case 25 kriter = "U" Case 26 kriter = "Ü" Case 27 kriter = "V" Case 28 kriter = "Y" Case 29 kriter = "Z" Case 30 GKriter = "" End Select .RecordSource = "SELECT Musteri.musteriid, Musteri.M_adi, Musteri.M_Tc, Musteri.M_T1, Musteri.M_T2, Musteri.M_Adres, Musteri.S_Ta, Musteri.M_A_Arac, Musteri.A_Plaka, Musteri.S_Bedeli FROM Musteri;" .Requery End With Func_HarfeGore_harfler_Exit: Exit Function Func_HarfeGore_harfler_Err: MsgBox Error$ Resume Func_HarfeGore_harfler_Exit End Function Bu koda göre neden süzme yapmıyor. Cvp: Main Menü Harfe Göre Arama Ve Formu Açma - ozanakkaya - 27/03/2018 Benim eklediğim kod:
sizin uyguladığınız kod:
Benim eklediğim kod:
sizin eklediğiniz kod:
Kodlar aynı değil, sizin uyguladığınız kodda kriter yok. Cvp: Main Menü Harfe Göre Arama Ve Formu Açma - hegu - 27/03/2018 Ozan Hocam ben de aslında bende böyle Case 1 GKriter = "((Musteri.M_adi) Like '[A]*') AND" yaptım. Bir türlü kriter belirliyemedim. SELECT Musteri.musteriid, Musteri.M_adi, Musteri.M_Tc, Musteri.M_T1, Musteri.M_T2, Musteri.M_Adres, Musteri.S_Ta, Musteri.M_A_Arac, Musteri.A_Plaka, Musteri.S_Bedeli FROM Musteri WHERE (((Musteri.M_adi) Like [Forms]![frm_Musteri]![M_adi] & "*")); bu şekilde yaptım olmadı. Cvp: Main Menü Harfe Göre Arama Ve Formu Açma - ozanakkaya - 27/03/2018 Merhaba, kodun uygulanmış hali ile örnek uygulamanızı ekleyiniz. Cvp: Main Menü Harfe Göre Arama Ve Formu Açma - hegu - 27/03/2018 kriter olmadı örneği ekte gönderiyorum. teşekkür ederim. |