أبو عبدالله الحلوانى

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

ظهر وغير مفعل علي ما اعتقد ويمكنك الغاء البوكس كله من الخاصية التي بالأعلي من هذه الخاصية control box = no

وجزاكم الله خيرا بل هي طريقكتم وفكرتكم بالأساس؛ وعدلت فيها بدون استإذان لعلمي بعدم ممانعتم من ذلك - فبحر جودكم يأبي عليكم البخل بعلم - وبعد فقد أوحشتموني وأوحشني التواصل معكم فقد شغلتنا عنكم مشاغل الحياة ولكنكم لم تغيبو عن الــ 💚 حفظكم الله ورعاكم وسدد خطاكم

ممكن ارفاق مثال بدون بيانات لنتعرف موطن الخلل

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

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

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

السلام عليكم يبدو انك تحاول ادخال النص في الحقل registration_text لا في registration_document_number فلو لاحظت الصورة لرأيت ان الأول والذي يحمل وصف البيان نوعه رقم طويل أما الآخر والذي يحمل وصف رقم المستند نوعه نص ولكن كلا اسمي الحقلين مخالف للوصف باللغة العربية والله اعلم حاول تغير نوع الحقل الأول registration_text الي نص

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

السلام عليكم ورحمة الله جزا الله أساتذتنا خيرا من وجهة نظري ان هذا الكود القصير يفي بالغرض ويستخرج اسم اليوم من التاريخ وسيظهر اسم اليوم باللغة الاقليمية للجهاز سواء كانت اعدادات اللغة عربية او اجنبية Format(Filed_date,"dddd") 'Replace the filed_date with what youer filed date name واثمن كل جهود اساتذتنا اما وان رمت الاجتهاد فيمكنك التعديل علي كود استاذنا ابا جودي بأن تقوم بتغير اسماء المتغيرات الي اللغة الانكليزية هكذا Public Function DayName(dtDate,lng) Dim strSat As String Dim strSun As String Dim strMon As String Dim strTues As String Dim strWed As String Dim strThurs As String Dim strFri As String if lng=0 then strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583") strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577") else strSat = Saturday strSun = Sunday strMon = Monday strTues = Tuesday strWed = Wednesday strThurs = Thursday strFri =Friday end if DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat) End Function وتستدعي الدالة بهذا الشكل me.d = DayName(date_filed,0) '-> For Arabic me.d = DayName(date_filed,1) '-> for English والسلام

وعليكم السلام سؤال غريب حقيقة - ولكن لماذا ستتخلي مايكروسوفت عن الأكسس من وجهة نظرك نعم نري ان مايكروسوفت تقلل من الامكانيات الخاصة بالاكسس في الاصدارات الاحدث ولكنها تعوض هذا بزيادة بعض الاشياء الأخري في المقابل - وتصنع ملحقات خاصة بالاشياء التي قامت بالغاءها من الاصدارات السابقة أحيانا، علي سبيل المثال في اصدار 2010 من الأكسس هنالك مزية متوفرة وهي تصدير الجداول الي الـ SQL وهذه الميزة تم الغاءها من الاصدارات الأحدث كـ 2016 وما فوق - ولكن تم صنع ملحق يمكن تحميله من موقع مايكروسوفت خاص بتصدير جداول الأكسس الي الـ SQL. ولكن مالذي يحملها علي التخلي عنه بالكلية؟ وان تخلت عنه هل ستقوم من سحب الاصدارات القديمة من السوق ما اعتقد هذا فرغم ظهور الاصدارات الاحدث فما زال بالامكان الحصول علي الاصدارات الاقل وتشغيلها حتي بجانب الاصدارت الاحدث علي جهاز واحد ولا ضير! وعلي كلا اعتقد ان هناك كثير من برمجيات قواعد البيانات يمكن استخدام برمجيات اخري لتصميم الواجهات معها مثل: أوراكل - والـ SQL - و الـ SQL server وغيرها مع احد لغات البرمجة كـ html - vb وغيرها لتصميم الواجهات. تمنايتي بالتوفيق سؤالك قد حيرني حقا.

وعليكم السلام انظر هذا الموضوع لعلك تجد به ما تريد وهذا الموضوع ايضا https://www.officena.net/ib/index.php?showtopic=61514 وهذا ايضا وهنالك الكثير لو بحثت قليلا عما تريد تمنياتي بالتوفيق

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

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

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

اذا لماذا لا تحاول ان تستخدم الاستعلام بدل الكود اي تجعل فلترة النتائج من خلال الاستعلام بالفورم 1 ويكون شرط اظهار النتائج هو قيمة الحقل في فورم البحث مثل هذا التعديل Filter.accdb

تجد هنا في هذا الموضوع اداة ممتازة لاستاذنا جعفر لمعالجة مثل هذه الأخطاء

جرب هذا أعتذر قد قمت بفك تشفير الأكواد لبعض التجارب Handicapées.rar

السلام عليكم جرب هذا التعديل Filter.accdb

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

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

السلام عليكم ورحمة الله وبركاته اولا- لم افهم سؤال حضرتك بشكل جيد (ما فهمته انك تريد ان الباركود المكتوب بهذا الشكل مثلا ###### اذا تم انتاجه بمكان آخر غير شركتم لا يقرأه برنامجك!!) ان كان فهمي خاطئا فلا حرج قم بتصحيح الأمر لي. ثانيا- علي افتراض ان ما فهمته كان صحيحا فدعنا نفكر سويا بطريقة منطقية: 1- الباركود هذا ما هو الا فونت يتم كتابتة بطريقة معينة ليستطيع جهاز الباركود التعرف عليه، وادخال البيانات الي الحسوب بشكل صحيح. يعني انت تكتب مثلا في حقل كود الموظف والذي ستقوم بتحويله الي بار كود مثلا M012-H63 ثم يظهر هذا الكود بهذا الشكل ###### مثلا علي كرت الحضور والانصراف علي سبيل المثال. 2- كود الموظف والذي هو بيان بقاعدة بياناتك لا يمكن التعرف عليه الا من خلال قاعدة بياناتك فقط يعني لو قمت انا بصناعة باركود آخر لن يكون مماثل لما لديك لكون البيان المشفر مخالف لبيانك أليس كذلك. وكما ذكرت لك بالأعلي ان كان فهمي خاطئا فصحح لي ما شئت. وان كنت غير متواجد بالمنتدي بشكل منتظم هذه الأيام، فلا تقلق فبالمنتدي من هم خير مني وأكثر علما وفضلا ان شاء الله. تمنياتي بالتوفيق

جزاك الله خيرا وجعله الله بميزان حسناتك بعد التجربة عمل البرنامج علي أكمل وجه وان سمح الوقت لي عودة ان شاء الله بملاحظة ما ولكن يمنعني الارهاق من مواصلة الكتابة الأن وأسأل الله ان يزيدكم فضلا وعلما محبكم في الله

حسب فهمي ان كان التجميع رأسيا علي مستوي كامل العمود فلن يحدث مشكلة فكل عمود يجمع بيانات موحدة فعمود الشراء سيكون به قيم المشتريات فحسب وهكذا - اللهم الا ان كان التجميع افقيا علي مستوي الصف ففي هذه الحالة كما ذكر أستاذنا خالد يمكن التعديل علي شرط اسم الحقل لاستبعاد او حتي خصم قيم حقول معينة وأعتقد أن هذا لن يكون صعبا عليكم. مثال: ' a = مشتريات ' b = مدفوعات ' c = مصروفات ' d = مرتجع مشتريات ' e = مبيعات ' f = مرتجع مبيعات If fld.Name <> "id" Then 'add the field values T =IIf(fld.Name= a, (T + fld.Value),IIf(fld.Name=b,(T - fld.Value),IIf(fld.Name=C,(T - fld.Value), _ IIf(fld.Name=d,(T + fld.Value),IIf(fld.Name=e,(T + fld.Value),(T - fld.Value)))))) End If ولا ازعم ان قد فهمت المطلوب بشكل كافي ولكن محاولة من طويلب علم بمدرستكم لتطبيق ما تعلم منكم من قبل (فهذه بضاعتكم ردت اليكم) وجزاكم الله خيرا

السلام عليكم أولا- هل جربت تغير الاعدادات المشار اليها بهذا الرابط ثانيا- ان كنت تحاول أن تضع معاير استعلام متعددة باستخدام Like لأكثر من حقل بالاستعلام فهذه المشكلة لم أجد لها حل مع SQL server ولكن تم التغلب علي المشكلة بحيلة بسيطة والحمد لله كما بالصورة استخدمت مجموعة خيارات لتحديد طريقة البحث من قبل المستخدم وهذا الكود البسيط لتحديد شرط البحث وفقا لنوع الخيار المحدد من قبل المستخدم. Private Sub Tx0_AfterUpdate() If Len(Tx0 & "") > 0 Then Select Case Frame133.value 'Option group name Case 1 If IsNumeric(Tx0) Then StrWhere = " [KomiCrdNo] Like '*" & Me.Tx0 & "*'" Else MakeMsg (75) Exit Sub End If Case 2 If IsNumeric(Tx0) Then StrWhere = " [CustID]=" & Tx0 Else MakeMsg (75) Exit Sub End If Case 3 StrWhere = " [CustName] Like '*" & Tx0 & "*'" Case 4 StrWhere = " [Address] Like '*" & Tx0 & "*'" End Select MySors = "SELECT TableName.* FROM TableName Where" & StrWhere Me.RecordSource = MySors Me.Requery End If End Sub وانتهي الأمر علي خير والحمد لله