Skip to main content

AccessTr.neT


form kapatma butonu için kod hakkında

form kapatma butonu için kod hakkında

Çözüldü #1

DoCmd.RunSQL "UPDATE [alislar] SET alisfiyati = '" & Forms!stokarama!Metin334 & "',satisilkfiyati = '" & Forms!stokarama!Metin335 & "' WHERE alisid = " & Forms!stokarama!Metin333 & ""
böyle bir kod denedim kod çalışmakta fakat form kapat butonunda debug hatası almaktayım. yani düzgün çalışmayan bir kod yazımı mevcut sanırım.

stok arama formundaki liste kutusundan ilgili kaydın id sini alışlar tablosundan form üzerine aldım fakat form kapatma butonu için kod sorunu yaşıyorum.
kodun tamamı:

Private Sub Komut28_Click()
If IsNull(Me.Metin334) Or IsNull(Metin335) Then

If MsgBox("Formda Boş Alanlar Mevcut. Kaydedilmeden Kapatılsın mı?", vbInformation + vbYesNo, "Kapatılıyor...") = vbYes Then
Me.Undo
DoCmd.SetWarnings False
DoCmd.SetWarnings True
DoCmd.Close
End If

Else

mesaj = MsgBox("Form Kapatılmadan Önce Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "Form Kapanıyor...")

Select Case mesaj
Case 6
Me.Metin334.Enabled = False
Me.Metin335.Enabled = False
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [alislar] SET alisfiyati = '" & Forms!stokarama!Metin334 & "',satisilkfiyati = '" & Forms!stokarama!Metin335 & "' WHERE alisid = " & Forms!stokarama!Metin333 & ""
DoCmd.SetWarnings True
MsgBox "Kaydedildi..", vbInformation, "Kaydedildi"
DoCmd.Close
Case 7

Me.Undo
DoCmd.Close
Case 2

Exit Sub
End Select

End If
End Sub
vakti olan bilgili arkadaşlar yardım edebilirse sevinirim.

teşekkürler.
.rar telefon 08.02.2014.rar (Dosya Boyutu: 125,12 KB | İndirme Sayısı: 16)
Son Düzenleme: 08/02/2014, 20:48, Düzenleyen: miCRoBe`.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
form kapatma butonu için kod hakkında - Yazar: miCRoBe` - 08/02/2014, 05:02
Task