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