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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استشارة في تصميم فاتورة المبيعات mazen.excel 3 153 27-09-18, 08:55 PM
آخر رد: viv
Lightbulb [مشروع] فاتورة مبايعة aya_center 3 188 15-07-18, 01:31 AM
آخر رد: elgokr
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 3 1,079 05-05-18, 02:23 AM
آخر رد: altho8
  تصميم فاتورة المبيعات باستخدام داتا قرايد فيو nooralcown 1 277 01-02-18, 03:37 PM
آخر رد: محمود صالح
  [VB.NET] فاتورة البيع محمد اسماعيل 6 309 25-01-18, 01:05 PM
آخر رد: محمد اسماعيل
  مساعدة في فاتورة مبيعات الدريساوي 2 267 09-12-17, 11:58 PM
آخر رد: الدريساوي
  [سؤال] مشكلة في اسماء الاصناف في فاتورة المبيعات ملهمـ 8 613 22-11-17, 02:55 AM
آخر رد: ملهمـ
  كيفية عمل فاتورة atefkhalf2004 2 403 26-10-17, 07:51 PM
آخر رد: atefkhalf2004
  تحميل فاتورة جديدة ahmedgamal 3 300 18-09-17, 06:23 AM
آخر رد: khodor1985
  استسفسار حول التعديل على فاتورة المشتريات والقيمة المتألق9 1 493 22-08-17, 02:47 PM
آخر رد: نبيل كونكت

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


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