Form Kapatıldığında Diğer Formları Etkileme Sorunu
Tarih
25/03/2012 20:12
Konu Sahibi
emremzrk
Yorumlar
4
Okunma
1711
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



emremzrk
Üye
Kullanici Avatari
Üye
19
4
03/01/2012
0
Ankara
Ofis 2007
20/05/2012,22:06
Çözüldü 
Merhaba Arkadaşlar
Benim Sorunum Eklemiş Olduğum Uygulamada Form2 deki ComboBox da veritabanından gösterilen kayıtlara yeni kayıt eklemek için ekle butonuna tıklayınca form1 açılıyor orda veritabanına yeni bi değer ekleyip form1 i kapattığım yada yeni kaydı girdiğim zaman form2 deki Private Sub listelec() in çalışmasını istiyorum ama olmadı görünürde bir hata yok gibi ama yardım ederseniz sevinirim.


Ek Dosyalar
WindowsApplication1.rar
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.731
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,00:07
Çözüldü 
2008 ile açamıyorum. Versiyon sorunu yaşadım. Bilginize.
Cevapla


emremzrk
Üye
Kullanici Avatari
Üye
19
4
03/01/2012
0
Ankara
Ofis 2007
20/05/2012,22:06
Çözüldü 
2010 İle düzenlemiştim Genede Teşekkürler.

Kodlarını da paylaşabilirim
FORM1
---------------------------------------------------------------------------
Imports System.Data.OleDb

Public Class Form1
Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Veritabani.mdb")
Private komut As New OleDbCommand()


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
baglanti.Open()
komut.Connection = baglanti
komut.CommandText = "INSERT INTO statu(statu_tur) VALUES ('" + TextBox1.Text & "') "
komut.ExecuteNonQuery()
komut.Dispose()
MsgBox("Statü kaydedildi")
baglanti.Close()


End Sub

Private Sub FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

Form2.listelec()

End Sub


End Class



FORM2
---------------------------------------------------------------------------
Imports System.Data
Imports System.Data.OleDb

Public Class Form2
Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Veritabani.mdb")




Private Sub listele()
baglanti.Open()

Dim Sql As String
Sql = "select statu_tur from statu group by statu_tur"
Dim komut As New System.Data.OleDb.OleDbCommand(sql, baglanti)
Dim veri_okuyucu As Data.OleDb.OleDbDataReader
veri_okuyucu = komut.ExecuteReader
ComboBox1.Text = ""

ComboBox1.Items.Clear()

While (veri_okuyucu.Read())

ComboBox1.Items.Add(veri_okuyucu("statu_tur"))

End While
baglanti.Close()
End Sub


Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
listelec()
End Sub
End Class
Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
24/10/2016,00:04
Çözüldü 
Projene bir modül ekle ve örn:

Module Module1 'Modülde kullanacağın genel kod
Public Sub listec()
MsgBox(Now)
End Sub
End Module

Public Class Form1 'Form1'in kodları

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call listec()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
End Class

Public Class Form2 'Form2'nin kodları

Private Sub Form2_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
Call listec()
End Sub
End Class

bilmem anlatabildim mi : )
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla


emremzrk
Üye
Kullanici Avatari
Üye
19
4
03/01/2012
0
Ankara
Ofis 2007
20/05/2012,22:06
Çözüldü 
Teşekkür Ederim Sayenizde yaptım
Private Sub listec() Yerine Public Sub listec() yazdıgım Zaman Modül Oluşturmadanda oldu hata vermedi
Kolay Gelsin
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Vb.net print formunda alt satıra geçme sorunu alican60 2 94 23/11/2016, 20:33 alican60
Çözüldü Vb de SETUP Sorunu hatice.haa 3 724 14/06/2015, 18:33 hatice.haa
Çözüldü Değişken kullanarak Access de tablo oluşturma sorunu Gorkemku 2 1.772 13/05/2014, 12:37 Gorkemku
Çözüldü Farklı Ekran çözünürlüklerinde PROJE sorunu chevy 10 3.432 12/03/2014, 10:16 chevy
Çözüldü Access veritabanına kayıt Sorunu Black_Trouble 4 1.856 06/03/2014, 22:44 ozcan35


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