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

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

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

استاذ جعفر الله يحفظك انا اقصد بهذا 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

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

استاذ جعفر الكود هو هكذا DoCmd.RunSQL ("INSERT INTO حركات ( [تاريخ الحركة], دائن, user ) SELECT [Forms].[Search]![snddate] AS Expr1," & _ "[Forms].[Search]![نص259] AS Expr2, [Forms].[login]![a] AS Expr3;") DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));" فاين اجعل لايساوي <> انا استعملت هذا DoCmd.Beep MsgBox "لـقـد تـم تـرحـيـل حـركـة : " & Format(Me.snddate, " يـوم dddd مـن قـبـل "), , " تنبيه : خـطـاء " 'Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO حركات ( [تاريخ الحركة], دائن, user ) SELECT [Forms].[Search]![snddate] AS Expr1," & _ "[Forms].[Search]![نص259] AS Expr2, [Forms].[login]![a] AS Expr3;") DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));" DoCmd.SetWarnings True فاذا كان عندك الافضل فلا تبخل علينا

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

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