Kod Hatası

[karam]

Private Sub bayrammesaisi_Click()
If bayrammesaisi.Value = False Then
If vardiyasayısı.Value <> "" Then
bayrammesaisi.Value = True
MsgBox "VARDİYA PERSONELİ TANIMLI İKEN İPTAL EDEMESSİNİZ ", , "Mantıksal Hata!"
Else

bayrammesaisi.Caption = "BAYRAM MESAİSİ KESİLMEYECEK"
bayramgünsayısı.visible = False
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
Exit Sub
End If
End If
bayrammesaisi.Caption = "BAYRAM MESAİSİ KESİLECEK"
bayramgünsayısı.visible = True
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
End Sub



Diye bir kodu uyarladım ancak "bayramgünsayısı" hatalı diyor ve şayet bu değeri "value" yaparsam doğru diyor ancak normal çalışmıyor açık kapadığımda kutular olması gerektiği gibi çalışmıyor bayram mesaisi var dediklerimde dahil görünmüyor ancak tekrar caption yaparsam normal görünüyor her açıp kapadığımda bozuluyor.
nerede hatam var yardımcı olurmusunuz.

 

[adnanyurdakul]

bayramgünsayısı diye tanımlanan alanın varlığından emin olun. eğer tablonuzda böyle bir alan varsa (harf hatası olabilir) formunuzdaki metin lutusunun ismine bakın aynı isimde olmalı. Kodda hata yok iyi çalışmalar

 

[modalı]

Sayın karam,

value text box (metin kutusunda)

caption label (etikette) kullanılır.

Nesneleriniz kontrol edip sonucu bildirebilirmisiniz*

iyi çalışmalar

 

[karam]

bayramgünsayısı diye tanımlanan alanın varlığından emin olun. eğer tablonuzda böyle bir alan varsa (harf hatası olabilir) formunuzdaki metin lutusunun ismine bakın aynı isimde olmalı. Kodda hata yok iyi çalışmalar

Sayın Adnan Yurdakul Dediğin Gibi Hepsini Tekrar kontrol Ettim Bir Harf Hatalı imiş Düzelttim Hata kodu Gitti


ANCAK Programı kapatıp açtığımfa her zaman bayram mrsaisi kesilecek olarak geliyor işaretliyor kesimeyecek yapıyorum tekrar kapatıp açtığımda yine kkesilecek olarak geliyor varsayılan değeri " doğru " yapmıştım ondanmı bilmiyorum.?


ilgin için teşekürler.

 

[karam]

Sayın karam,

value text box (metin kutusunda)

caption label (etikette) kullanılır.

Nesneleriniz kontrol edip sonucu bildirebilirmisiniz*

iyi çalışmalar

Sayın modalı evet Tespitin doğru o kısım düzeldi . şimdi benim sorunum kapatıp açınca değerleri tutmuyor hep bayram mesaisi kesilecek olarak geliyor. ve açılan kutular görünmesi gerekir iken görünmüyor tekrar klık'lediğimde düzeliyor.


Private Sub bayrammesaisi_Click()
If bayrammesaisi.Value = False Then
If vardiyasayısı.Value <> "" Then
bayrammesaisi.Value = True
MsgBox "Vardiya personeli Tanımlı İken Silinemez Önce Vardiya Personeli Silinmelidir", , "Mantıksal Hata!"
Else
bayrammesaidurumu.Caption = "Bayram Mesaisi Yok (Kesilmeyecek)"
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
bayramgünsayısı.Visible = False
Exit Sub
End If
End If
bayrammesaidurumu.Caption = "Bayram Mesaisi var (Kesilcek)"
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
bayramgünsayısı.Visible = True
End Sub


Kod Bu şekilde düzenledim hala bayram kesilecek diye geliyor

 

[adnanyurdakul]

sn modalının dediklerini de yapmalıydın
ben o kısma dikkat etmemiştim yani bayrammesaidurumu.Caption = "Bayram Mesaisi var (Kesilcek)" sanırım hatalı çünkü bayrammesaidurumu tablodaki bir alanın ismi
alanının ismini yazdığın şekilde kullanamzsın
iyi çalışmalar

 

[modalı]

Sayın karam,

Uygulama elimde olmadığı için yine bir tahminde bulubacağım:

Siz formunuzun nasıl görüneceğini Form Load olayında ayarlayabilirsiniz. Yani Form Load olayına ilgili kodların eklenmesi gerekir.

Bir de kayıtdan kayıda geçerken yine başlangıç ayarlarını olması için aynı kodları Form Current olayına da eklemeniz gerekir.

Sizin kodlar üçüncü aşama bayrammesaisi ne klikleyince oluşacakları kapsıyor.

Uygulamayı bilmediğim için bu kadar yardım edebiliyorum. Ama genel mantık bu.

İyi çalışmalar

 

[karam]

gerçeten tespitiniz dogru elimde bir örnek var onu inceledim ve "form güncellendiğinde" kısmında bir kod vardı bende onu uyarladım
Private Sub Form_Current()
Dim path As String
If Me.NewRecord Then
If Forms![frmSözleşme]![ bayrammesaisi] = False Then
bayrammesaidurumu.Caption = "Bayram Mesaisi Yok (F.Kesilmeyecek)"
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
bayramgünsayısı.Visible = False

Else
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
bayramgünsayısı.Visible = True

end Sub

ancak complie yaptığımda end sub kısmında hata kodu verdi?
Block İf Without end İf hatası veriyor
end İf ekledim ama kabul etmiyor.

 

[modalı]

Sayın karam,

end Sub ı

End Sub olarak değiştirmeyi denediniz mi?

Bir bakın yazı mavi mi siyah mı kod sayfasında?

 

[karam]

Sayın karam,

end Sub ı

End Sub olarak değiştirmeyi denediniz mi?

Bir bakın yazı mavi mi siyah mı kod sayfasında?

mavi renkte ve harfi küçültmeme müsade vermiyor otomatik olarak büyütüyor.

 

[adnanyurdakul]

else den sonra end if demeniz gerekli

 

[modalı]

Şimdi daha dikkatli okudun.

End Sub üstüne iki adet End If eklemeniz gerekiyor.

İyi çalışmalar

 

[karam]

else den sonra end if demeniz gerekli

evet else donra iki adet enf if dediğimde geçti
çok teşekür ederim

 

[karam]

Şimdi daha dikkatli okudun.

End Sub üstüne iki adet End If eklemeniz gerekiyor.

İyi çalışmalar

verdiğiniz görüşler ufkumuzu açıyor çok teşekürler şimdi diğer tarfları bir inceyeceğim zannederim olacak inşallah

çok teşekürler.

 

[seruz]

End if 'ler yok sanırım.
Bir de bu şekilde deneyin.

Private Sub Form_Current()
Dim path As String
If Me.NewRecord Then
If Forms![frmSözleşme]![ bayrammesaisi] = False Then
bayrammesaidurumu.Caption = "Bayram Mesaisi Yok (F.Kesilmeyecek)"
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
bayramgünsayısı.Visible = False

Else
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
bayramgünsayısı.Visible = True

End If
End If
End Sub

Not: 2. Sayfayı ve dolayısıyla sorunun çözüldüğünü görmemişim. Pardon.

 

[karam]

End if 'ler yok sanırım.
Bir de bu şekilde deneyin.

Private Sub Form_Current()
Dim path As String
If Me.NewRecord Then
If Forms![frmSözleşme]![ bayrammesaisi] = False Then
bayrammesaidurumu.Caption = "Bayram Mesaisi Yok (F.Kesilmeyecek)"
vardiyasayısı.Visible = False
toplamgüvenlik.Visible = False
bayramgünsayısı.Visible = False

Else
vardiyasayısı.Visible = True
toplamgüvenlik.Visible = True
bayramgünsayısı.Visible = True

End If
End If
End Sub

Not: 2. Sayfayı ve dolayısıyla sorunun çözüldüğünü görmemişim. Pardon.

dalgınlıklada olda yine çok teşekür ederim