05-10-14, 12:55 PM
السلام عليكم ورحمة الله تعالى وبركاته
أخوتي الكريم أعضاء ومشرفين في المنتدى الطيب
عيد مبارك سعيد وكل عام وأنتم بألف خير
رجاءا عندي طلب
أرجوا تصحيح هذا الإجراء:
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
Try
Dim saveF As New OleDb.OleDbCommand
saveF.Connection = cnn
saveF.CommandType = CommandType.Text
saveF.CommandText = "Insert into Facture (N, Societe, Date, MontantHT)" & "values('" & txtNFact.Text & "','" & DTPiker.Value.ToString() & "'," & CmbClients.SelectedValue & ",," & TotHT.Text & ")"
Dim saveFL As New OleDb.OleDbCommand
saveFL.Connection = cnn
saveFL.CommandType = CommandType.Text
saveFL.CommandText = "INSERT INTO FactureL (N_Facture, CodeP, Quantité, Prix_Unit)" & "values('" & txtNFact.Text & "','" & CmbProd.SelectedValue & "', '" & txtQte.Text & "'," & PrixU.Text & ")"
cnn.Open()
saveF.ExecuteNonQuery()
saveFL.ExecuteNonQuery()
MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Cofermation")
Me.View(2)
cnn.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
CmbProd.Text = ""
txtQte.Text = ""
txtNFact.Focus()
End Sub
للعلم في خطأ يكمن في أن هذا الفورم به حقل مشترك بين جدولين هذا الحقل هو : N_Facture في جدول FactureL ونفس الحقل اسمه N في جدول Facture
أرجوا أن أكون قد وضحت الفكرة