form kapatma butonu için kod hakkında
Tarih
08/02/2014 05:02
Konu Sahibi
miCRoBe`
Yorumlar
5
Okunma
2092
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ü 

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
07/12/2016,18:50
Çö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.060
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,23:19
Çözüldü 
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.060
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Dün,23:19
Çözüldü 
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
  Call hakkında koruyucu 4 65 5 saat önce koruyucu
  Tablo ilişkilendirme kontrolü hakkında nightashes 2 56 08/12/2016, 23:49 nightashes
  Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 200 08/12/2016, 21:40 alpeki99
  Liste kutusu sütün hizlama ve biçim değiştirme hakkında nightashes 13 164 07/12/2016, 20:10 nightashes
  Tabloda ileriki hesaplamalar için kullanılmak üzere seçim yaptırmak nightashes 6 128 02/12/2016, 20:52 atoz112


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