+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton (/konu-tiklatildigi-zaman-hic-bir-tepki-vermeyen-buton.html)
Sayfalar:
1
2
Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton - tarkanaykın - 27/04/2022
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!
RE: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton - berduş - 27/04/2022
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
RE: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton - berduş - 27/04/2022
DoCmd.SetWarnings False satırının üstüne else satırını ekleyip dener misiniz?
Else
DoCmd.SetWarnings FalseRE: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton - atoykan - 27/04/2022
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.
RE: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton - atoykan - 27/04/2022
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.
RE: Tıklatıldığı Zaman Hiç Bir Tepki Vermeyen Buton - tarkanaykın - 28/04/2022
ç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