AccessTr.neT

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);


benzeri kod yazılabilir.eğer aksi durum söz konusu ise,ilgili kodu şu şekilde değiştirebilirsiniz.


bilginize...iyi çalışmalar,saygılar.

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.

sayın asar800,

aşağıdaki kod satırlarını deneyiniz.



bilginize...iyi çalışmalar,saygılar.

Teşekkürler Sn Atoz112

---

Sn Ozanakkaya
Size ayrıca teşekkür ederim.

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

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.