jjafferr

وعليكم السلام تأكد ان الملف MSCOMCTL.OCX موجود في الكمبيوتر ، ولإنزاله ، لنسخة الاوفيس 32 بت ، ونسخة الاوفيس 64 بت ، وهنا معلومات اخرى: http://www.fmsinc.com/microsoftaccess/controls/mscomctl/ جعفر

للتجربة ، شيل هذه الجملة \" & Environ("Username") & "\ واستبدلها باسم المستخدم ، حتى يكون المسار كله واضح ، مثلا اذا كان اسم المستخدم jjafferr Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\jjafferr\Desktop\123.mdb", 1) وقرأت هذا في احد المنتديات الاجنبية: net use "\\xxx.xxx.xxx.xxx\Some Folder" /user:domain\user_name p@ssw0rd xcopy "\\xxx.xxx.xxx.xxx\Some Folder\New.txt" "D:\new.txt" والامر Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) سيصبح Call Shell("net use \\192.168.20.1\123.mdb /user:UserName myPassword" "xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) ويجب ان تغيّر UserName myPassword الى الاسماء الحقيقية جعفر

وهنا وبدون جداول تجميع ولا استعلامات وسيطة: الحالة الاولى تجميع عدد الشهدات easa التى لم يصدر لها faa + الحالة الثانية تجميع عدد الشهدات faa التى لم يصدر لها easa + الحالة الثالثة تجميع عدد الشهدات faa التى صدر لها easa + الحالة الرابعة تجميع عدد الشهدات ecaa التى لم يصدر لها easa , faa . وعدد السجلات يؤكد ما ذكرته سابقا بالطريقة الاخرى . جعفر 603.3.xxx.mdb.zip

هو السيريال منقسم في الجدول اصلا ، فنعم ، كلامي السابق كان: بما ان السيريال مجموع كمجموعة في الاستعلام التجميعي ، فلما تضيف الشهادة او الشركة ، فانت تفككه ، ويرجع كما كان في الجدول ، كما في طريقتك Dcount جعفر

احنا نحاول نعرف الخطأ فين خلينا نستعين بادوات الوندوز ، لذا رجاء تفتح: . ثم اضف السطر الاول من xcopy ، ورجاء كتابة المسار كاملا لشخص واحد ، للتجربة ، وانظر الى سبب عدم النسخ (السطر التالي ، والذي بجانبه السهم الاحمر) . من هنا سنعرف اذا كانت المشكلة في الشبكة ، او محتاج اسم المستخدم و الباسورد جعفر

نعم تحقق ، وهي عينا نفس البيانات للجدول EASA ، وعلشان تعرف انها تحققت ، جرب هذا الكود والناتج صفر =DCount("*","[xxx]","[EASA]=1 and [faa]=1") بينما هذا سيعطيك سجلات الجدول FAA =DCount("*","[xxx]","nz([EASA],0)=0 and [faa]=1") جعفر

ليش ما تشاركنا في معرفة الحل ، وكمان نتعلم كلامك صح جعفر

الحقول EASA و FAA عبارة حقول رقمية ، بينما انت عاملتهم كانهم حقول نص !! الكود الصحيح: =DCount("[EASA]","[xxx]","[EASA]=1 and [faa]=0") جعفر

انا تفاديت هذه المشكلة من البداية في طريقتي ، فلم اعمل مجاميع ، وانما عملت كل SN مع الزبون والشهادة ، فالعملية اصبحت سهلة ومجرد جمع جعفر

1. الاستعلام الجدولي معناه انك جمعت SN لمجموعات ، بينما لما تضيف العملاء للإستعلام الجدولي ، فالـ SN الواحد يتفكك الى عملائه ، لهذا السبب العدد يختلف ، 2. وفي انتظار اخي ابوخليل ليرفق برنامجه ونرى طريقته جعفر

الحالة الثالثة تجميع عدد الشهدات faa التى صدر لها easa . وعمل اباجودى في استعلام المجاميع يؤيد الارقام التي عرضتها في مشاركتي السابقة: . أخوي أبوخليل ، خلينا نشوف نتائجك ، علشان اعمل مقارنة بين نتائجنا جعفر 603.1.xxx.mdb.zip

السلام عليكم انا كنت شغّال وبصمت وهلا وغلا بأخونا العود أبوخليل 1. نبدأ من البداية ، بس علشان نتأكد ان ارقامنا صح ، اخذت البيانات من الجدول الاساس ، مع حقل Customre ، والارقام متطابقة: . بيانات EASA فقط ، من الاستعلام 1 ، وكذلك الارقام صح . بيانات ECAA فقط ، من الاستعلام 1 ، وكذلك الارقام صح . بيانات FAA فقط ، من الاستعلام 1 ، وكذلك الارقام صح . وأخيرا الحالة الاولى تجميع عدد الشهدات easa التى لم يصدر لها faa . الحالة الثانية تجميع عدد الشهدات faa التى لم يصدر لها easa . الحالة الرابعة تجميع عدد الشهدات ecaa التى لم يصدر لها easa , faa . والخطوة 3 طلب جديد ، وراح اشتغل عليه جعفر 603.xxx.mdb.zip

طبعا تستطيع ان تجعل اتجاه النموذج من اليمن إلى اليسار في إعدادات النموذج وتحل المشكلة

انا اصلحت جزء المسار فقط \\192.168.20.1 جرب الكود كالتالي ، واقرأ النتيجة التي سيكتبها عند فتح نافذة التنفيذ السوداء cmd ، وقد تحتاج الى كبس زر Print Screen لعمل نسخة منه قبل ان تُغلق النافذة: Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", NormalFocus) جعفر

وعليكم السلام انا عملت #1 في احد برامجي ، وغدا ان شاء الله اعرضه وتلقائيا تحصل على #2 عندما تكون على الحقل الذي لم يظهر للشاشة بعد ، اما #3 فانا اغير لون الخلفية الى اخضر مثلا ، فيعرف المستخدم على اي حقل هو عليه ، واذا اراد تكبير الحقل ، فيمكنه استخدام ZoomBox عند الضغط على Shift+F2 اثناء وجوده في لحقل ، او استخدام الامر التالي على النقر المزدوج في الحقل: Screen.PreviousControl.SetFocus DoCmd.RunCommand acCmdZoomBox جعفر

ممتاز ، هذا هو طرف الخيط المطلوب جعفر

اسمح لي اشوف الموضوع من اصله ، ولكن غدا صباحا ان شاء الله ، فالساعة عندي الآن 2:13 جعفر سؤال: لماذا عملت استعلام مجاميع؟

جرب Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) جعفر

آسف على التأخير ، كنت اراجع السجلات عدد السجلات Query2 = 490 عملت نسخة منها وعملتها بإسم Query22 ، ثم ربطت الجدول بالاستعلام ، وصارت السجلات = 495 ، الخمسة سجلات الاضافية هي لأن عندك في الجدول رقم SN لأكثر من شركة: APR10-3101 = 1+1 PER ATTACHED LIST = 4+1 ونفس النتائج حصلت عليها لما نسخت Query1 الى Query11 وربطتها بـ Customers اللي مش فاضين. جعفر 603.xxx.mdb.zip

لا تغير شئ في الاستعلام الجدولي ، وانما اربط الجدول/الاستعلام الذي تريده في الاستعلام 1 او 2 ، واستعمل الحقل الذي تريده فيها. جعفر

مع اني لست من محبي SendKeys ، إلا اني لم اجد أمرا آخر Private Sub Form_Dirty(Cancel As Integer) Dim jItems As String, x, Style, Title, Response, Help, Ctxt jItems = "The Field: " & Me.ActiveControl.Name & vbCrLf & _ "is changed!!" & vbCrLf & _ "Do you want to Accept Changes?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(jItems, Style, Title, Help, Ctxt) If Response = vbYes Then 'DoCmd.Save Me.Dirty = False Else Cancel = True Me.Undo End If SendKeys "{F5}" End Sub جعفر 602.Alertmsg.accdb.zip

السجلات التي موجودة في الاستعلام الآن ، هي جميعا فريدة ، ومعناه ان الارقام الموجودة في الاستعلام الاول ، هي الارقام النهائية جعفر

ابا جودى ، 1. بالعكس ، سيُظهر فقط الحقول الفارغة في FAA ، وهذا طلبك ، وحتى لو كانت حقول EASA مليانه وتم إخفائها ، فالمفروض انها لا تكون في الجمع اصلا ، 2. الاستعلامين يعملون طلبك ، والنتيجة واحدة بينهم Nz([EASA],0)>0 And Nz([FAA],0)=0 جعفر

عفوا انا غيّرت بالكود ، ولكنك الظاهر التقطته قبل التعديل على العموم ، اليك طريقتين: . والنتيجة: . جعفر 603.xxx.mdb.zip 603.xxx.mdb.zip

وعليكم السلام اضف هذا الحقل الى الاستعلام (وقد تحتاج الى تغيير الفاصلة الى فاصلة منقوطة) C: IIf(Nz([EASA],0)>0 And Nz([FAA],0)=0,1,0) جعفر