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



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

وجزاكم الله خيرا 
الرد
تم الشكر بواسطة:
#2
مفيش اجابة
الرد
تم الشكر بواسطة:
#3
شو الفكرة بالضبط، السؤال مش واضح.
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: elgokr
#4
فى فاتورة مشتريات المورد يوجد رقم الفاتورة مدون على  الفاتورة عندما ادخل هذه الفاتورة على البرنامج ادخل هذا الرقم يدوى فى رقم الفاتورة اريد تنبية اذا كان هذا الرقم لنفس المورد مدخل مسبقا على البرنامج البرنامج يعطى تنبية ان رقم هذه الفاتورة مدخل مسبقا فى عملية سابقة 
للتوضيح اكثر ان هذه الفاتورة ادخلت من قبل
الرد
تم الشكر بواسطة:
#5
ضع هذا في مديول :

كود :
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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعد في عمل فاتورة مبيعات alshandodi 4 157 07-02-19, 03:52 PM
آخر رد: Emam emam
  استشارة في تصميم فاتورة المبيعات mazen.excel 3 226 27-09-18, 08:55 PM
آخر رد: viv
Lightbulb [مشروع] فاتورة مبايعة aya_center 3 239 15-07-18, 01:31 AM
آخر رد: elgokr
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 3 1,188 05-05-18, 02:23 AM
آخر رد: altho8
  تصميم فاتورة المبيعات باستخدام داتا قرايد فيو nooralcown 1 339 01-02-18, 03:37 PM
آخر رد: محمود صالح
  [VB.NET] فاتورة البيع محمد اسماعيل 6 378 25-01-18, 01:05 PM
آخر رد: محمد اسماعيل
  مساعدة في فاتورة مبيعات الدريساوي 2 326 09-12-17, 11:58 PM
آخر رد: الدريساوي
  [سؤال] مشكلة في اسماء الاصناف في فاتورة المبيعات ملهمـ 8 724 22-11-17, 02:55 AM
آخر رد: ملهمـ
  كيفية عمل فاتورة atefkhalf2004 2 448 26-10-17, 07:51 PM
آخر رد: atefkhalf2004
  تحميل فاتورة جديدة ahmedgamal 3 340 18-09-17, 06:23 AM
آخر رد: khodor1985

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


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