AccessTr.neT

Birbiri ile ilişkili 2 tablom var "Firmalar" ve "İşlemler

Firmalar = firma bilgilerinin olduğu tablo (Form1)
İslemler = firmalarının matematiksel işlemlerinin yapılacağı tablom (Form2)

Form birde bir sıkıntım yok firma bilgilerini kayıt yapabiliyorum.

İsteğim şudur:

- Form1 de kayıt yaptığımda ("Firmalar" tablosuna) aynı firmayı "İslemler" tablosuna eklesin,

- Form2 deki Combobox1 e "Firma" tablosundan firma isimlerini aktarabiliyorum
firmayı seçtikten sonra textboxlara girdiğim rakamlarla hesaplama yapıyorum ve bunların Firma ismi ile "İslemler" tablosuna kaydetmesini istiyorum. Hesaplama için basit bir örnek yaptım Form2 nin içinde mevcuttur.

Teşekkürler...

muko.rar

Comboboxa verileri

Kod:
Private Sub combodoldur()

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")

        Dim veriler As New DataTable("Firmalar")

        Dim adapter As New OleDbDataAdapter("select * from Firmalar order by firma_id", baglanti)

        adapter.Fill(veriler)

        ComboBox1.ValueMember = "firma_id"

        ComboBox1.DisplayMember = "ad"

        ComboBox1.DataSource = veriler

    End Sub

böyle aldım. Kayıt işleminide

Kod:
If Me.ComboBox1.Text = "" Then

            MsgBox("Lütfen Firma Ünvani Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")

        Else

            Dim data As New String("INSERT INTO islem (firma_id,tarih,kilo,birim,toplam,stopaj,kesinti,net) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}')")

            data = String.Format(data, ComboBox1.SelectedValue, MaskedTextBox1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text)

            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")

            Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)

            Dim sonuc As Integer

            baglanti.Open()

            sonuc = komutnesnesi.ExecuteNonQuery()

            If sonuc = 1 Then

                MsgBox("Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")

                baglanti.Close()

            End If

            Listele("SELECT * FROM islem ORDER BY firma_id")

        End If

Böyle yaptım.
Faydalanmak istiyen olabilir diye düşündüm

drummers

drummers