[atef_020]

السلام عليكم اخوانى 

سوالى كيف اربط رقم الفاتورة باسم اور رقم المورد بحيث اذا جاء رقم فاتورة سابق لنفس المورد تاتى رسالة بان رقم هذه الفاتورة موجود مسبقا لهذا المورد 

وجزاكم الله خيرا 

[atef_020]

مفيش اجابة

[atef_020]

فى فاتورة مشتريات المورد يوجد رقم الفاتورة مدون على  الفاتورة عندما ادخل هذه الفاتورة على البرنامج ادخل هذا الرقم يدوى فى رقم الفاتورة اريد تنبية اذا كان هذا الرقم لنفس المورد مدخل مسبقا على البرنامج البرنامج يعطى تنبية ان رقم هذه الفاتورة مدخل مسبقا فى عملية سابقة 

للتوضيح اكثر ان هذه الفاتورة ادخلت من قبل

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

[atef_020]

(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 على الرسالة ممكن يضيف الفاتورة عادى انا عاوز ان لو رقم الفاتورة موجود يوقف الادخال وعدم الانتقال  الى  الدتا جريد فيو للادخال