Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma.

Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. (/konu-acilan-kutudan-secim-yapilarak-formu-pasif-yapma.html)

Sayfalar: 1 2

Cvp: Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. - fascioğlu - 02/07/2018

Olmadı malesef,sizin dediğinizi bende denemiştim.
Çok teşekkürler.

Cvp: Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. - ozanakkaya - 03/07/2018

@fascioğlu, frm_PERSONEL isimli formdaki ilgili kodu aşağıdaki ile değiştirerek deneyiniz

Sub Calisiyormu()

If Me.acl_durumu = "Çalışıyor" Or IsNull([acl_durumu]) Then



    Me.mtn_ayrilisnedeni.Visible = False

    Me.mtn_ayriltar.Visible = False

    Me.mtn_calistigigun.Visible = False

    Me.Metin213.Visible = True

    

    Me.frm_MAAS.Form.AllowEdits = True

    

Else



    Me.mtn_ayrilisnedeni.Visible = True

    Me.mtn_ayriltar.Visible = True

    Me.mtn_calistigigun.Visible = True

    Me.Metin213.Visible = False

       

    Me.frm_MAAS.Form.AllowEdits = False

    

End If

End Sub

bu kod sadece frm_MAAS isimli alt formda kilitleme işlemini yapar

Cvp: Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. - fascioğlu - 03/07/2018

Sayın hocam,
Kod bende hiç çalışmadı,hata msj.vermedi.
anlayamadım.
Saygılar.

Cvp: Açılan Kutudan Seçim Yapılarak Formu Pasif Yapma. - ozanakkaya - 04/07/2018

frm_PERSONEL isimli formdaki

1-) Sub Calisiyormu() kod bloğunu üstte verdiğim kod ile değiştireceksiniz,
2-) Bu kodun tetiklenmesi için, formun geçerli oluğunda olayına Calisiyormu şeklinde kod eklemeniz lazım. Bu kodunda hata kodlarının altına değil, kod içerisine yazılması gerekli

Private Sub Form_Current()

On Error GoTo err_Form_Current



    If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then

        Me!ResimCercevesi.Picture = Me!MKResimYolu

    Else

        Me!ResimCercevesi.Picture = ""

    End If

        



        

        

exit_Form_Current:

    Exit Sub

    

err_Form_Current:

    MsgBox Err.Description

    Resume exit_Form_Current

    

CerceveYenile

Calisiyormu

    

End Sub

Bu şekilde kod olmaz. CerveceYenile ve Calisiyormu kodları yanlış yerde.

On Error GoTo err_Form_Current kodu hata durumunda çalışacak kodları tanımlar, siz hata durumunda çalışacak kodların içerisine yazarsanız ve hata yok ise kod çalışmaz

Private Sub Form_Current()
On Error GoTo err_Form_Current

If Not Me!MKResimYolu = "" Or Not IsNull(Me!MKResimYolu) Then
Me!ResimCercevesi.Picture = Me!MKResimYolu
Else
Me!ResimCercevesi.Picture = ""
End If

CerceveYenile
Calisiyormu

exit_Form_Current:
Exit Sub

err_Form_Current:
MsgBox Err.Description
Resume exit_Form_Current

End Sub

Koddaki mavi ve kırmızı yerlere dikkat edin.