AccessTr.neT

Tam Versiyon: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
selam arkadaşlar, hatayı bir türlü çözemedim, tıklıyorum ekleme butonuna, tık yok! hiç bir tepki vermiyor, bazı alanlarım boşken ayarladığım uyarıları veriyor ama tüm alanları doldurduğum zaman tık yok!
tam inceleyemedim ama sorun sizin if yapınızdan kaynaklanıyor olabilir tüm alanlar dolu olunca ekleme kodunu atlıyor
if yapınızı inceleyip tekrar deneyin
    DoCmd.SetWarnings False satırının üstüne else satırını ekleyip dener misiniz?
Else
DoCmd.SetWarnings False
Not: formülle değer atanmış odenekPlanlama gibi metin kutularına değer atayamazsınız, oralarda hata verir
Kodlarınızda yeni birim fiyat kısmını aşağıdaki gibi düzenleyin.

If Me.yeniBirimFiyat = 0 Then
ElseIf MsgBox("yeniBirimFiyati girecekseniz 'Hayır'ı tıklatın", vbYesNo) = vbNo Then
Exit Sub
Else
End If

Formdaki kontrolleri temizlemek için girdiğiniz kodları da silmeniz gerekli, denetim kaynağından değer hesaplaması yaptırdığınız kontrolleri temizlemek için bu yöntemi kullanamazsınız değer atama hatası verir. Denetim kaynağında hesaplanma yaptırmak yerine ilgili alanların güncellenme sonrasında kod ile işlem yaptırmanız daha doğru olur ve temizleme kodlarınız o takdirde doğru çalışır.
Yukarıda belirttiğim noktadan itibaren kodlarınızı

If Me.yeniBirimFiyat = 0 Then
ElseIf MsgBox("yeniBirimFiyati girecekseniz 'Hayır'ı tıklatın", vbYesNo) = vbNo Then
Exit Sub
Else
End If
   
If Nz(DCount("malzemeKodu", "surec", "malzemeKodu='" & Me.malzemeKodu & "'")) > 0 Then
MsgBox "bu malzeme kodu daha önce girilmiş"
Exit Sub
Else
End If

DoCmd.SetWarnings False
DoCmd.RunSQL "insert into surec (malzemeKodu,depoId,malzemeAdi,onGorulenAdetToplam,onGorulenOdenekTahsisi,merkeziAlimdanOngorulen,birimFiyat,odenekPlanlama,merkeziAlimPlanlama,yeniBirimFiyat,yeniToplamFiyat) values ('" & Me.malzemeKodu & "'," & Me.acilanDepo.Column(0) & ",'" & Me.malzemeAdi & "'," & Me.onGorulenAdetToplam & "," & Me.onGorulenOdenekTahsisi & "," & Me.merkeziAlimdanOngorulen & "," & Replace(Me.birimFiyat, ",", ".") & "," & Replace(Me.odenekPlanlama, ",", ".") & "," & Replace(Me.merkeziAlimPlanlama, ",", ".") & "," & Replace(Me.yeniBirimFiyat, ",", ".") & "," & Replace(Me.yeniToplamFiyat, ",", ".") & ")"
MsgBox "veriler kaydedildi"
DoCmd.SetWarnings True

'hata: MsgBox " bi sıkıntı var galiba!!.."
'Exit Sub

End Sub

şeklinde düzenlemelisiniz. Kodlar biraz daha derlenip toparlanabilir ancak çalışmanızı tam bilmiyorum ve detaylarını inceleme fırsatım olmadı ne yazık ki.
çok teşekkürler ilginizden dolayı, kısmen hallettim ama "bu denetime değer atayamazsınız" diye bir hata veriyor

Private Sub onGorulenOdenekTahsisi_Exit(Cancel As Integer)
Me.odenekPlanlama = Nz(Me.birimFiyat * Me.onGorulenOdenekTahsisi)
End Sub
şimdi dikkat ettim hesaplanan değeri atayacağım metin kutusunda ilişkisiz yazısı kaybolmuş, inceliyorum ama hiç bir yerle bağlantısı yok
Sayfalar: 1 2