بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
12,450 -
تاريخ الانضمام
-
Days Won
231
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابوخليل
-
المشكلة لديك في تسمية الحقل عدل اسم الحقل N° في الجدول وايضا في النموذج الى Num مثلا ثم عدله ايضا في الكود
-
وملاحظة اخرى انت وضعت امر الحذف الملون بالاصفر قبل النسخ .. وهذا خطأ .. وايضا وضعته بعد النسخ ازل هذا الأمر واجعل الامر فقط بعد النسخ كما اشار عليك الاستاذ @Foksh
-
او هذا : DoCmd.OpenReport "اسم التقرير",acViewNormal
-
يجب تغيير اسم الصورة داخل الكود انظر الى اسماء الصور .. خاصة الحالية ، وانظر مكانها من الكود غير الاسم (اللي هو المفتاح في الخصائص) حسب الاختيار
-
-
المساعدة في حساب ايام الشهر 30 يومأ لجميع شهور السنة
ابوخليل replied to bakrykassala's topic in قسم الأكسيس Access
يبدوا ان المبرمجين هم اسرع الناس نسيانا هذا النقاش تم بينننا سابقا ولو اسعفتني ذاكرتي قبل اجابتي الأولى ، لأحلت السائل الى هذا الموضوع الأصل المماثل .. وفيه زيادة اضافة فريدة لأستاذنا المهندس @Eng.Qassim -
اخي الكريم استخدام امثلة مختلفة سيتعبك بهذه الطريقة سيصعب عليك التعلم ، فالأفضل ان تستخدم مثالا واحدا تعمل عليه وتطوره اذا كان مشروعك شجرة عائلة فانظر هنا اشكال جميلة رموز والوان لاحظ انه يمكنك تغيير الصورة .. ( يوجد مجموعة من الصور داخل الأداة )
-
-
مساعدة في احضار الصور دفعة واحدة _ تم تعديل العنوان
ابوخليل replied to kams3008's topic in قسم الأكسيس Access
سبحان الله اخي تم تنبيهك الى اهمية العنوان في موضوعك السابق .. يجب ان نولي المصلحة العامة اهتمامنا -
المساعدة في حساب ايام الشهر 30 يومأ لجميع شهور السنة
ابوخليل replied to bakrykassala's topic in قسم الأكسيس Access
expe1:GetMonths30([TxtDate1];[TxtDate2]) لاحظ اختلاف الفاصلة على اعتبار TxtDate1 و TxtDate2 حقول في الاستعلام او الجدول المصدر -
Recordset.RecordCount تعد السجلات والجمع انما هو للحقول .. اي اننا سنجمع حقل محدد ضمن مجموعة السجلات sum نستخدمها في الاستعلامات وايضا في النموذج او التقرير لجمع حقل محدد وينطبق هذا ايضا على Count مفردة للعد اما جمع حقل في محرر الفيجوال فانت مخير بين طريقتين : اما ان تصنع جملة استعلام بالمطلوب واما ان تستخدم الدالة DSum
-
المساعدة في حساب ايام الشهر 30 يومأ لجميع شهور السنة
ابوخليل replied to bakrykassala's topic in قسم الأكسيس Access
استخدم هذه الدالة Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function ويتم مناداتها لحساب المدة بين تاريخين هكذا : Me.txtDays = GetMonths30(Me.TxtDate1, Me.TxtDate2) -
مطلوب تحديد لون بطاقة الطالب حسب المادة _ تم تعديل العنوان
ابوخليل replied to kams3008's topic in قسم الأكسيس Access
اخي الكريم يجب الاهتمام باختيارك للعنوان المناسب الذي يصف الموضوع . كي لا تعرض موضوعك للاغلاق -
جرب هذا استبدله بدل الموجود في مصدر تحكم الحقل : =Nz([tx23])+NZ([tx24])+NZ([tx25])
-
واجهة بقوائم منسدلة مجانية هديتي لهذا المنتدى
ابوخليل replied to فوزي صلاح اليافعي's topic in قسم الأكسيس Access
في مثالي اعلاه عند اضافة عنصر جديد ستضيف سطر العنصر في مكانين فقط مفعل = لا ضمن حدث الدالة المصنوعة مفعل =نعم ضمن حدث زر الفائمة الرئيسي الخاصة بهذا العنصر -
واجهة بقوائم منسدلة مجانية هديتي لهذا المنتدى
ابوخليل replied to فوزي صلاح اليافعي's topic in قسم الأكسيس Access
انظر لما قصدته في مثالك المعدل واجهة جميلة منسدلة2.rar -
تقرير مصدره صور مخزنة خارج قاعدة البيانات
ابوخليل replied to hanafymahmood's topic in قسم الأكسيس Access
الحمد لله على سلامتك اخونا وحبيبنا واستاذنا خليفة .. سلامة دائمة ان شاء الله وعودا حميدا .. -
واجهة بقوائم منسدلة مجانية هديتي لهذا المنتدى
ابوخليل replied to فوزي صلاح اليافعي's topic in قسم الأكسيس Access
جميل جدا .. عندي ملاحظة على الاكواد التي وضعتها لإظهار واخفاء الازرار . يوجد طريقتان يمكنك الاخذ باحدهما لجعل عملك سهلا الأولى : ابداعات الأستاذ موسى هنا الثانية : ان تعمل كود يخفي جميع الازرار الفرعية عند تحميل البرنامج ... وعند الضغط على الزر الرئيسي تستدعي هذا الكود اولا .. ثم تسمح لما تحته بالظهور في هذه الحالة تتجنب اعادة وتكرار كتابة الاسطر .. ايضا يكون التعديل عند الحاجة سهلا يسيرا -
بارك الله فيك يابو احمد .. الأجمل والأكمل .. ( فأرى ردي واجبا ولا يسعني الصمت عنها ) ---------------------- كنت استخدمها للقفز عند الأخطاء المنطقية ولكن معالجة هذه الأخطاء اولى من القفز عليها مثلا : عندما يكون في اول الجملة سطر يجلب قيمة من جدول من اجل مقارنته او التأكد من وجوده ، فحينما يكون الجدول خاليا او القيمة غير موجودة يظهر الخطأ عالجته باستخدام الدالة NZ واتعامل بالشرط على اساس القيمة = صفر ... هنا تجاوزت الخطأ الذي سببه عدم وجود القيمة وقس على هذا كثير وهذا هو الذي يجب ان يهتم به المبرمج ويعمل عليه . ومع ذلك هناك اماكن في حدود ضيقة يضطر المبرمج الى الاستعانة بها ، لعجزه عن التصحيح .. اما لخبرته او بسبب فني برمجي بحت ، ولكن بشرط ان يعمل الكود على الوجه المطلوب .. ولا يتسبب في نتائج خاطئة .
-
هذه معلومة جديدة لدي
-
صحيح لن يعمل في الاجهزة الأخرى عند نقله . ولكي يعمل يلزم مسح القيمة من الجدول .. وهذه هي الثغرة .لمن عرف سر الحماية ما رأيك لو عملنا عرقلة للمعتدي بحيث لو عمل على افراغ الجدول لن يعمل معه الا بادخال كلمة السر بما يشابه هذا : If IpAddress = DLookup("[IpAddress]", "tblLog") Then Exit Sub End If Dim mypass mypass = "123" str_Title = "الرقم السري مطلوب" str_Prompt = "ادخل الرقم السري" If InputBox(str_Prompt, str_Title) = mypass Then If DCount("[IpAddress]", "tblLog") = 0 Then Call LogIpAddress Exit Sub End If Else MsgBox "لاتملك الصلاحية" DoCmd.CancelEvent DoCmd.Quit End If IP2.rar
-
جميل جدا .. تمت التجربة .. يوجد ثغرة وهي اذا الجدول خالي يتم فتح النموذج بمعنى يمكنني افراغ الجدول وتشغيل الفورم على اي جهاز وانت ايضا لا يمكنك وضع قيمة في الجدول عندما ترسله لي لأنه سيجد قيمة مغايرة ولن يعمل
-
نحترم فكرتك .. في الأصل أكسس لم تصنعه ميكروسوفت ليستفاد منه كتوزيع تجاري ، كما هو الحال في اللغات البرمجية الأخرى وتطبيقاتها وانما عملته لخدمات المكتب وتستفيد منه المؤسسات الصغيرة في اعمالها ، مثله مثل اكسل والوورد وبقية المجموعة ,, لاحظ ان معالج اكسس يصنع مشروعا كاملا بضغطة زر . فاذا ارتقينا الى قواعد سيكوال سيرفر فالافضل الارتقاء الى لغات برمجية ارقى وافضل ، والواجهات فيها لا تقارن بواجهات اكسس المحدودة . ما يميز اكسس سهولة ويسر العمل عليه وسرعة التنفيذ ... فما يتم تنفيذه على اكسس في يوم .. سيأخذ قرابة الشهر على اللغات الأخرى والسبب ان القوالب جاهزة في اكسس ولا تحتاج بناء من الصفر