Alt forum sorunu

1 2
11/03/2016, 13:09

yamtar

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.
11/03/2016, 13:25

atoz112

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.
11/03/2016, 14:13

yamtar

İlginiz için çok teşekkür ederim. İnceledim yalnız çok yeni olduğumdan çözümleyemedim.
11/03/2016, 14:21

atoz112

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.
11/03/2016, 16:07

yamtar

sayın atoz112,


veritaban resmini ekledim. kodlarımla. İnceleyebilir misiniz?
Yardımlarınız için teşekkür ederim.
12/03/2016, 05:46

ozanakkaya

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
1 2