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.

2008 ile açamıyorum. Versiyon sorunu yaşadım. Bilginize.

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

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 : )

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