form kapatma butonu için kod hakkında
Tarih
08/02/2014 05:02
Konu Sahibi
miCRoBe`
Yorumlar
5
Okunma
2271
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
Sponsor Reklam

Visual Basic Code
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ı:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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.



Ek Dosyalar
.rar   telefon 08.02.2014.rar (Dosya Boyutu: 125,12 KB / İndirme Sayısı: 6)
Cevapla

direnist
Aktif Üye
Kullanici Avatari
Aktif Üye
D.... S....
328
05/11/2008
118
İstanbul
Ofis 2010 64 Bit
08/02/2017,08:41
Çözüldü 
merhaba;
UPDATE sorgusunu aşağıdaki sekilde yazıp denermisiniz?

SQL Code
"UPDATE [alislar] SET alisfiyati = " & Forms!stokarama!Metin334 & ", satisilkfiyati = " & Forms!stokarama!Metin335 & " WHERE alisid =  " & Forms!stokarama!Metin335 & ""

Tabi tablolardan da güncellemeleri yapmışmı yapmamış mı kontrolüde gerekli.

Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.304
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,00:25
Çözüldü 
Sponsor Reklam
Bu kodun amacı ne olacak?

Önceki formda kapat butonu için bu kodu yazmıştık, form kapatılmadan boş alan kontrolü ve önce yapılan işlemin iptali gibi işlemleri geri almak içindi.

Arama formunuzun kayıt kaynağı, formdaki metin kutularının denetim kaynağı yok, yani ilişkisiz. Satışı iptal etmediğiniz sürece herhangi bir değişiklik olmayacak.
Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
bu kodun amacı, stokta var olan telefonları görüntülemek amacıyla oluşturduğum "stok arama" formunda, istenildiği vakit stoktaki telefonların fiyatlarının güncellenmesi içindi.
bu forma fiyat görme ve fiyat güncelleme formu da diyebiliriz yani.

ozan bey önceki formdan kastınız sanırım satış arama formundaki

Visual Basic Code
DoCmd.RunSQL "UPDATE alislar SET Satildi = 0 WHERE (((alisid)=[Formlar]![satisarama]![alisid]));"
DoCmd.RunSQL "DELETE alisid FROM satislar WHERE (((alisid)=[Formlar]![satisarama]![alisid]));"

kodlarıydı.

bu formda sadece, istenildiğinde alışlar tablosundaki fiyatlar güncellenebilmeli.
fiyat kontrolü için oluşturmuştum fakat böyle bir ihtiyaçta oluştu.
istenildiğinde listeye çift tıklayıp ilgili alışid üzerinde fiyat güncellemesi yapmak için bu kodu denedim.

fiyat güncelle butonu için şu kodlar çalışıyor:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Komut32_Click()
If IsNull(Me.Metin334) Then
    MsgBox ("Alış Fiyatı alanı boş bırakılamaz!"), vbExclamation, "Alış Fiyatı Alanı Boş!"
    Me.Metin334.SetFocus
ElseIf IsNull(Me.Metin335) Then
    MsgBox ("Satış Fiyatı alanı boş bırakılamaz!"), vbExclamation, "Satış Fiyatı Alanı Boş!"
    Me.Metin335.SetFocus
Else
    If MsgBox("Girilen bilgiler güncellenecek..", vbInformation + vbYesNo, "Güncelleniyor...") = vbYes Then
    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"
    Me.Liste333.Requery
    Me.Komut32.Enabled = False
    Me.Metin111.SetFocus
    Me.Metin333 = ""
    Me.Metin334 = ""
    Me.Metin335 = ""
    End If
    Me.Liste333.Requery
    Me.Komut32.Enabled = False
    Me.Metin111.SetFocus
    Me.Metin333 = ""
    Me.Metin334 = ""
    Me.Metin335 = ""
End If
End Sub

fakat güncelleme sonrasında form kapat butonu için kodları doğru yazmayı başaramadım. debug hatası vermekte.

sayın direnist sizin verdiğiniz kodu da denedim yine debug hatası ile karşılaştım.

Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.304
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,00:25
Çözüldü 
Sponsor Reklam
fiyat güncelle butonunu tıkladığınızda bilgiler güncelleniyor. Butonun tıklandığında olayına

Visual Basic Code
  Me.Metin333 = ""
    Me.Metin334 = ""
    Me.Metin335 = ""


kodu eklediğiniz için metin kutuları temizleniyor.

Kapat butonunun sorusuna evet dediğinizde bu metin kutuları boş olduğu için

Visual Basic Code
DoCmd.RunSQL "UPDATE [alislar] SET alisfiyati = '" & Forms!stokarama!Metin334 & "',satisilkfiyati = '" & Forms!stokarama!Metin335 & "' WHERE alisid =  " & Forms!stokarama!Metin333 & ""

kodu hata veriyor.

Visual Basic Code
Private Sub Komut28_Click()


kodunun hemen altına

Visual Basic Code
on error resume next



kodunu eklerseniz sorun kalmaz.

Cevapla

miCRoBe`
Aktif Üye
Kullanici Avatari
Aktif Üye
88
08/10/2011
0
Belirtilmemiş
Ofis 2010
15/04/2015,03:20
Çözüldü 
teşekkür ederim iyi çalışmalar dilerim, sorun çözüldü.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Belirtilen Kayda Gidemezsiniz Hatası Hakkında İbrahim Şenol 11 80 10 saat önce İbrahim Şenol
  Kapatma Hatası metınaycıcek 14 136 Dün, 00:05 metınaycıcek
  prosedurler hakkında hknct 5 138 15/02/2017, 08:46 hknct
  Etikete Barkod Yazdırma Hakkında maboc 13 214 13/02/2017, 20:38 maboc
  Subform icin Arama butonu broiling 22 366 07/02/2017, 02:37 broiling


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya