jjafferr

تفضل TextHeightWidthVer45.zip

لتوضيح ما قلته اعلاه: عملت جدول tbl_Numbers فيه حقلين ، احدهما نص str_Numbers والآخر رقم int_Numbers ، وادخلت الارقام من 1 الى 21 في كليهما ، 1 و 2. من النظر الى تنسيق البيانات في الجدول او الاستعلام ، نستطيع ان نعرف نوع الحقل ، نرى ان حقل الرقم 1 يميل الى اليمين ، بينما حقل النص 2 يميل الى اليسار ، 3. نستخدم حقل النص str_Numbers مع الامر Max ، ونرى انها ليست النتائج الصحيحة ، وهذا الذي كنت احذر منه في ملاحظتي في مشاركتي السابقة ، وللأسف وقع أخي ابوخليل في هذا الفخ (جرب الكود على الارقام التي وضعتها انا وسترى قصدي) والاسوء ان نتيجة الاستعلام ، احدهما نص والآخر رقم (انظر الى تنسيق الاستعلام وملاحظتي رقم 1 و 2 اعلاه) ، 4. تم تحويل بيانات الحقل str_Numbers الى ارقام ، وثم استعمل الامر Max ، فنحصل على النتائج الصحيحة بصيغة رقم ، وهذا الذي عملته في برنامجي اعلاه ولكن ، لا استطيع ربط نتائج الحقول هذه بحقل str_Numbers الذي بالجدول ، لأن الحقل في الجدول نص ونتائج الاستعلام ارقام ، لذا اضطررت ان احول بيانات الجدول من نص الى ارقام بواسطة val او int ، وهذا جواب السؤال: اذن ، كل هذه الخطوات عملناها ، بسبب ان السنة في المرفق الاصل هو حقل نص وليس حقل رقم ، 5. بينما لو كان الحقل رقم ، لكنا نقتصر على هذه الطريقة . جعفر

السلام عليكم انا قرأت الموضوع بالخطأ ، قرأته اول وآخر سنه ، فأعتذر ارى انكم ما شاء الله اكملتوا الموضوع ، ولكني هنا اعطيكم الحل بنفس الطريقة السابقة : . والنتائج: . ولكن في شيء لم انتبه له البارحة لما وضعت جوابي ، وهو ان السنة في الجدول emp هو نص وليس رقم ، والذي معناه اننا يجب ان نحوله الى رقم قبل ان نأخذ Max ، وإلا فلن نحصل على السنة الصحيحة (صحيح ان النتائج الان ستكون صحيحة ، ولكننا نعرف ان تسلسل النص يكون غير صحيح ، وتسلسل الرقم يكون صحيح) أختي ، لا تهتمي بالاستعلامات الاولى ، فالاستعلام الاخير qry_Update_Values سيأخذ القيم بنفسه ويُتم التحديث جعفر 655.db1.mdb.zip

شكرا أخي محمد

ومثل ما قال أخي محمد ، فتستطيعين جلب الاستعلام قبل الأخير إلى التقرير مباشرة دون حفظ النتائج في الجدول جعفر

وعليكم السلام أختي تابعيني بالصور: السنة الاعلى والاقل لكل رقم . والنتيجة . والآن لنستخرج القيم الاعلى والاقل . والنتيجة: . ثم نأخذ هذه النتيجة الى استعلام تحديث للجدول emp . والنتيجة في الجدول: . جعفر 655.db1.mdb.zip

تفضل Dim stAppName As String stAppName = "C:\WINDOWS\system32\calc.exe" Call Shell(stAppName, 1) جعفر

وعليكم السلام أخي واهلا وسهلا بك في المنتدى الجواب هو نعم ، وتلقائيا جعفر

أخي حمادة بما انك في المنتدى وفي قسم الاكسس بالذات ، فهذا معناه انك مبرمج. ومن شروط المنتدى ان تبحث عن ما تريد ، قبل ان تضع السؤال ، وقبل ان اغلق موضوعك السايق ، اثبت اخي شفان ان هناك عدة روابط لعمل النسخ الاحتياطية. ومن شبه المستحيل ان تحصل على ماتريد 100% ، ولكن كونك كمبرمج ، تستطيع ان تستفيد من هذه الروابط وتتوصل الى الذي تريد. لهذا السبب تم اغلاق الموضوع السابق. جعفر

السلام عليكم قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

اخبرتك سابقا

وعليكم السلام أخوي حربي انا انتظرت من الامس الى اليوم حتى اعطيك هذه الملاحظة طريقة عرضك للموضوع تحتم على علينا انزال المرفق ، ثم النظر فيه لمعرفة السؤال !! مقدرة الاعضاء في المنتدى للإجابة على الاسئلة تعتمد على: 1. وجود الوقت الكافي عند العضو للإجابة ، 2. اذا كان يعرف الاجابة مباشرة على السؤال حسب وقته ، 3. بعض الاعضاء يجاوب على الاسئلة من الموبايل ، فلا يستطيع تحميل المرفق ، لذلك ، فانت حسمت الموضوع انه لا رد إلا بإزال المرفق جعفر

تفضل 654.Test 2003.mdb.zip

عفوا شوف ملاحظتي الاخيرة عن Requery ، للأسف تم دمجها مع المشاركة اللي قبلها جعفر هكذا Private Sub txtDate_AfterUpdate() Me.subRealisation.Form.Requery End Sub Private Sub txtMarkItem_AfterUpdate() Me.txtQuantityCurrent = Nz(DSum("NumberPeinture", "CheckTotalMarkItem"), 0) Me.subRealisation.Form.Requery End Sub Private Sub txtProject_AfterUpdate() Me.txtMarkItem = "" Me.txtQuantity = 0 Me.txtMarkItem.Requery Me.subRealisation.Form.Requery 'If IsNull(Me.txtProject) Then 'Me.subRealisation.Form.Filter = "" 'Me.subRealisation.Form.FilterOn = False 'Else 'Me.subRealisation.Form.Filter = "[Project]= '" & Me.txtProject & "'" 'Me.subRealisation.Form.FilterOn = True 'End If End Sub وللعلم ، تاريخ 19 ما عندك سجل ، فيجب تغييره الى 18 لتحصل على سجل

في علاقة Master/Chid يجب ان تستعمل اسم الحقل من مصدره ، وليس الاسم الذي اعطيته في النموذج ، يعني ، اسماء حقول Child يجب ان تكون Project;Repères;LaDate جعفر ولا تنسى عمل Requery للنموذج الفرعي كلما عملت تغيير للحقول الثلاث في النموذج الرئيسي جعفر

السلام عليكم بوعبدالله مافي داعي للكود ، ربط النموذج الرئيسي بالفرعي عن طريق Master/Child كفاية جعفر

هذا السطر الوحيد الذي حصلت عليه في الاختيارات - IrfanView exit code is 0. If /convert or /print is used, there is 1 or 2 also possible, for load/save error. وهذا مثال استخدامه https://irfanview-forum.de/showthread.php?t=4736&p=22567&viewfull=1#post22567 ولكني لا اعتقد بأنه سيعطيك النتيجة التي تريدها!! جعفر

انا والبرنامج Irfan View صحبة من زمان ، ومنصب على كمبيوتري ، وهذه احد مشاركاتي فيه خليني اشوف اذا ممكن يرجع نتيجة او لا نعم بالضبط ، 100% هذا اذا استعملتها ، ولكن الظاهر انكم هنا تستخدمون Irfan View ، فخليني اشوف اذا Irfan View يرجع النتيجة او لا جعفر

هذا الكود جزء من وحدة نمطية ، وانا استخدمتها كمثال فقط ، للتوضيح فقط ، بينما انت يجب تستخدم برنامجك/الكود الذي تعمل عليه!! طيب ، ايش الكود/البرنامج الذي تستعمله ، واللي يتم تشغيله بواسطة Shell ؟ يمكن نشوف تفاصيله ، ونطلع بنتيجة جعفر

لا ، Shell لا يعرف اي شيء عن البرنامج الذي يقوم بالعمل (فلنسمه الالة الحاسبة) ، مهمة Shell فقط بإعطاء الامر للكمبيوتر لفتح الآلة الحاسبة ، ولكن الآلة الحاسبة يجب ان يكون لها متغير يعطيك اذا النتيجة ايجابية او سلبية!! انتم في هذا الموضوع كلامكم عن الامر Shell ، ولكنه في حقيقة الامر هو مجرد مشغل لبرنامج آخر/كود ، وهذا البرنامج الآخر/الكود هو الذي يجب ان يعُطى المتغير ، هذا اذا كان يسمح بهذا جعفر

لاحظ ترتيب اجابتي: 2. وبعد فتح ملف أخي ابوخليل ، فالرسائل التي تظهر بعد الزر جميعها صحيح ، حيث ان الالة الحاسبة كبرنامج ، لما تم فتحه فيكون الكود قد اتم عمله ، فبعدها يعطيك الرسالة ، ولكن عند طلبك المنطقة واللغة ، فالامر لم ينتهي بعد إلا بعد انتهائك من اتمام لاختيار ، وهذا عيناً طلبك 1. هذا موضوع آخر ، وهو هل الامر نجح او فشل ، فالامر Shell او ShellWait لا علاقة لهم بنجاح المسح الضوئي وفشله هنا تأتي طريقة اخرى ، وهي طريقة مناداة الوحدة النمطية (لا اعني Shell وانما الوحدة النمطية لتشغيل الاسكانر مثلا) ، وطلب نتيجة الامر ، هكذا هذه وحدة نمطية عادية ، تعمل المطلوب ، ولكن لا تخبرنا عن نتيجة العمل ، تم او لا Public Function TransferWithoutUI(ByVal sngResolution As Single, _ ByVal tColourType As TWAIN_MDL_COLOURTYPE) ونناديها هكذا: call TransferWithoutUI(.....) ---------------------------------- بينما هنا لاحظ بعد اغلاق القوس هذه وحدة نمطية عادية ، تعمل المطلوب ، وتخبرنا عن نتيجة العمل ، تم او لا Public Function TransferWithoutUI(ByVal sngResolution As Single, _ ByVal tColourType As TWAIN_MDL_COLOURTYPE) As Long ونناديها هكذا: Dim Result as Long Result = TransferWithoutUI(.....) if Result = .... وهنا نتيجة Result تعتمد على ما يحدث في عملية قيام الاسكانر بالاسكان ، سواء تم الاسكان بطريقة صحيحة او .... جعفر

لازم تجرب هذا انا لا اضع موضوع إلا اذا فيه له اهمية زبائني كان عندهم طلب ، وهو الارشفة ، وجزء منهم لإوراق قليلة وجزء لشئون الموظفين ، بالإضافة الى صور الموظفين ، موضوع النقر لفتح نافذة الوندوز واختيار الصور ، و السكانر بالطريقة العادية ، هاي منتهين منها ، الطلب تطور بسبب بطئ السكانرات العادية (حوالي 50 ثانية لتصوير الورقة الواحدة) ، طبعا لا اتكلم عن تصوير مجموعة من المستندات دفعة واحدة بالاسكانر السريع الغالي ، فالحمدلله ومن حوالي سنه توصلت الى التصوير عن طريق WebCam (حوالي 5 ثواني) و DSLR (حوالي 5 ثواني) ، وفي السجل مباشرة ، ولكن كاميرات DSLR غالية ، و WebCam يحتاج الى إضاءة صحيحة والصورة ليست بالوضوح المطلوب ، لذلك والحمدلله توصلت الى التصوير عن طريق كاميرات هواتف الاندرويد ، والتصوير فيه دقة عالية ، والفلاش ممتاز ، والتصوير يأخذ حوالي 9 ثواني ، وكل بيت فيه على الاقل هاتف واحد قديم لا يُستعمل هاي التقنية الجديدة اللي انصح المبرمجين اتباعها لزبائنهم ، سواء للصور الشخصية او تصوير المستندات صورة بصورة جعفر

هنا ستلاحظ اني استعملت الامر ShellWait ، والرابط فيه الوحدة النمطية: جعفر

السلام عليكم الامر Shell مثله مثل اي امر آخر ، يعني بعد الامر مباشرة تستطيع ان تكتب msgbox ، ولكن الامر Shell يعطي الامر ولا ينتظر اكمال الامر ، مثل في حالة التصوير الضوئي ، فإنه يعطي الامر ولا ينتظر ان يُتم الاسكان ، لذلك فعمل msgbox بعده لا يعني ان السكان انتهى ، وانما يعني ان Shell قد انتهى من إعطاء الامر ، اذا كنت تريد ان تعطي الاسكان امر طباعة ، وتريد ان لا تنتقل الى السطر التالي من الكود قبل الانتهاء من العمل بالكامل ، فيجب ان تستعمل الامر ShellWait : http://access.mvps.org/access/api/api0004.htm وطريقة استعمالها هي نفسها بالضبط مثل Shell ، وبعدها تستطيع ان تضع msgbox جعفر

وعليكم السلام الرابط التالي فيه برنامج يقوم بهذه الحسبة: http://www.lebans.com/textwidth-height.htm جعفر