Hata mesajı - 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ığı: Hata mesajı (/konu-hata-mesaji--82534.html) |
Hata mesajı - ertans - 31/01/2017 Merhaba arkadaşalar, değerli hocaların desteği ile bir noktaya getirdiğim projemde bazı küçük düzeltme ihtiyacım var; 1) Bekleyen ve Giderilmiş Arızalar formları açıldığında listenin en yeniden eskiye doğru sıralanmasını nasıl sağlayabilirim (veri tabanından denedim olmadı) 2) Bekleyen Arıza formlarında zaman zaman aşağıdaki hata mesajını alıyorum; hata mesajı; Run-time '3464' Ölçüt ifadesinde veri türü uyuşmazlığı (resim ekleyemediğim için yazmak zorunda kaldım) ve Debug' ı tıkladığımda ise; If Metin10 > 0 And Metin10 <= 3 Then işaret ediyor. Yardımlarınızı rica ediyorum. İyi çalışmalar dilerim. Cvp: Hata mesajı - atoz112 - 31/01/2017 sayın ertans, aşağıdaki açıklamaların yapılması uygun görülmüştür. öncelikle, kendi adıma geçerli olmak üzere,eklediğiniz örnek uygulama üst sürüm olması gerekçesi ile,inceleme imkanım olmamaktadır.bu nedenle,yazdıklarınıza faydalı olması temennisi ile aşağıdaki bilgilere yer verilmiştir. 1) Alıntı:listenin en yeniden eskiye doğru sıralanmasını nasıl sağlayabilirim ifadenize yönelik olarak; eğer kast ettiğiniz,bu formlarda bir ListBox denetimi varsa ve buna dair ise,ilgili listenin kaynağında yer alan sorguyu açınız ve muhtemelen mevcut olması gerekli ID (ya da,KİMLİK) alan adı yer alıyorsa,bu sütunun üzerinde bulunan SIRALA satırını AZALAN olarak belirleyiniz.böylece,son kayıtlar üst sırada yer alacaktır. 2) Alıntı:hata mesajı; Run-time '3464' ifadenize yönelik olarak; bu hatanın nedeni,eğer ilgili tabloda bu METİN10 adlı denetimin kaynağındaki ALAN ADI veri türü METİN değeri içeriyorsa,bir SAYI değerini aktaramazsınız.ya da tam tersi olarak,SAYI veri türü içeren bir alan adına METİN veri türü değerini atayamazsınız.bu nedenle,bu kontrolü yapmanız gerekmektedir. 3) Alıntı:resim ekleyemediğim için yazmak zorunda kaldım ifadenize yönelik olarak; sadece hatırlatma olması adına, editör kısmındayken orta kısımda RESİM EKLE butonunu tıklamak sureti ile açılacak olan pencerede 3 adet buton yer alacak.bu RESİM SEÇ butonlarından resimleri seçip (her seferinde sadece 3 adet resim ekleyebiliyorsunuz fakat akabinde tekrar aynı boşta kalan butonları tıklamak sureti ile yine 3 resim daha ekleyebiliyorsunuz.bu devam eder böyle...) bilginize...iyi çalışmalar,saygılar. Cvp: Hata mesajı - ertans - 31/01/2017 Sayın atoz112, değerli katkılarınız için teşekkür ederim. Sıralama işini yaptım fakat hata mesajı sorununu çözemedim. projemin daha kolay açılması için bazı kontrolleri kaldırarak tekrar yüklüyorum bakarmısınız lütfen. Cvp: Hata mesajı - atoz112 - 31/01/2017 sayın ertans, yeni eklediğiniz örnek uygulama da, yine kendi adıma olmak üzere açılmamaktadır. otel otomasyonu yukarıda bağlantısı yazılı konunun 4.mesajında yer alan açıklamalar nezdinde tekrar eklemeyi deneyiniz. bilginize...iyi çalışmalar,saygılar. Cvp: Hata mesajı - atoz112 - 31/01/2017 sayın ertans, Alıntı:hata mesajı; Run-time '3464' ifadenize yönelik olarak; Alıntı:If Metin10 > 0 And Metin10 <= 3 Then hatanın,sadece yukarıdaki IF Fonksiyonu üzerinden kaynaklanmadığı düşünülmektedir.bunun yerine,eğer kodlarda mevcutsa,KRİTER kullanımı içeren Dlookup veya DCOUNT Fonksiyonları ya da benzeri herhangi bir Sql Sorgu kullanımı söz konusu ise,bu kullanımlarda yer alan KRİTER belirleme işlemlerinde sorun olsa gerek kanısındayım. çünkü;bu IF Fonksiyonu kullanımında,eğer METİN10 denetiminin kaynağındaki ALAN ADI METİN veri türü de olsa bu kontrol değerlerinin akabinde size yine olumlu sonuç verir. ÖRNEK
benzeri bir kullanımda,hata vermeksizin olumlu sonuç alınabileceği gibi.bilginize...iyi çalışmalar,saygılar. Cvp: Hata mesajı - ertans - 31/01/2017 Sayın atoz112, hata veren kodların tamamı şöyle; Private Sub Ayrıntı_Paint() If Metin10 > 0 And Metin10 <= 3 Then Me.Kimlik.BackColor = vbGreen Me.tarih.BackColor = vbGreen Me.baslama_saat.BackColor = vbGreen Me.yer.BackColor = vbGreen Me.aciklama.BackColor = vbGreen ElseIf Metin10 >= 4 And Metin10 <= 6 Then Me.Kimlik.BackColor = vbYellow Me.tarih.BackColor = vbYellow Me.baslama_saat.BackColor = vbYellow Me.yer.BackColor = vbYellow Me.aciklama.BackColor = vbYellow ElseIf Metin10 > 6 Then Me.Kimlik.BackColor = vbRed Me.tarih.BackColor = vbRed Me.baslama_saat.BackColor = vbRed Me.yer.BackColor = vbRed Me.aciklama.BackColor = vbRed End If End Sub Bu kodlar konusunda siz yardımcı olmuştunuz. Girilmiş arızanın süresine göre bekleyen arızalar listesinde renk alıyor. Kodlar görevini yapıyor arızalar listede doğru renkleri alıyor fakat sık sık bu hata mesajı çıkıyor. |