منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مفيش اجابة

ضع هذا في مديول :

و هذا في حدث تغير التكست بتاع الرقم :

(30-10-18, 12:53 AM)asemshahen5 كتب : [ -> ]ضع هذا في مديول :

كود :

Public Sub ChekSupplier(TxtSupplier As String,ID As String)
       Dim StrSQL As String = "Select * From Invoices Where TheSupplier = '" & TxtSupplier & "' And ID=" & ID
       Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb;User Id=admin;Password=;")
       Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)
       Dim dt As New DataTable
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           MsgBox("الفاتورة موجودة مسبقا باسم : " & dt.Rows(0)("TheSupplier").ToString)
       End If
   End Sub

و هذا في حدث تغير التكست بتاع الرقم :

كود :

ChekSupplier(TxtSupplier.Text,TxtID.Text)

جزاك الله خيرا اخى الكريم . بس فية حاجة بمجرد انى اضغط ok على الرسالة ممكن يضيف الفاتورة عادى انا عاوز ان لو رقم الفاتورة موجود يوقف الادخال وعدم الانتقال  الى  الدتا جريد فيو للادخال