ارسال بيانات من نموذج الى جدول

[cudi]

كيف ارسل جميع بيانات حسب رقم الفاتورة مع جميع بيانات نموذج فرعي ، و اذا ارسلت مثلا رقم فاتورة 1 لا يسمح لي ان ارسل رقم فاتورة 1 مرة اخرى ، انا اريد ان يتكرر بيانات في ذلك جدول الذي اريد ان ارسل بيانات الى ، حتى يظهر جميع بيانات نموذج الفرعي

 

Database1.rar

[محمدنجار]

2 ساعات مضت, cudi said:

كيف ارسل جميع بيانات حسب رقم الفاتورة مع جميع بيانات نموذج فرعي ، و اذا ارسلت مثلا رقم فاتورة 1 لا يسمح لي ان ارسل رقم فاتورة 1 مرة اخرى ، انا اريد ان يتكرر بيانات في ذلك جدول الذي اريد ان ارسل بيانات الى ، حتى يظهر جميع بيانات نموذج الفرعي

:: المشكلة نوع الحقول غير متشابهه ... لكن لماذا تريد تكرار البيانات ... كل ما تحتاجة هو استعلام تحديد يجمع الجدولين لتخرج منه ايه بيانات تشاء ... تحياتي

[cudi]

نعم اخي محمد

لكن سأرسل بيانات سند قبض ، و بيانات فاتورة مرتجع مبيعات في نفس الجدول ، لذا ساحتاج استعلام الالحاق

هل بامكاني اعمل ذلك ؟

[محمدنجار]

14 ساعات مضت, cudi said:

سأرسل بيانات سند قبض ، و بيانات فاتورة مرتجع مبيعات في نفس الجدول ، لذا ساحتاج استعلام الالحاق

هل بامكاني اعمل ذلك ؟

:: نعم يمكن عمل ذلك ايظا بواسطة جملة Sql . بالتوفيق 

[cudi]

هل تستطيع تعديل هذا المرفق

 

Database1.rar

[محمدنجار]

55 دقائق مضت, cudi said:

هل تستطيع تعديل هذا المرفق

:: تفضل قد يفي بالغرض .......

Db_UP.rar

[cudi]

شكرا اخي العزيز محمد

لكن لا اريد ان يسمح لي ان ارسل بيانات فاتورة واحدة 2 مرات ، لما ارسل مرة ثانية يعطيني رسالة 

انت ارسلت بيانات فاتورة واحدة ، لا يجوز ان ترسل مرة اخرى

اذا غيرت رقم الفاتورة الى رقم 2 ، يعني فاتورة رقم 2 يسمح لي ان ارسل فقط بيانات فاتورة رقم 2 مرة واحدة وهكذا

يعني يسمح لي ان ارسل كل فاتورة مرة واحدة فقط

 

 

[محمدنجار]

29 دقائق مضت, cudi said:

لكن لا اريد ان يسمح لي ان ارسل بيانات فاتورة واحدة 2 مرات ، لما ارسل مرة ثانية يعطيني رسالة

:: اكتب هذه الجملة بدل الجملة السابقة ... بالتوفيق

 If DLookup("[id]", "details") = [SaleID] Then
  MsgBox "هذه الفاتورة مسجلة مسبقا"
Exit Sub
 Else
  DoCmd.SetWarnings False
    MsgBox "سيتم الحاق بيانات الفاتورة الى جدول التفاصيل"
   DoCmd.RunSQL "INSERT INTO Details ( ID, sDate, CustomerName, ItemsName, Qy, Price, Total )SELECT Sale.SaleID, Sale.SaleDate, Sale.CustName, Sub.Items, Sub.Qy, Sub.Price, Sub.Total FROM Sale INNER JOIN Sub ON Sale.SaleID = Sub.SubID"
    MsgBox "تم الالحاق"
  DoCmd.SetWarnings True
 End If

 

[cudi]

شكرا جزيلا اخي العزيز محمد

هذا هو المطلوب