jjafferr

تقريبا جميع الكمبيوترات الآن تعمل على الاكسس 2007 فأكثر ، وهذه الرسالة ستظهر كل مرة تفتح البرنامج في مجلد غير موثوق به ، او جعفر

وعليكم السلام 🙂 جعفر

اخي وحيدي ، ياريت تنظر في جميع ملاحظات اخوي خالد ، الذي اخذ الوقت ووضح لك تفاصيل مخفية من البرنامج 🙂 اخوي خالد ، شكرا جزيلا على هذه المداخلات ، دائما ممتعه ومليانه معلومات 🙂 وعلى طاري التيمم ، كنت مفكر استعمل استعلام Crosstab ، بس غيّرت رأيي 😁 جعفر

هذا له علاقة باعدادات عرض النموذج ، بدون برواز ووو شوف النموذج الثاني ، والمساحة البيضاء هي بسبب ان الصورة صغيرة الحجم ولم تقم بملئ متصفح الانترنت. وبسبب عدم وجود طريقة لغلق هذا النموذج ، فالافضل ان تضع حدث للوقت Timer ، وبعد مدة تغلق النموذج 🙂 جعفر AniGIF.zip

وعليكم السلام 🙂 عملت تغيير في الاستعلام pv ، واسم وطريقة عمل النموذج الفرعي ، واستدعائه ، فرجاء تلقي نظرة عليه كذلك ، حتى يتماشى مع برنامجك : . والنتيجة . جعفر 1397.New Microsoft Access Database.accdb.zip

فقط علشان افهم السؤال: اذا ازلت الخلفية (يعني ان الصورة فيها جزء شفاف ، وانت تريد ان تُزيله) ، فما هو اللون الذي يجب ان يظهر مكانه؟ جعفر

اخي الفاضل @AliAli47 انت صاحب السؤال ، ولم نسمع منك، اذا اشتغلت عندك الصورة المتحركة !! جعفر

السلام عليكم 🙂 اولا علينا اخراج المجموع ، والمعدل لسنة واحدة ، فرجاء تحذف الحقول التي لا تدخل في المجموع: Summ : Nz([df1], 0) + Nz([df2], 0) + Nz([dav], 0) + Nz([af1], 0) + Nz([af2], 0) + Nz([aav], 0) + Nz([ef1], 0) + Nz([ef2], 0) + Nz([eav], 0) + Nz([rf1], 0) + Nz([rf2], 0) + Nz([rav], 0) + Nz([ejf1], 0) + Nz([ejf2], 0) + Nz([ejav], 0) + Nz([of1], 0) + Nz([of2], 0) + Nz([oav], 0) + Nz([ff1], 0) + Nz([ff2], 0) + Nz([fav], 0) + Nz([sf1], 0) + Nz([sf2], 0) + Nz([sav], 0) + Nz([mosf1], 0) + Nz([mosf2], 0) + Nz([mosav], 0) + Nz([mf1], 0) + Nz([mf2], 0) + Nz([mav], 0) + Nz([hf1], 0) + Nz([hf2], 0) + Nz([hav], 0) + Nz([maf1], 0) + Nz([maf2], 0) + Nz([maav], 0) ثم ننظر في معدل سنتين او ثلاث جعفر

وعليكم السلام 🙂 اكتب لنا الكود اللي عندك ، علشان نعدل عليه 🙂 جعفر

تفضل يا سيدي 🙂 . وهذا الجزء من الكود الذي تم تعديله: Me.FilterOn = True Me.Filter = "[yer] = " & MyYear & " and [num] ='" & MyNumnf & "' and [nu] ='" & MyMntj & "' and [NameEmb] ='" & MyMonth & "' and [jh] ='" & MyNoa & "'" ' يتم حساب عدد الحقول التي بها أرقام For i = 1 To 74 fld_value = DSum("fld" & i, "tbl", "[yer] = " & MyYear & " and [num] ='" & MyNumnf & "' and [nu] ='" & MyMntj & "' and [NameEmb] ='" & MyMonth & "' and [jh] ='" & MyNoa & "'") If fld_value > 0 Then 'Debug.Print fld_value 'If DSum("fld" & i, "tbl", "[Name1]='" & Myfilter & "'") > 0 Then flCnt = 1 + flCnt 'إظهار الحقول غير الفارغة Me("fld" & i & "").visible = True Me("lbl" & i & "").visible = True Me("s" & i & "").visible = True ' حساب عرض كل حقل Me("fld" & i & "").Width = Len(CStr(fld_value)) * 145.5 Me("LBL" & i & "").Width = Len(CStr(fld_value)) * 145.5 Me("s" & i & "").Width = Len(CStr(fld_value)) * 145.5 End If Next i If flCnt = 0 Then MsgBox "لا توجد حقول بها قيمة", , "خطأ" DoCmd.CancelEvent Exit Sub End If ' حساب عرض كل حقل 'For i = 1 To 74 'Me("fld" & i & "").Width = Me.Name1.Left / flCnt 'Me("LBL" & i & "").Width = Me.Name1.Left / flCnt 'Me("s" & i & "").Width = Me.Name1.Left / flCnt 'Next i ' إعادة توزيع الحقول غير الفارغة For i = 74 To 1 Step -1 Me("fld" & i & "").Left = WidthFld Me("lbl" & i & "").Left = WidthFld Me("s" & i & "").Left = WidthFld If Me("fld" & i & "").visible Then 'WidthFld = Me("fld" & i & "").Width + WidthFld WidthFld = Me("s" & i & "").Width + WidthFld End If Next i جعفر مطابقة موجودات2.zip

وعليكم السلام 🙂 هذا الرابط قد يفيدك : جعفر

هذه الصورة بصيغة Gif ، في النموذج ، ، في وضع التصميم ، استخدم عنصر الانترنت Microsoft Web Browser : . . . وفي حدث عند تحميل النموذج: Private Sub Form_Load() Me.ocxWebBrowser.Object.Navigate CurrentProject.Path & "\Blooming_Flower.gif" End Sub . ويجب ان تكنو مختار هذه المكتبة في صفحة الكود VBE : واذا كان نظام كمبيوترك 32 بت ، فيجب ان: انقر على ...Browse ، ثم C:\Windows\System32 ، واختار الملف ieFrame.dll . والنتيجة : جعفر

ياريت تضع مشاركتك في الرابط ، وتعطينا الاكواد والمكتبات اللي عندك ، واذا يكون بمرفق ، فيكون افضل : جعفر

السلام عليكم 🙂 اليك بعض الامثلة على طلبك: . . . جعفر

وعليكم السلام 🙂 اسمح لي اشرح لك طريقة سهلة في التعامل مع الدالة الشرطية iif (ملاحظة: حسب اعدادات كمبيوترك ، فقد تستعمل الدالة الفاصلة المنقوطة ; او الفاصلة , والاكسس سيخبرك برسالة خطأ وسيكون المؤشر واقف على الفاصلة فقم بتغييرها الى فاصلة منقوطة او العكس) : هذه القاعدة : اذا عندك شرط 1 ، فاقفل نهايه الدالة بقوس 1 ، واذا عندك شرطين 2 ، فاقفل نهاية الدالة بقوسين 2 ، واذا عندك شروط 3 ، فاقفل نهادية الدالة باقواس 3 ، وهكذا : Condition And / Or Conditions = شرط او / و شروط True = نتيجة الشروط صحيحة False = نتيجة الشروط خطأ بشرط 1 A: iif( (Condition1 And Or Conditions1) ; True ; False ) ونعيد كتابة الدالة بحيث نكتب نتيجة الشرط الخطأ في السطر التالي A: iif( (Condition1 And Or Conditions1) ; True ; False ) بشرطين 2 A: iif( (Condition1 And Or Conditions1) ; True ; iif( (Condition2 And Or Conditions2) ; True ; False )) A: iif( (Condition1 And Or Conditions1) ; True ; iif( (Condition2 And Or Conditions2) ; True ; False )) بشروط 3 A: iif( (Conditions1) ; True ; iif( (Conditions2) ; True ; iif( (Conditions3) ; True ; False ))) A: iif( (Conditions1) ; True ; iif( (Conditions2) ; True ; iif( (Conditions3) ; True ; False ))) والآن الى معادلتك ، وبنفس الطريقة : 1 karar: IIf([moy_bem]>=10);"ناجح"; "اعادة") karar: IIf([moy_bem]>=10);"ناجح"; "إعادة") 2 karar: IIf(([moy_bem]>=10);"ناجح"; IIf(([moy_bem]<10 And [yaer]<=2003);"يوجه"; "إعادة")) karar: IIf(([moy_bem]>=10);"ناجح"; IIf(([moy_bem]<10 And [yaer]<=2003);"يوجه"; "إعادة")) 3 karar: IIf(([moy_bem]>=10);"ناجح"; IIf(([moy_bem]<10 And [yaer]<=2003);"يوجه"; IIf(([moy_bem]>=10 And [moy_admi]<10);"ناجح"; "إعادة"))) karar: IIf(([moy_bem]>=10);"ناجح"; IIf(([moy_bem]<10 And [yaer]<=2003);"يوجه"; IIf(([moy_admi]>=10 And [moy_bem]<10);"ناجح"; "إعادة"))) ولما تنتهي من عمل الدالة ، اجمعها في سطر واحد 🙂 وبسبب وجود كلمات عربية في الدالة ، فقد تلاحظ ان متغيرات الدالة قفزت من مكانها الى مكان آخر ، فلا تهتم لهذه النقطة ، فالاكسس سيعرف موقعهم الصحيح 🙂 جعفر

يجب ان تضع هذا السؤال في ذلك الموضوع ، حتى يقوم اخوي العود ابوخليل للرد عليه 🙂 جعفر

وعليكم السلام 🙂 اسمح لي اشرح لك الموضوع بطريقة سهلة : اذا فتحت ملف اكسل ، وبه عدة سجلات ، ونفترض انه تم حفظ المؤشر على اول سجل ، او تفتح جدول في الاكسس : 1. اذا اردت ان تعرف عدد السجلات ، فتضطر الى سحب "شريط التمرير" العمودي (Vertical Scroll bar) الى الاسفل ، الى آخر سجل ، وبهذه الطريقة تعرف كم عدد السجلات ، بالنسبة لعملية Recordset ، فتكتب rst.MoveLast لذهاب المؤشر الى آخر سجل ، وطبعا لما السجلات تكون كثيرة ، فالوصول الى آخر سجل يأخذ بعض الوقت ، 2. بعد ان عرفت عدد السجلات ، ولتبدأ تقرأ السجلات ، تضطر الى سحب "شريط التمرير" الى الاعلى الى اول سجل ، بالنسبة لعملية Recordset ، فتكتب rst.MoveFirst لذهاب المؤشر الى اول سجل ، 3. اذا بدأت البحث يدويا عن معلومة معينه ، فإنك تقرأ السجل ، ثم تنقل للسجل الذي اسفل منه ، بالنسبة لعملية Recordset ، فتكتب rst.MoveNext ، 4. ولما توصل للنهاية ، واردت البحث عن شيء آخر ، فتضطر الى سحب "شريط التمرير" الى اعلى الى اول سجل مرة اخرى ، بالنسبة لعملية Recordset ، فتكتب rst.MoveFirst لذهاب المؤشر الى اول سجل. يعني هكذا: dim rst as dao.recordset dim RC as long dim i as long set rst = currentdb.openrecordset ("Select * From tbl2") rst.moveLast rst.moveFirst RC= rst.recordcount for i = 1 to RC ... ... rst.moveNext next i rst.close set rst= nothing في حالات ، انت لا تريد ان تعرف عدد السجلات ، وانما تريد ان تبدأ تقرأ السجلات سجل سجل الى نهاية السجلات/الملف EOF فيصبح الكود: dim rst as dao.recordset set rst = currentdb.openrecordset ("Select * From tbl2") rst.moveFirst do until rst.EOF ... ... rst.moveNext Loop rst.close set rst= nothing . مع العلم اننا لا نحتاج الى الذهاب الى اول سجل لما نفتح الملف ، ولكن اذا قرأنا الملف وبقينا على آخر سجل ، فالكود لن ينتقل تلقائيا الى اول سجل لقراءة معلومات اخرى ، خصوصا اذا كان هذا الكود في وحدة نمطية ، ويتم استدعائها من استعلام لمجموعة سجلات ، فيجب ان نجعل الكود ينتقل لأول سجل في كل مرة يتم استدعاء الكود 🙂 جملة الحذف هي لحذف بيانات الجدول 🙂 جعفر

وعليكم السلام 🙂 محتاجين مرفق بسيط لوسمحت 🙂 ثم اعطنا مثال من مرفقك ، كيف تريد ان تكون النتيجة 🙂 جعفر

هاي الله يسلمك لها علاقة باللغة اللي انت مختارها لعرض صفحات للمنتدى : في اسقل اي صفحة في المنتدى ، في اختيار لغة صفحات المنتدى : . 1. اذا تختار رقم 1 ، English USA ، وهو تنسيق المنتديات الاجنبية ، فتصبح الصفحة من اليسار الى اليمين ، وكما تفضلت ، فخلط الكلمات العربية والانجليزية لا تأخذ مكانها الصحيح : . 2. بينما اذا اخترت رقم 2 ، Officena default ، وهو تنسيق المنتديات العربية ، فتصبح الصفحة من اليمين الى اليسار ، ولا ترى فيها خلط بين الكلمات العربية والانجليزية ، وانا استعمل هذه الطريقة : جعفر

🙂

السلام عليكم 🙂 المشكلة عندك انك لم تكن تشير الى اسم الحقل في النموذج ، وانما كنت تشير الى اسم حقل مصدر بياناته :

ما شاء الله ، خلال دقيقتين عملت اللازم ، وكتبت مشاركتك 🙂 قوّاك الله 🙂 جعفر

اخي الفاضل: رجاء مراجعة قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية محتوى المشاركة 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. جعفر

ما فهمت قصدك ، رجاء التوضيح .

اثناء تجوالي في نماذج برنامجك ، تعودت ان الزر الاحمر للخروج من النموذج ، واذا بعد النقر على الزر الاحمر في احد النماذج ، اتضح انه لحذف السجل ، وكنت قد حذفته بالفعل !! جعفر