jjafferr

انا اقول انك تستطيع تستعمل الهاتف وتقرأ اي باركود ، سواء من التقرير او من علبة تونه عمانية لكني في توضيحي اعلاه ، اوضحت معلومات عن تجربتي مع الباركود ، والنوع الذي استعملته جعفر

يا اخوي يا شفان ليش تعطي جواب طويل لما تقدر تعطي جواب قصير ليش هذا الكود الطويل If Len(Me.Text1 & "") = 0 Then Me.Text2.Visible = False Else Me.Text2.Visible = True بينما يمكنك استعمال الكود الاقصر Me.Text4.Visible = IIf(Len(Me.Text6 & "") = 0, -1, 0) . بس يا اخوي ابو سعد ، ترى كود اخوي شفان اسرع في التنفيذ جعفر

وعليكم السلام هذا معناه ان الحقل هذا هو آخر حقل في النموذج ، واعدادات النموذج عندك لقراءة "جميع السجلات" ، فيجب تغيير الاعدادت الى قراءة "السجل الحالي" . جعفر

في الرابط الذي انا اشرت اليه ، استعملت الخط code39 في حقل نص عادي ، الخط بحجم 28 ، وتم طباعة الباركود على الطرف الاقصر من الهوية ، وبعد تغليف الهوية Lamination ، استعملنا الاجهزة التالية لقراءة الباركود : 1. جهاز خاص لقراءة الباركود ، مثل هذا ، وهو سريع جدا في قراءة الباركود وبأي اتجاه 2. اثنين من برامج قراءة الباركود لهواتف الاندرويد Android المجانية من سوق اندرويد ، 3. احد برامج قراءة الباركود لهواتف اي فون iPhone المجانية من سوق ابل. وجميع الاجهزة اعلاه قرأت الباركود بكفاءة وبدون اخطاء ، كما وتم طباعتها على طابعة اوراق حرارية Thermal (مثل الطابعات في السوبرماركت) ، وكذلك تم قراءة الباركود بالاجهزة اعلاه ، وبكفاءة وبدون اخطاء جعفر

وعليكم السلام 1. ياريت تعطينا الرابط ، حتى اعرف خلفيته ، واستعمل الكود كاملا لتغييره حسب طلبك ، 2. الاسطر الخمسة الاولى في الكود هي التي تقوم بالتحقق من هذا الملف ، يمكنك حذفها للتجربة ، 3. ارى في الكود انه تم اغلاق صفحة الاكسل ، ولم يتم اغلاق برنامج الاكسل ، مما يؤدي الى قفل ملف csv لأنه رهن العمل (ادخل في Task Manager وشوف اذا الاكسل مفتوح ، اغلقه ، وبعدين بتقدر تحذف الملف رقم2) ، 4. جرب اللي اخبرتك اعلاه ، واخبرنا النتيجة ، وعليه نقدر نقوم بالخطوة التالية ، وهو تغيير الكود ليقوم بالعمل تلقائيا جعفر

وهذه تجربتي مع الباركود ، كجزء من عمل الهويات جعفر

وعليكم السلام هذه ليست رسالة خطأ ، وانما هناك حقل (اسم الحقل واسم النموذج في دائرتك الزرقاء) يحتاج ان تكون فيه القيمة ، وانت لم تُدخل القيمة ، فالبرنامج وقبل ان ينفذ طلبك ، محتاج لهذه القيمة. فإما القيمة موجودة في الحقل (وهذا المفروض) ، او ان تُدخل القيمة هنا (وهذا خطأ) ، او انك تلغي طلب هذه الرسالة (وقد يكون هذا الطلب في استعلام يقوم بإضافة /تعديل / حذف حسب اسم المستخدم). جعفر

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

اخي أوس شو الفرق بين جدولك وجدول اخونا عزيز؟ جعفر

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

وعليكم السلام اخوي عبدالله نعم ، والرابط اللي اعطيتك في مشاركتي الاولى يعطيك طريقة الاشارة الى مسار حفظ الصور سواء على كمبيوترك او على الشبكة ، على ملف ؟ اعتقد قصدك على مجلد جعفر

شكرا

الاستعلام رقم_1 و SQL . ونتائجه . الاستعلام رقم_2 و SQL . ونتائجه . ومن النموذج نحصل على نفس النتيجة . كما انه بإمكاننا ان نضع الاستعلام رقم_1 ، كإستعلام فرعي داخل الاستعلام الرئيسي رقم_2: . والنتيجة . جعفر 859.استخراج اخر تنقل وماقبله.accdb.zip

وعليكم السلام ورحمة الله وبركاته الظاهر ان الاوراكل يستخدم صفحات HTML ، ولكنها مليئة بـ كلاسات جافا (مثل مرفق الصفحة اللي ارفقته سابقا) ، وليس بها حقول HTML ، وانا معرفتي حقول HTML فقط فأعتذر منك ، لأنه ما عندي حل جعفر

وعليكم السلام بدل ان اعطيك سمكة ، خليني اعلمك كيف تصطادين اعملي استعلام واعملي الترتيب/الفرز على اساس حقل التاريخ Desc (تنازلي) ، يعني التاريخ الاكبر(الاحدث) يكون في اعلى القائمة ، وطبعا بمعيار رقم الموظف ، حتى نحصل تواريخ هذا الموظف فقط ، الآن نطلب من هذا الاستعلام ان يعطينا قيمتين فقط: أ. حولي الاستعلام الى SQL واكتبي: Select TOP 2 ، ثم بقية الكود ، او ب. فيعرض علينا القيمة الاحدث (والتي انتي حصاتي عليها من Max) ، والقيمة الاخرى التي تريديها ، احفظي هذا الاستعلام رقم_1 ، 1. الآن تستطيعين استعمال الامر DMin لتاريخ استعلام رقم_1 ، فتحصلين على القيمة الثانية او نواصل: اعملي استعلام جديد رقم_2 ، ويكون مصدره الاستعلام رقم_1 ، اعرضي جميع بيانات الاستعلام رقم_1 ، وافرزي التاريخ Asc (تصاعدي) ، بحيث تصبح القيمة الثانية في اعلى القائمة (وهو المطلوب) ، فتستخدمين الامر DMax لتحصلي على التاريخ ، او نواصل: في الاستعلام رقم_2 ، كذلك اطلبي من الاستعلام ان يعطينا قيمة واحدة فقط ، سواء عن طريق Select TOP 1 ، او من اعدادات الاستعلام ، فتستطيعين استعمال الامر DMax او DMin او Dlookup احاول ان اعمل هذه الاختيارات في مرفقتك ان شاء الله. جعفر

وماذا كانت المشكلة ، وكيف تم حلها؟

انظر في الجدول ، في اعدادات الحقل ، هل حجم البيانات التي سمحت بها . جعفر

وعليكم السلام الاعداد الذي يجب ان تنظر فيه هو ، تسلسل الكائنات التي يقع عليها التركيز: 1. نوع الكائن في النموذج ، فليس كل الكائنات تقبل التركيز ، مثل كائن التسمية مثلا ، 2. تسلسل الكائنات التي يقع عليها التركيز في النموذج يبدأ بالرقم صفر ، 3. بعض الكائنات لا نريد ان يقع عليها التركيز ، فالاعداد هنا سيكون لا . عملت لك الكود التالي لكي يخبرك اسماء كائنات النموذج ، و رقمها Tab index Dim ctrl As Control For Each ctrl In Me.Controls Debug.Print ctrl.TabIndex & vbTab & ctrl.TabStop & vbTab & ctrl.ControlType & vbTab & ctrl.Name Next . وانت لا تريد ان تسمح بـ TabIndex+1 (طبعا ممكن ان الكائن TabIndex+1 هو زر امر ، او لا يسمح بتوقف التركيز عليه ، فيجب ان تنتقل الى الكائن التالي) ، وتريد ان تسمح بـ TabIndex-1 (طبعا ممكن ان الكائن TabIndex-1 هو زر امر ، او لا يسمح بتوقف التركيز عليه ، فيجب ان تنتقل الى الكائن التالي) . جعفر

السلام عليكم وهذه اجابتي بالتفصيل: عملت زر للطباعة . واكواد النموذج اصبحت Private Sub cmd_print_Click() DoCmd.OpenReport "resarf" End Sub Private Sub zer1_Click() rgm = DMax("Hrk_ID", "tblHaRas") 'DoCmd.OpenReport "resarf", acViewNormal DoCmd.OpenReport "resarf", acViewPreview End Sub Private Sub zer2_Click() text1 = rgmharaka() End Sub . وعملت التالي: معاينة ، قيمة المتغير = 48 ، طباعة ، قيمة المتغير = 48 ، فارسلت لك الرد ، بأن برنامجك شغال 100% وحسب طلبك اما الآن ، فاستعملت كودك ، والنتائج نفسها ولا ارى ان المشكلة في الكود !! خليني انزل مرفقك الجديد واجرب فيه ، واعود لك ان شاء الله -------------------------------------------------------------------------------------------------------- اخوي ابو خليل ، القيت نظرة على الرابط ، واذا به مقطع فيديو ، وكنت تحاول فيه حفظ مقطع صوتي ، وعند إلغائه تطلع لك رسالة خطأ . اذا كنت تعتمد على احد مكتبات الاكسس الخاصة (يعني غير المتداولة يوميا) ، او استخدمت شيء من هذا القبيل: Public Web As Object في وحدة نمطية ، وفي حدث "تحميل النموذج" عملت كود كالتالي: Set Web = Me.objIE.Object فالقيمة ستكون في البرنامج ، ولكن حالما تظهر لك رسالة الخطأ ، فالقيمة تُحذف من الذاكرة ، إلا اذا عالجت اصطياد الخطأ برمجيا (يعني البرنامج يتعامل معه انه لا يوجد خطأ ولا يتوقف الكود) جعفر

وعليكم السلام اخوي ابو خليل برنامجك شغال 100% وحسب طلبك جعفر

كلمة لم استطع غير علمية/اكسسيّة ، فرجاء تخبرنا معنى هذه الكلمة!! شكرا اخي شفان ، ولكني نسخت الكلمات الهيروغليفية (من وين جبت هالاسم) من مشاركة ابوسعد لهذا السبب اخوي ابو خليل ، وانا اكّدنا عليك السطر الثاني من الكود ادناه . جعفر

الله يطول في عمرك ، ما نسخت التعديلات بشكل صحيح تفضل Private Sub ÃãÑ103_Click() On Error GoTo ErrHandler imgPicture.Picture = "E:\Qar2018\sd.JPG" ErrHandler: If Err.Number = 2220 Then imgPicture.Picture = "" MsgBox "áÇ íæÌÏ ÕæÑÉ" ElseIf NewRecord Then MsgBox "ÇáÑÌÇÁ ÇÏÑÇÌ ÕæÑå ÌÏíÏå" _ , vbInformation, "Invalid Action" Else Dim strReportName As String Dim strCriteria As String strReportName = "rptImage" strCriteria = "[ãÓáÓá]= " & Me![ãÓáÓá] DoCmd.OpenReport strReportName, acViewPreview, , strCriteria End If End Sub جعفر