بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
أبوبسمله
-
Posts
3,454 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
31
Community Answers
-
أبوبسمله's post in قيم فريدة ---- تكرار الاسماء في كومبو بوكس البحث was marked as the answer
وعليكم السلام
مشاركه مع اخوتى واساتذتى
لانك حاطط حقل المسلسل شيل حقل المسلسل وقم باختيار القيم الفريده وهيتم جلب الاسم مره واحده
بالتوفيق
-
أبوبسمله's post in عدم اضافة موظف قيمة الحافز تساوى 0 فى التقرير was marked as the answer
وعليكم السلام ورحمه الله وبركاته
الحل المقترح انشاء استعلام اخر مثل qu_2 من qu_1 والتصفيه من خلاله اكبر من 0
او من خلال الاستعلام وفى حقل عدد ايام الغياب تضع معيار اقل من 5 بناء على القيم المكتوبه بداخل الاستعلام
قمت بانشاء استعلام qu_2 وجعل مصدر التقرير هذا الاستعلام
بالتوفيق
1_برنامج الحوافز.accdb
-
-
أبوبسمله's post in تحديث حقل من معيار استعلام was marked as the answer
ولا يهمك اخى ولست بمعلم
ولكن انتبه فمعظمنا لديه ما يشغله ويدخل لبضع من الوقت لمحاوله مساعده اخوانه
اتفضل هذا التعديل المؤقت منى ربما يضع احد اخواننا حل افضل منه او تاتينى فكره اخرى عندما يهدأ بالى مما يشغله
بالتوفيق
CALLQ_1.accdb
-
أبوبسمله's post in استخراج كلمة من مربع سرد وتحرير موجودة بعد الرمز / ووضعها في مربع نص was marked as the answer
وعليكم السلام
اتفضل ان شاء الله يكون ما تريد
BASEK_1.accdb
-
أبوبسمله's post in اظهار الاسماء بشكل مجموعات في التقرير was marked as the answer
اتفضل
Grouping_2.accdb
-
أبوبسمله's post in دمج ثلاثة قوائم منسدلة خاصة بالبحث بواحدة was marked as the answer
السلام عليكم
مشاركه مع اخى الغالى بشمهندس قاسم @Eng.Qassim جزاه الله عنا كل خير
بالتوفيق
البيانات_1.accdb
-
أبوبسمله's post in مشكلة فى الرصيد التراكمى was marked as the answer
السلام عليكم
اتفضل وانصحك باستخدام الداله فى الموضوع التالى لاخى ومعلمى العزيز جعفر
بالتوفيق
رصيد_تراكمى_1.accdb
-
أبوبسمله's post in مساعدة في كود تحقق was marked as the answer
مشاركه مع اخى العزيزمحمد @Barna
اخى @ازهر عبد العزيز استخدم داله IsNumeric للتحقق اذا كان رقم ام لا
بالتوفيق
-
أبوبسمله's post in كود لمنع طباعة الصفحات الخالية من البيانات عند طباعة التقرير was marked as the answer
السلام عليكم
مشاركه مع اخوانى
هل هذا ما تريد جرب واخبرنا
11.accdb
-
أبوبسمله's post in كود لنسخ القيم من حقل الى حقل اخر was marked as the answer
السلام عليكم ورحمه الله وبركاته
مشاركه مع اخوانى واساتذتى جزاهم الله عنا كل خير وكل عام وانتم طيبيين
اتفضل اطلع ع المرفق هل هذا ما تريد
بالتوفيق
copy value fom colum to another_1.rar
-
أبوبسمله's post in مساعدة في مناداة كود was marked as the answer
وعليكم السلام
هكذا
Call Form_FC.ccc بالتوفيق
-
أبوبسمله's post in مساعدة في استعلام الحاق was marked as the answer
السلام عليكم ورحمه الله وبركاته
كيفك اخى ازهر كل عام وانت طيب
اتفضل ان شاء الله يكون ما تريد
بالتوفيق
Q2_1.accdb
-
أبوبسمله's post in تجميع بيانات الحقول ذات الرقم الواحد was marked as the answer
السلام عليكم ورحمه الله وبركاته
كل عام وانتم بخير
مشاركه مع اخى @kkhalifa1960 جزاه الله خيرا
اتفضل ان شاء الله يكون ما تريد بطريقه اخرى
بالتوفيق
PRindex_1.accdb
-
أبوبسمله's post in مساعدة في إجمالي عدد الموظفين المنصرف ليهم المبلغ فقط بالتقرير was marked as the answer
وعليكم السلام ورحمه الله وبركاته
وكل عام وانت وجميع الامه الاسلاميه بخير
اتفضل
بالتوفيق
DATE_1.accdb
-
أبوبسمله's post in مشكلة عدم استجابة فى الفورم was marked as the answer
السلام عليكم
اتفضل
تم التعديل ع الكود التالى فقط بايقاف السطر الاخير
Private Sub ID_DblClick(Cancel As Integer) 'Dim teltoedit As Long 'teltoedit = Me.ID.Value DoCmd.OpenForm "telseditor", acNormal, , "[id]=" & ID 'DoCmd.SearchForRecord acDataForm, "telseditor", acFirst, "[id]=" & ID End Sub بالتوفيق
dbtest.rar
-
أبوبسمله's post in توضيخ الخطاء بالكود was marked as the answer
السلام عليكم ورحمه الله وبركاته
مشاركه مع اخى @Foksh جزاه الله خيرا
اتفضل استخدم التعديل التالى
IIf(Len([اسم الخامة] & "")=0;"";Nz(DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]);0)) والاصل قبل الاضافه
DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]) والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم
بالتوفيق
-
أبوبسمله's post in حلقة تكرارية داخل نمودج فرعي was marked as the answer
السلام عليكم ورحمه الله وبركاته
مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا
اتفضل
Private Sub Commande3_Click() Dim rs As Recordset Set rs = Me.Table1sub.Form.RecordsetClone For i = 0 To rs.RecordCount - 1 If Len(rs.Fields("date a") & "") = 0 Then rs.Edit rs.Fields("date a") = Date rs.Update End If rs.MoveNext Next rs.Close Set rs = Nothing End Sub وبالنسبه لما ذكره اخى محمد فالنموذج ليس به مشكله ولكن تقريبا اخى رشيد يستخدم اللغه الفرنسيه بجهازه فلذلك لم يعمل معك ومعى ايضا واحسنت بالاستيراد والتعديل
بالتوفيق اخوانى
-
أبوبسمله's post in عدم التكرار في الاستعلام was marked as the answer
اتفضل اخى
الاستعلام qry مبنى على الاستعلام q1
بالتوفيق
123_1.accdb
-
أبوبسمله's post in كيف يمكن عمل استعلام تجميع وضم حقول من نوع نص - رقم - تاريخ was marked as the answer
وعليكم السلام ورحمه الله وبركاته
اتفضل اخى @أغيد وكل عام وانتم بخير
تم الحل باستخدام كود لاخى ومعلمى العزيز جعفر جزاه الله عنا كل خير مع بعض التعديلات
qryAll id type price date 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 3000 01/01/2020 2 انتقال, مكافأة, مواصلات, نثريات 3000 01/01/2021 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 8500 01/02/2022 2 انتقال, مكافأة, مواصلات, نثريات 8000 01/03/2023 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 13000 25/03/2023
بالتوفيق
test22_1.accdb
-
أبوبسمله's post in تحديث عدة حقول في جدول من مربع نص من فوم المعيار حسب الاشهر was marked as the answer
وعليكم السلام ورحمه الله وبركاته
اتفضل اخى @ابو هاله النبلسي ان شاء الله يكون ما تريد
بالتوفيق
NewUPDate.accdb
-
أبوبسمله's post in استعلام حذف بين جدولين was marked as the answer
السلام عليكم
اتفضل اخى @محمد احمد لطفى
DELETE Table1.id FROM Table1 WHERE (((Table1.id) In (SELECT DISTINCT Table2.id FROM Table2; ))); بالتوفيق
Delt_1.mdb
-
أبوبسمله's post in عدم فتح البرنامج اذا كان شغال was marked as the answer
السلام عليكم ورحمه الله وبركاته
اتفضل اطلع المشاركه التاليه لاخى واستاذى العزيز @kanory جزاه الله عنا كل خير
بالتوفيق
-
أبوبسمله's post in استفسار : قاعدة بيانات اوفيس 32 هل تعمل على اوفيس 64 ؟ was marked as the answer
السلام عليكم ورحمه الله وبركاته
اخى ومعلمى وشيخنا الجليل @ابوخليل بالنسبه لهذا الموضوع وما مررت به
بانه فى حاله لم يتم تحويل البرنامج الى accde فان الامور كلها تمام ولكن فى حاله التحويل يلزم التحويل على نفس بيئه العمل لضمان التحويل والعمل بشكل سليم
وكما ورد بالموضوع التالى لاخى العزيز @ابو جودي
والله اعلى واعلم
-
أبوبسمله's post in خطأ في تنفيذ استعلام الحاق من خلال الكود was marked as the answer
وعليكم السلام ورحمه الله وبركاته
اتفضل اخى واستاذى محمد @أبو عبدالله الحلوانى
Dim QryStr As String 'On Error Resume Next QryStr = "INSERT INTO InvoiceDetailTbl ( IDs, OldInvs, jyarID, Movtyp, StorID, DmanSt, VoicDtID, Quentity, price ) " & _ "SELECT MovmentTbl.ID, MovmentTbl.OldInvs, MovmentTbl.jyarID, 2 AS MovTyp, MovmentTbl.StorID, MovmentTbl.AoryntID, " & _ "'" & InvNo & "' AS InvExp, MovmentTbl.QntyOut, MovmentTbl.AmtJyarOut FROM MovmentTbl " & _ "WHERE (((MovmentTbl.BlajID)='" & bljNo & "'));" بالتوفيق