رمهان

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

instr

جرب MsgBox (Mid(CurrentDb("tbl_cv").Connect, InStrRev(CurrentDb("tbl_cv").Connect, "\") + 1, Len(CurrentDb("tbl_cv").Connect) - InStrRev(CurrentDb("tbl_cv").Connect, "\"))) عدل اسم الجدول tbl_cv حسب اي جدول لديك لاحظ هذا الخيار يجعلك تستخرج اكثر من قاعدة وحسب الجدول المحدد فقد ترتبط القاعدة الحالية باكثر من قاعدة بعيده تحياتي

حسب فهمي جرب CurrentProject.Name ام تقصد اسم القاعدة البعيدة ؟ تحياتي

الصق هذا الاستعلام على افتراض اسم الجدول x بدلا من xxxxxxx SELECT x.Emp_Code, Sum(DLookUp("1","x","format(day_date,'ddmmyy')=" & Format([day_date]-1,'ddmmyy') & " and emp_code=" & [emp_code])) AS Expr1 FROM x WHERE (((DLookUp("1","x","format(day_date,'ddmmyy')=" & Format([day_date]-1,'ddmmyy') & " and emp_code=" & [emp_code]))=1)) GROUP BY x.Emp_Code HAVING (((Sum(DLookUp("1","x","format(day_date,'ddmmyy')=" & Format([day_date]-1,'ddmmyy') & " and emp_code=" & [emp_code])))=8)); وتلاحظ المعيار 8 تسنطيع تغيير المعيار حسب الايام وحسب الموظف جرب ولي معك عوده تحياتي

حياك الله اخ محمد ماذا لو كان هناك اكثر من غياب متتالي ؟ اي هناك غياب متتالي 3 ايام ثم غياب متفرق 2 يوم ثم غياب متتالي 4 ايام ثم غياب متفرق 3 ايام ثم غياب متتالي 10 ايام ؟ فاي الغياب المتتالي تريد ؟ ام تظهر الكل ؟ وضح اكثر وبدقه تحياتي

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

ايش رايك تنسى موضوع العلاقات انتبه جرب على قاعدة للتجربة !! Do While DCount("*", "msysobjects", "Left([name],1)<>'~' and Left([name],4)<>'MSys' and Type in(1,4,6) and lvprop is not null") > 0 Set rst = CurrentDb.OpenRecordset("SELECT MSysObjects.Name FROM MSysObjects WHERE (((Left([Name],1))<>'~') AND ((Left([Name],4))<>'MSys') AND ((MSysObjects.Type) In (1,4,6))) and lvprop is not null order by MSysObjects.Name"): rst.MoveFirst Do While Not rst.EOF On Error GoTo 10: CurrentDb.TableDefs.Delete rst(0) 10: rst.MoveNext Loop Loop Application.RefreshDatabaseWindow MsgBox ("done") تحياتي

اولا احنا يا اخ ثامر راح نحسن الظن ونقول ان الحاجة ليست للخراب والاعطاب وثانيا الاستاذ شيفان كفى بالكود الموجود والمشكلة هي انك تحاول حذف علاقة نظام وهنا عليك باستثناء هذه العلاقة من الكود او وفي مثال الاستاذ شيفان جرب بكتابة on error resume next وفي بداية الكود تحياتي

الشفرة اللي اريد تفكيكها ياترى من هو ابو ابراهيم اعتقد يستحق خبير من الان ! تحياتي

معلومة جديده استاذ جعفر وانت ان شاء الله ثقة وكل شي من ميكروسوفت يصير

حياك اخ محمد اولا خلينا ننبه على شي وبعدين نشوف النموذج مرتبط بالجدول ومربع السرد مرتبط بحقل بالجدول التنبيه : اثاناء عملية البحث انت بتعدل قيمة السرد بالسجل الحالي للنموذج ! لاحظ ان تبحث عن Oda Oda ستجده حل محل القيمة السابقة لهذا السجل وهذا شي خطير فمارايك ؟

مبروك ابو عبدالله ويستاهل والله

والله يا استاذ جعفر انا بترك الميدان للاستاذ ابو ابراهيم يرد عليك تلاحظ انه كتب عنوان على المتصفح بادراج نص في مصدر المستعرض هذا يمكن ان ندرج نص دالة جافا سكريبت بحيث لو نقر يمين تظهر رسالة تقول اسف نحن بهذا الامر وهو تعطيل الزر او كتابة مسج عند النقر باليمين لسنا بحاجة لجميع ميزات ie هنا ولو تذكر بعض الميزات استاذ جعفر التي تقصدها نكون ممنونين حتى لو تضع رابط اجنبي تحياتي

جرب 560.filter.rar

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

انا ساشارك بفكرة نضع حدث عند العنصر المستعرض وعند الحدث عند الماوس لاعلى MouseUp نضع الكود التالي if button=2 then sendkeys "{esc}" فعندما يختار امستخدم الماوس الايمن على المستعرض فانه يعرض القامة ولكن بمجرد رفع الماوس تختفي الفكرة الثانية بما ان المستعرض يقبل اوامر الجاقا سكريبت او الفي بي اسكريبت فيمكن استخدام امر اخفاء القائمة المختصره حسب اللغة والله اعلم تحياتي

جرب فكرة انتقاء القيم بشرط وبما ان القائمة كقائمة قيم نستخدم الدالة choose للمساعدة Expr1: [prise]*[namepr] & " " & Choose([nams],"ملي غرام","كيلو غرام","لتر","جالون") وعليك تغيير قيمة الجالون الى 4 بدلا من 5 بالتوفيق

انا بحاول ما ينغير شي كثير بشغلك جرب وحسب فهمي استبدال اخر سطر بكود البحث بالتالي Me.join.Form.RecordSource = "select * from (" & u_SQL & ") where DCount('*','nregistration','working=-1 and family_id=' & [family_id])=0" بالتوفيق

حسب فهمي اخي الكريم جرب ان تضع التعبير التالي في مصدر النموذج الفرعي (الاستعلام) في عمود جديد Expr1: DCount("*","nregistration","working=-1 and family_id=" & [family_id]) ثم في خانة المعيار ضع صفر كشرط للعدد بالتوفيق

تمام اخ سامي كنت اقصد بالخانة يعني كم رقم how many digit من وجهة نظري ان تفتح موضوع جديد وارى ان لدي مشكلة الزيادة في الرقم لذلك افتح موضوع بالتالي 1. عمل ترقيم للباركود 2. مشكلة زيادة في الترقيم والموضوع سهل ان شاء الله ولكن نريده في موضوع جدد للفائدة وحسب قوانين المنتدى تحياتي

هل صورة الباركود من شغلك ؟ والا وضعتها كمثال ؟

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

كم خانه للرقم لديك

ما فهمت عليك ! هل هدفك هو ترقيم باركود ؟