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