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

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

اتفضل هذا طلبك بالتمام والمال ادراج اسم العميل وؤقمه (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 فاذا كان عندك الافضل فلا تبخل علينا

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

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

استاذي ابو خليل ممكن تشرح الكود للفائده بارك الله فيك Dim i As Boolean On Error Resume Next i = DLookup("Tarkam", "HRR", "Rajmsanf='" & Me.Rajmsanf & "'") If i = False Then Exit Sub Else hrk_B = Nz(DMax("Atarih", "HRR", "Nwaha='13'"), 0) hrk_sh = Nz(DMax("Atarih", "HRR", "Nwaha='11'"), 0) End If من فين اخذت كلمه Tarkam

طيب كيف اعدل الكود

استاذي الفاضل القاعده هي نفسها فقط هي منقسمه وعاملها في مجلد ومرتبطه D:\بـرنـامـج الـخـيـاط\data\data.mdb"

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

فهمتك يا صديقي الان DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));" كذا ممتاز استاذي كيف اجعل لهذا الكود شرط اذا كان نفس الاسم لايتكرر شوف الصورة

وعليكم السلام انا استخدمت هذا اخي جعفر DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _ "WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"