Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
23/05/2019 09:03
Konu Sahibi
haziran4
Yorumlar
11
Okunma
292
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
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


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub AktifPasifHesap()

If Calisiyor_Ayrildi = "Ayrılmış" Then

    Me.Aktif_Pasif = "Ayrılmış"

ElseIf Calisiyor_Ayrildi = "Kapalı" Then

    Me.Aktif_Pasif = "Kapalı"
    Me.Vize_Baslangic_Trh = ""
    Me.Vize_Bitis_Trh = ""
    Me.Metin40.BackColor = vbRed

ElseIf Me.Personel_Ozel_Durumu <> "" Then 

Me.Aktif_Pasif = "Aktif"
Me.Metin40.BackColor = vbGreen

ElseIf Me.Vize_Bitis_Trh < Date Then

Me.Aktif_Pasif = "Pasif"
Me.Metin40.BackColor = vbRed

ElseIf Me.Personel_Ozel_Durumu = "" Or Me.Vize_Bitis_Trh < Date Then 

Me.Aktif_Pasif = "Pasif"
Me.Metin40.BackColor = vbRed

End If


End Sub



şeklinde kod ekle.

şeklinde kod ekle.

- Formun geçerli olduğunda olayına


Visual Basic Code
call AktifPasifHesap

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.



"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 01/07/2019,11:46
(24/05/2019 12:30)ozanakkaya Adlı Kullanıcıdan Alıntı: 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


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub AktifPasifHesap()

If Calisiyor_Ayrildi = "Ayrılmış" Then

    Me.Aktif_Pasif = "Ayrılmış"

ElseIf Calisiyor_Ayrildi = "Kapalı" Then

    Me.Aktif_Pasif = "Kapalı"
    Me.Vize_Baslangic_Trh = ""
    Me.Vize_Bitis_Trh = ""
    Me.Metin40.BackColor = vbRed

ElseIf Me.Personel_Ozel_Durumu <> "" Then 

Me.Aktif_Pasif = "Aktif"
Me.Metin40.BackColor = vbGreen

ElseIf Me.Vize_Bitis_Trh < Date Then

Me.Aktif_Pasif = "Pasif"
Me.Metin40.BackColor = vbRed

ElseIf Me.Personel_Ozel_Durumu = "" Or Me.Vize_Bitis_Trh < Date Then 

Me.Aktif_Pasif = "Pasif"
Me.Metin40.BackColor = vbRed

End If


End Sub



şeklinde kod ekle.

şeklinde kod ekle.

- Formun geçerli olduğunda olayına


Visual Basic Code
call AktifPasifHesap

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.


ü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


haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
Doğru olur. 

Call AktifPasifHesap kodunu yazdığınızda, Vba sayfasına yazdığınız 

Sub AktifPasifHesap
......
End Sub

Şeklindeki kod çalışacaktır.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 01/07/2019,11:46
Üstad Frm_Ustabilgilerini tıkladığımda boş geliyor ilşkili yerler dolu


[Resim: do.php?imgf=f35f5ad2589d1.jpg]



haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
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???


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 01/07/2019,11:46
Üstad Teşekkür ederim.


haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 116 10/07/2019, 16:20
Son Yorum: halily
Çözüldü Formda Form Yenileme haziran4 2 205 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 311 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Access Hatası FulyaTekin 4 161 01/05/2019, 15:06
Son Yorum: FulyaTekin
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 210 30/04/2019, 13:04
Son Yorum: haziran4

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.