Kod Hatası

karam · 26 Kasım 2008

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 · 26 Kasım 2008

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ı · 26 Kasım 2008

Sayın karam,

value text box (metin kutusunda)

caption label (etikette) kullanılır.

Nesneleriniz kontrol edip sonucu bildirebilirmisiniz*

iyi çalışmalar

karam · 27 Kasım 2008

adnanyurdakul' Alıntı:
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 · 27 Kasım 2008

modalı' Alıntı:
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 · 27 Kasım 2008

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ı · 27 Kasım 2008

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 · 27 Kasım 2008

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ı · 27 Kasım 2008

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 · 27 Kasım 2008

modalı' Alıntı:
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 · 27 Kasım 2008

else den sonra end if demeniz gerekli

modalı · 27 Kasım 2008

Şimdi daha dikkatli okudun.

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

İyi çalışmalar

karam · 27 Kasım 2008

adnanyurdakul' Alıntı:
else den sonra end if demeniz gerekli

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

karam · 27 Kasım 2008

modalı' Alıntı:
Ş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 · 27 Kasım 2008

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 · 27 Kasım 2008

seruz' Alıntı:
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