تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ربط رقم فاتورة بمورد
#1
السلام عليكم اخوانى 



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

وجزاكم الله خيرا 
الرد
تم الشكر بواسطة:
#2
مفيش اجابة
الرد
تم الشكر بواسطة:
#3
فى فاتورة مشتريات المورد يوجد رقم الفاتورة مدون على  الفاتورة عندما ادخل هذه الفاتورة على البرنامج ادخل هذا الرقم يدوى فى رقم الفاتورة اريد تنبية اذا كان هذا الرقم لنفس المورد مدخل مسبقا على البرنامج البرنامج يعطى تنبية ان رقم هذه الفاتورة مدخل مسبقا فى عملية سابقة 
للتوضيح اكثر ان هذه الفاتورة ادخلت من قبل
الرد
تم الشكر بواسطة:
#4
ضع هذا في مديول :

كود :
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)
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم