jjafferr

اخي الفاضل ، هذه الرسالة لا دخل لها بنسخة نظام التشغيل ، اذا تستعمل الاوفيس/الاكسس 2007 فأكثر ، اذا فتحت اي برنامج اكسس من مجلد غير موثوق به ، ستظهر لك هذه الرسالة 🙂 وفي الاكسس 2010 فما فوق ، لما تظهر لك هذه الرسالة ، يمكنك النقر على "تمكين المحتوى" ، ولن تظهر مرة اخرى ، حتى ولو لم يكن البرنامج في مجلد موثوق 🙂 جعفر

جرب الآن 🙂 1396.مطابقة موجودات2.accdb.zip

جميع من جرب البرنامج ، اشتغل عندهم ، فيمكن يحتاج تحاول مرة ثانية 🙂 جعفر

تقريبا جميع الكمبيوترات الآن تعمل على الاكسس 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 ، وهو تنسيق المنتديات العربية ، فتصبح الصفحة من اليمين الى اليسار ، ولا ترى فيها خلط بين الكلمات العربية والانجليزية ، وانا استعمل هذه الطريقة : جعفر

🙂

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

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