Formda Açılır Kurularda 3101 Hatası Veriyor - 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ığı: Formda Açılır Kurularda 3101 Hatası Veriyor (/konu-formda-acilir-kurularda-3101-hatasi-veriyor.html) Sayfalar:
1
2
|
Cvp: Formda Açılır Kurularda 3101 Hatası Veriyor - ozanakkaya - 24/05/2019 Sizin uygulamanıza göre, geçerli olduğunda olayının çalışması için formu yenilemeniz gerekiyor. Formun geçerli olduğunda olayındaki kodu silin, Vba sayfasında en alta
şeklinde kod ekle. şeklinde kod ekle. - Formun geçerli olduğunda olayına
kodu ekle.Formun geçerli olduğunda olayına eklediğin kodu açılan kutuların güncelleştirme sonrasında olayına da ekle. Form geçerli olduğunda ve açılan kutularda değişiklik yaptığınızda Sub AktifPasifHesap çalışacaktır. Cvp: Formda Açılır Kurularda 3101 Hatası Veriyor - haziran4 - 24/05/2019 (24/05/2019, 12:30)ozanakkaya yazdı: Sizin uygulamanıza göre, geçerli olduğunda olayının çalışması için formu yenilemeniz gerekiyor. üstad Frm_Firma_Bilgileri diye de bir formum var sizin yukarıdaki örneğe göre onuda şu şekil yapsam doğrumudur. Sub AktifPasifHesap() Dim GDate, G1, G2, G3, G4 As Long GDate = CLng(Date) G1 = CLng(Nz(Me.Yillik_Vize_Bitis_Trh, Date)) G2 = CLng(Nz(Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi, Date)) G3 = CLng(Nz(Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi, Date)) G4 = CLng(Nz(Me.AltYapi_Vize_Bitis_Trh, Date)) If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then Me.Aktif_Pasif = "Kapalı" Exit Sub End If If (G1 > GDate) And (G4 < GDate) Then Me.Aktif_Pasif = "Pasif" Me.AltyapiVizeBitisTrh.BackStyle = 1 Me.AltyapiVizeBitisTrh.BackColor = vbRed Me.Aktif_Pasif.BackColor = vbRed ElseIf (G1 > GDate) And (G2 < GDate) Then Me.Aktif_Pasif = "Pasif" Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackStyle = 1 Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackColor = vbRed Me.Aktif_Pasif.BackColor = vbRed ElseIf (G1 > GDate) And (G3 < GDate) Then Me.Aktif_Pasif = "Pasif" ic_Tesisat_Belgesi_Vize_Bitis_Tarihi.BackStyle = 1 ic_Tesisat_Belgesi_Vize_Bitis_Tarihi.BackColor = vbRed Me.Aktif_Pasif.BackColor = vbRed ElseIf (G1 < GDate) Then Me.Aktif_Pasif = "Pasif" Me.Yillik_Vize_Bitis_Trh.BackStyle = 1 Me.Yillik_Vize_Bitis_Trh.BackColor = vbRed Me.Aktif_Pasif.BackColor = vbRed Else Me.Aktif_Pasif = "Aktif" Yillik_Vize_Bitis_Trh.BackStyle = 0 Me.AltyapiVizeBitisTrh.BackStyle = 0 Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackStyle = 0 Me.Yillik_Vize_Bitis_Trh.BackStyle = 0 Me.Aktif_Pasif.BackColor = vbGreen End If End Sub geçerli olduğunada Private Sub Form_Current() Call AktifPasifHesap End Sub yazsam buda doru olurmu Cvp: Formda Açılır Kurularda 3101 Hatası Veriyor - ozanakkaya - 24/05/2019 Doğru olur. Call AktifPasifHesap kodunu yazdığınızda, Vba sayfasına yazdığınız Sub AktifPasifHesap ...... End Sub Şeklindeki kod çalışacaktır. Cvp: Formda Açılır Kurularda 3101 Hatası Veriyor - haziran4 - 24/05/2019 Üstad Frm_Ustabilgilerini tıkladığımda boş geliyor ilşkili yerler dolu Cvp: Formda Açılır Kurularda 3101 Hatası Veriyor - ozanakkaya - 24/05/2019 Formun "Veri Girişi" özelliğini Evet olarak belirlerseniz boş form açılır. Veri Girişi özelliği hayır olarak seçilmelidir. Konu başlığındaki sorunuz çözüldü mü acaba??? Cvp: Formda Açılır Kurularda 3101 Hatası Veriyor - haziran4 - 24/05/2019 Üstad Teşekkür ederim. |