Merhaba,
Acceste çok yeniyim. Yapmakta olduğum programda, kaydet, iptal gibi butonları, tasarımdaki alt forum ile birleştiremedim. Normal tabloları iptal tuşuna bastığımda kitlerken alt forumlara bunu uygulayamıyorum. bu konuda yardımlarınızı rica ediyorum. Şimdiden yardımlarınız için teşekkür ederim. Saygılarımla.

sayın yamtar,

bahsettiğiniz talebinize yönelik olarak;
kendi adıma uygulamanızı inceleme imkanım olmadığından dolayı ilk etapta hem cevap vermiş olmak hem de faydası olması temennisi ile aşağıda bağlantısı yazılı konuyu incelemenizi ve bilgiler nezdinde denemelerde bulunmanızı önermek yerinde olacaktır kanısındayım.

Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme

denemeleriniz akabinde olası soruna veya hataya maruz kalırsanız,gerek bilgilendirmesi ve gerekse de ekran resimlerini dahil etmek sureti ile paylaşınız.

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

İlginiz için çok teşekkür ederim. İnceledim yalnız çok yeni olduğumdan çözümleyemedim.

sayın yamtar,

şu an uygulamanızı incelemek için imkan edindim fakat üst sürüm olması nedeni ile bakamıyorum.bu nedenle,kendi adıma uygulamanız üzerinden yardımcı olamıyorum.

önceki bağlantıda yer alan açıklamalardaki 1) ALT FORM DENETİM DEĞERLERİNE ULAŞMA adlı başlıkta yapılan açıklamaları okumanız ilk etapta yeterlidir.çünkü;bu anlatımda;alt form denetimine nasıl ulaşılabileceği belirtilmektedir.

bir de,aşağıda bağlantısı yazılı konunun 4.mesajında yer alan işlemleri denemek sureti ile önceki sürüme göre kaydetmeyi deneyiniz ve konunuza ekleyiniz.

otel otomasyonu

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

sayın atoz112,


veritaban resmini ekledim. kodlarımla. İnceleyebilir misiniz?
Yardımlarınız için teşekkür ederim.

Modülde

Case acTextBox

          If .Enabled = False Then .Enabled = True

          

        Case acComboBox

          If .Enabled = False Then .Enabled = True

          

        Case acCommandButton

          If .Enabled = False Then .Enabled = True

şeklinde kod bulunmakda. bu kod ile formdaki metin kutuları, açılan kutular ve butonlar kilitleniyor.

Alt formlarında kilitlenmesi için modüle acsubform eklenmesi gerekli,

modüldeki kodlar aşağıdaki gibi olmalı

Option Compare Database

Option Explicit



Public Sub PasifOlsun(Formadi As String)

Dim ctl As Control



  ' Form üzerindeki tüm denetimleri tek tek dolaşarak aktif-pasif özelliğinin  değiştirilmesini sağlar

  For Each ctl In Forms(Formadi).Controls

    

    With ctl

      ' Bana lazım olan denetimlerin türlerini seçiyorum

      Select Case .ControlType

        

        Case acTextBox

          If .Enabled = True Then .Enabled = False

          

        Case acComboBox

          If .Enabled = True Then .Enabled = False

          

        Case acCommandButton

          If .Enabled = True Then .Enabled = False

          

        Case acSubform

          If .Enabled = True Then .Enabled = False

      End Select

      

    End With

    

  

  Next ctl

  

  

  

End Sub

Public Sub AktifOlsun(Formadi As String)

Dim ctl As Control



  ' Form üzerindeki tüm denetimleri tek tek dolaşarak aktif-pasif özelliğinin  değiştirilmesini sağlar

  For Each ctl In Forms(Formadi).Controls

    

    With ctl

      ' Bana lazım olan denetimlerin türlerini seçiyorum

      Select Case .ControlType

        

        Case acTextBox

          If .Enabled = False Then .Enabled = True

          

        Case acComboBox

          If .Enabled = False Then .Enabled = True

          

        Case acCommandButton

          If .Enabled = False Then .Enabled = True

          

        Case acSubform

          If .Enabled = False Then .Enabled = True

          

      End Select

      

    End With



  Next ctl

    

End Sub