Sorgulama uygulaması yardımı - 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ığı: Sorgulama uygulaması yardımı (/konu-sorgulama-uygulamasi-yardimi.html) Sayfalar:
1
2
|
Cvp: Sorgulama uygulaması yardımı - atoz112 - 03/05/2016 sayın asar800, bahsettiğiniz talebinize yönelik olarak; öncelikle kendi adıma, üst sürüm olması nedeni ile uygulamanızı inceleme imkanı söz konusu değil fakat yazdığınız tanımlar ve kod ifadelerinden faydalanmak sureti ile,aşağıdaki kodları deneyebilirsiniz. eğer dt_code denetiminde (alanında) belirttiğiniz bu iki seçimden biri söz konusu ise içeriğinde ("BTK" / "BCK" kast edilmektedir); Kod:
Private Sub nameid_Click() Kod:
If Me.dt_code="BTK" then Cvp: Sorgulama uygulaması yardımı - asar800 - 03/05/2016 Sn Atoz112 dt_code denetiminin (alanında) içeriğinde "BCG" "BCK" "MKR" "MTG" "BTG "BTK" var. "BCG" "BCK" " "MKR" "MTG" varsa frmDetay ,"BTG "BTK" varsa frmDetay2 açılacak. Verdiğiniz koda bu şekilde ekleme yapmaya çalıştım fakat hata verdi. Cvp: Sorgulama uygulaması yardımı - atoz112 - 03/05/2016 sayın asar800, aşağıdaki kod satırlarını deneyiniz. Kod:
Private Sub nameid_Click() Cvp: Sorgulama uygulaması yardımı - asar800 - 03/05/2016 Teşekkürler Sn Atoz112 Sn Ozanakkaya Size ayrıca teşekkür ederim. Cvp: Sorgulama uygulaması yardımı - asar800 - 12/05/2016 Merhabalar Aşağıdaki 2 kodu nameid_Click() olay yordamında birleştirebilirmiyiz? Fakat 1. koddaki gibi formu açmayacak 2. koddaki gibi gizli olan forma bilgileri getirecek ve gizli form görünür olacak. 1.kod Private Sub nameid_Click() On Error GoTo Error_Trap Select Case Me.dt_code Case "BCG", "BCK", "MKR", "MTG" DoCmd.OpenForm "frmDetay", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog Case "BTG", "BTK" DoCmd.OpenForm "frmDetay2", acNormal, , Me.ActiveControl.ControlSource & "=" & Me.ActiveControl, acFormEdit, acDialog End Select Error_Trap: MsgBox ("Error Code:" & Err.Number & " Error Description:" & Err.Description) End Sub 2.kod Private Sub Komut25_Click() Me.DETAY.SourceObject = "frmDetay" End Sub Cvp: Sorgulama uygulaması yardımı - atoz112 - 12/05/2016 sayın asar800, Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız. bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz. böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakınmasını ve incelemesini de sağlamış olursunuz. konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır. uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz. katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır. bilginize...iyi çalışmalar,saygılar. |