ابو ياسين المشولي

للرفع

العفو اخي ابو زاهر

اتفضل اخي ابو زاهر طباعه الفاتوره.rar

نعم هو هذا ما اقصده

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

استاذ جعفر الله يحفظك انا اقصد بهذا supplierموجود في النوذج والبينات انا اخذها من النموذج وليس الجدول انا اعترف اني لا اعرف اشرح مثلكم ولكن الكود واضح انه من خلال النموذج وانا اتكلم عن supplier وهذا payment_date في نموذج سند صرف وليس جدول سند صرف ارجو ان تفهمني الامر انا اريده يتقيد بالنموذج وليس بالجدول الجدول اللي يتقيد فيه الشرط هو جدول الحركات

اخي الغالي ترى ماله علاقه بالأمر انا غيرته الان وماله علاقه انت لو لاحظت انا عامل عند التحديث بدون رقم السند DoCmd.RunSQL ("INSERT INTO حركات ([نوع السند], البيان, الاسم, [تاريخ الحركة], مدين, [user] ) SELECT = ""الموردين"" AS Expr6," & _ """ دفعة "" & [Forms].[سند_صرف]![supplier_name] AS Expr4, = ""الخزينه"" AS Expr2, [Forms].[سند_صرف]![payment_date] AS Expr3," & _ "[Forms].[سند_صرف]![payment_amount] AS Expr5, [Forms].[login]![a] AS Expr1;") لو ركزت على الكود بتجد انه ماله علاقه برقم السند انا كل شي معي تمام فقط انا ببسط لك الامر انا الان جعلت supplier = دفعه بيد الاسم بمعنى supplier اصبح مايقابل البيان بجدول الحركات و payment_date اصبح مايقابل تاريخ الحركة بجدول الحركات هو ما اريده اذا كان مسجل من قبل لا يقبل فق والشرط هو هذا supplier وهذا payment_date اريده عند ما اعمل ترحيل اذا كان في جدول حركات موجود بنفس هذا supplier وهذا payment_date لا ينفذ الامر هذا كل ما اريد

هذا مثال وانت طبقه بطريقتك طباعه الفاتوره.rar

ابشر اخوي جعفر وهذا المرفق كما طلبت ترحيل.rar

بالتوفيق اخي بارك الله فيك

اتفضل هذا طلبك بالتمام والمال ادراج اسم العميل وؤقمه (3).rar

اخي هذا رابط المثال http://www.mediafire.com/file/2l6krojtbjgk42z/مثال.mdb

اخي ابو زاهر جرب هذا واعطيني خبر ادراج اسم العميل وؤقمه.rar

اخي طاهر الوليدي انا بعطيك مثال وانت طبقه على شغلك مثال.rar

هل هذا ما تقصده ادراج اسم العميل وؤقمه (1).rar

اخي الفاضل بارك الله فيك هي نفس الطريقه فقط قم بتغير اسم الاستعلام ونص الرساله DoCmd.OpenQuery "q1"

If DCount("*", "حركات", "[البيان]='" & " دفعة " & Me.supplier_name & "'" & "and [التاريخ]=#" & Me.payment_date & "#") > 0 Then DoCmd.Beep MsgBox "لـقـد تـم تـرحـيـل عـلـى حـسـاب : " & Format(Me.[supplier_name], " ") & " مـن قـبـل ", , " بـرنـامـج الـخـيـاط : " Else DoCmd.SetWarnings False DoCmd.CancelEvent DoCmd.RunSQL ("INSERT INTO حركات ([نوع السند], البيان, الاسم, [تاريخ الحركة], مدين, [user] ) SELECT = ""الموردين"" AS Expr6," & _ """ دفعة "" & [Forms].[سند_صرف]![supplier_name] AS Expr4, = ""الخزينه"" AS Expr2, [Forms].[سند_صرف]![payment_date] AS Expr3," & _ "[Forms].[سند_صرف]![payment_amount] AS Expr5, [Forms].[login]![a] AS Expr1;") DoCmd.SetWarnings True انا عندي جدول اسمه الحركات كما يسموه البعض الصندوق في هذا الجدول انا عندما ارحل من النموذج المرفق هو مثلا بيرحله بهذا الشكل حسب الكود المرفق في البيان دفعه عالم النسيج وفي التاريخ تاريخ اليوم مثلا الشرط اللي اريده اذا في بنفس التاريخ وبنفس دفعه عالم النسيج لا يقبل

استاذي ابوخليل كيف اعمل شرط اذا كانت اسماء الجداول غير لا ينفذ الامر

اخي الفاضل ليس معطوب نزل اخر اصدار winrar هذة الرساله DoCmd.Beep If MsgBox(" هــل تـريـد نــســخ الاسـمـاء إلـى قـاعـدة الـعـمـلاء " & vbCrLf & "", vbYesNo, " بـرنـامـج الـخـيـاط ") = vbYes Then Dim strSQL As String DoCmd.SetWarnings False DoCmd.OpenQuery "q1" DoCmd.SetWarnings True Beep MsgBox " تـم نــســخ الاسـمـاء إلـى قـاعـدة الـعـمـلاء بـنـجـاح", vbInformation, " بـرنـامـج الـخـيـاط "

السلام عليكم اخواني اعضاء ومشرفي الموقع الكرام اخواني لدي في المرفق نموذج عند الترحيل اريد تحقيق الشرط وهو اذا كان موجود في جدول الحركات حقل البيان + حقل تاريخ الحركة مثلا دفعه عالم النسيج موجود في حقل البيان+ تاريخ اليوم مثلا موجود في حقل تاريخ الحركة لا يضيف شي واذا غير موجود يضيفه مرفع المثال ولكم الشكر مقدما ترحيل.rar

اتفضل اخي هذا طلبك dbQ1.rar

استادي الفاضل تسلم يدك ماقرت وبارك الله فيك باقي معي مشلكه عندما اعمل استيراد لازم اخرج وافتح البرنامج من جديد حاولت عمل له كود التحديث لكن دون فائده ماهي الطريقه لو تكرمت

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

استاذي اب خليل اكتشفت المشكله انه بسبب وجود علاقات بدون العلاقه يشتغل مضبوط ارفقت لك مثال http://www.mediafire.com/file/10g113hkokh8usc/%D8%A8%D9%80%D8%B1%D9%86%D9%80%D8%A7%D9%85%D9%80%D8%AC+%D8%AE%D9%80%D9%8A%D9%80%D8%A7%D8%B7.rar http://www.mediafire.com/file/10g113hkokh8usc/بـرنـامـج+خـيـاط.rar

تسلم استاذي ابو خليل ولكن للاسف مازال يجني خطاء شوف الصور