Private Sub Form_Current()
On Error Resume Next
Dim tarih As Date
Dim sontarih As Date
Dim sonuc As Date
If YIL <> "" Then
 
tarih = DateSerial(YIL, AY + 0, 1)
sontarih = DateSerial(YIL, AY + 1, 0)
 
sonuc = tarih - Weekday(tarih) + 1
If Month(sonuc) <> Month(tarih) Then
sonuc = sonuc + 7
End If
Etiket78.Caption = Fix((Day(sontarih) - Day(sonuc)) / 7) + 1
Else
Etiket78.Caption = ""
End If
 
End Sub

Private Sub Form_Current()
 
On Error Resume Next
 Dim adn As Control
    For Each adn In Me.Form.Controls
    Select Case adn.ControlType
        Case acTextBox 
 
            If adn.Value = "P" Then
            say = say + 1
 
         End If
    End Select
Next
calistigipazarlar = say
End Sub

Private Sub E01_AfterUpdate()
Form_Current
End Sub
 
Private Sub E02_AfterUpdate()
Form_Current
End Sub