makrolarda hata mesajı

[damra2005]

bütün üstadlardan çok sık mesaj gönderdiğim için önce özür dilerim.
benim problemim ekli dosyadaki user formda.

1- Yeni Personel Kaydı Yapıldıktan sonra Yeni kayıt butonuna basıldığında hata mesajı veriyor
2- Comboboxtan personel seçildikten sonra Kayıt Bul butonuna basıldığında kayıtları bulmuyor. hata mesajı veriyor.
3- Kaydı bulup txtlerde kayıt düzelttinten sonra Kayıt düzelt butonuna basıldığında hata mesajı veriyor.
4- txt32 otomatik olarak toplam alınmıyor. birde kilitlenmesi gerekiyor.

şimdiden tüm üstadlarıma teşekkür ederim

 

[isakarakus]

1- hata satırı Cells(myRow, a) = Controls("txt" & a).Value
sebebi txt3 isimli bir tetxin omamaması
Sorunu gidermek için
a)tetxleri tekara isimlendir ve txt3 numaralı texti de ayarla

b) On Error Resume Next ifadesini yerleştir.
[vb:1:51f725a0a7] For a = 1 To 40
On Error Resume Next
MsgBox Controls("txt" & a).Name
Cells(myRow, a) = Controls("txt" & a).Value
Next[/vb:1:51f725a0a7]

2- hata satırı
[vb:1:51f725a0a7] If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then[/vb:1:51f725a0a7]

sebebi :cbAd.Value bu nesne yok gibi?
bunun yerine cbAdisoyadi.value olmalı

3-1. numaradaki hatanın aynısı txt3 nolu nesne yok.

4-hata: işlemin txt32.change olayına yazılmasında,
text32 değiştiğinde zaten yeni değeri olacak..
bunun yerine toplanacak txtlerin change olaylarına yazmalısın
örnek..

[vb:1:51f725a0a7]Private Sub txt26_Change()
text32 = CCur(text26) + CCur(test27) + CCur(text28) + CCur(text29) + CCur(text30) + CCur(texs31)
End Sub[/vb:1:51f725a0a7]

toplam txt'ini kitlemek için Locked özeliğine True değerini atamalısın.


bire de programda genel bir hata var. kitleniyor benim bilgisyarda bununsebebini anlayamadım.

 

[damra2005]

sayın isakarakuş hocam ben çaylak olduğum için yapamadım. yardımlarını bekliyorum

 

[isakarakus]

yukarıda saydığım sorunları çözsem bile genel bir sorunvar ve
ne olduğunu anlayamadım.
form kitleniyor.
yine de bakayım belki çözebilirim.