AccessTr.neT

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