Tek Tuş İle Alt ormu Gizleme yararlı bir örnek Olabir Diye düşündüm

mrb. aşağıda ekledim örnekte reçete yazma formu bulunmakta. ve yapmaya çalıştığım oraya bir sil butonu ekleyip o butona nasıl bi formül koyulabilir bilmiyorum ama sadece 1.ilaç 2. ilaç 3.ilaç 4. ilaç doz kısımları ve açıklama kısımları silinsin istiyorum. yani bir sil butonu olucak ve reçetenin ilaç ve doz açıklama kısmlarını silecek bi buton olucak ne kadar mümkün bilmiyorum. sebebim ise şu atıyor kayıtlı olan hasta bugün geliyor reçete yazılıyor. yazılan ilaçlar kayıtlı kalıyor. aradan 2 hafta

Access'in kendi kayıt tuşları makrolarını kullandığımızda Yeni kayıt için ayrı tuş, kaydı kaydet için ayrı tuş çıkar.
Ekteki örnek forma yazdığınız verileri kontrol edip, sizin yeni bir kayıt mı eklediğinizi , yoksa varolan bir kaydı mı değiştirdiğinizi anlayıp kaydet tuşuna bastığınızda ona göre işlem yapmaktadır.
Kod sayfasında her yordamın ve kodların ne yaptığının geniş açıklaması mevcuttur.
Saygılar.

****PROGRAMDA KULLANILAN ÖZELLİKLER*****
* Formun yüksekliği, genişliği ve ekrandaki ye

Oluşturduğum formda sekme denetimi ile 7 adet sayfa oluşturdum. Sayfaları elle değil de bir buton yardımı ile değiştirmek istiyorum. Önceki ve Sonraki sayfa butonuna bastığımda sırasıyla sayfalar arasında gezinmek istiyorum. Bir kod yazdım ancak bu tek tek geçiyor ve tek bir buton yerine her sayfaya buton koymak zorunda kalıyorum. Tek bir butonla nasıl geçiş yapabilirim. Yardımcı olabilirseniz sevinirim.


Kullandığım kod şudur:

Private Sub btn5_Click()
Me.Sayfa1.SetFocus
Sayfa2.SetFocu

Merhaba,

ekteki ekran görüntüsünde formda Mouse sağ click yaptığımda açılan ekrana exel vb istediğim bilgilerin gelmesini nasıl sağlayabilirim.

sayın arkadaşlar. çalışmamda Access penceresi gizleme kodu kullanıyorum. formda listeden seçtiğim kaydın raporunu açıyorum. ancak mouse sağ click açılmadığı için yazıcıya gönderemiyorum. kullandığım kodlar aşağıda. nerde hata yapıyorum acaba.


Kodlar;
Private Sub Komut41_Click()

If Liste2.ItemsSelected.Count = 0 Then: MsgBox "MsgBox "Lütfen raporu çıkarılacak kayıt seçin...", vbInformation, " ": Exit Sub

1. deneme : DoCmd.OpenReport "R_SONUÇ", acPreview, , "NumuneNo='" & Me.Liste2.Col