kkhalifa1960

نعم وتفضل باستعلام تحديث (Query2) بالضغط عليه مرتان أو تشغيله من الفورم بزر أمر أو عند اي حدث ( عند غلق الفورم أو ................) اختار الحدث الذي يناسبك . Controler-2.accdb

وايضاً لم تعمل عندي ويندوز 10 - 32 بت

أخي اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل أخي المطلوب باستعلام (Query1) والنتائج بالحقول (AA)و(BB)و(CC) ووافني بالرد . Controler-1.accdb

Web site blocked This website is not appropriate for you and has been blocked. Ask your parents if you want to go there anyway. Go back to previous page? Go Back

بعدهذا الرد ليش الهبد ده كله !!!!!!!!!!!!!!!!!! الأن كل شيء أمامك افعل ماشئت بس تذكر (أعمال الكنترول لها أصول) تذكر أن 1- ارقام الجلوس وتوزيع اللجان المنوط بهم قسم التسجيل . 2- أما السري المنوط بها الكنترول .

عفوا استاذي انت قسمت اللجان ووزعت ارقام الجلوس .............. وكتشنة السري حسب كل مادة حتى لاتنكشف ................ هل في كل مادة هتكتشن أرقام الجلوس !!!!!!!!!!!!!!!!!

استاذ رضوان ممكن ترفع لنا مثالك بعد تطبيق الوحدة النمطية الاخيرة للاستاذ kanory .

أخي الفاضل 40 سنة أعمال كنترول أرقام الجلوس لا تحتاج كتشنة لأنها معلنه للكل . فأنت المفروض فقط كتشنة السري . والله ولي التوفيق .

لو على مشاركتي رقم المجموعة مو اختياري ولكن يأتي بالكود أ الطلب الثاني خلي خصائص الحقل لا يقبل التكرار .

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

يجب أن تذكر 1- امتداد القاعدة (.mdb) أم (accdb) 2-اذا كانت الحماية على القاعدة نفسها فيمكن فتحها اذا كانت يإمتداد (mdb) أما الثاني فصعب . 3- اذا كانت الحماية على على محرر الأكواد فهذا له كلام ثاني .

1-ضع هذه الدالة في موديول . Public Function funFileExists(strPath As Variant, Optional lngType As Long) As Boolean Dim intTest As Integer On Error Resume Next 'Ignore errors to allow for error evaluation intTest = GetAttr(strPath) 'Check if error exists and set response appropriately Select Case Err.Number Case Is = 0 funFileExists = True Case Else funFileExists = False End Select Exit_funFileExists: On Error GoTo 0 Exit Function End Function 2-استدعيها بهذا الكود غند حدث فتح الفورم الرئيسي الذي يفتح عليه الرنامج. ' أدخل مسار برنامجك بدلاٍ من هذا ' C:\My Documents\output.Accdb If funFileExists("C:\My Documents\output.Accdb") Then DoCmd.Quit Else End If

تفضل أخي أبدأ الخطوات حسب الترقيم رقم (1) أدخل عدد الطلاب بكل لجنة ثم أكمل 2-3 ثم اذهب 6-7 للسري . كتشنة الرقم السرى-11.accdb

لا تنسى الضغط على أفضل اجابة .

تفضل أخي طلبك . VACATIONS-2.rar

تفضل أخي سويت لك استعلام رصيد الاجازات الكلية لكل موظف من تاريخ التعيين (VacationsTotal) بالمرفق . VACATIONS-1.rar

تفضل أخي . مذبح البركة-3.accdb

شوف هذا الشرح https://www.youtube.com/watch?v=1w8Vc68dc_M

استاذ ابو عبد الرحمن اشرف انت دائما مبدع الله ينور بصيرتك ويوفقك .

أحسنت يا دكتور.

تفضل أخي الطلب الاول بيفتح مع البرنامج. اما الطلب الثاني افتح النموذج (بيع وبون) بتحصل عميل اسمه (--دفع فوري--) اختاره وادخل البيانات وطالع النتيجة . واليك المرفق . مذبج البركة-2.accdb

كليك يمين علي (All Access Objects)ثم ثم اضغط على (Navigation Options)بيظهرك (Navigation Options) الغي علاة الصح من البكس (show System Objects)

تفضل أخي ووافني بالرد . واذا كان هذا طلبك لاتنسى الضغط على أفضل اجابة . مذبح البركة-1 .accdb