اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ِAbo_El_Ela

03 عضو مميز
  • Posts

    279
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه ِAbo_El_Ela

  1. 14 ساعات مضت, أكسس وبس said:

    اكرمك الله انا عملته على اكسس 2003 صراحة حاولت على اكسس 2007 و 1010 معرفتش انا بنزل على الكمبيوتر 4 اصدارات اوفيس 2003 - 2007 - 2007 - 2013 

    ياريت ياريت اهل الخبرة يلقوا نظرة على الموضوع لاضافة لمساتهم الفنية الجميلة 

    اسف اسم المستخدم 1 

    كلمة المرور 1 

    وبعدين ممكن تضغط على شفت وحتفح البرنامج

    بسم الله ما شاء الله 

    عذرا اخي الكريم فأني مازلت مبتداً 

    مجهود عظيم و ربنا يبارك في علمك 

     

    استاذنا كيف صممت شريط القوائم الخاص بمشروعك 

    لعلنا نستفيد 

  2. 18 ساعات مضت, ناقل said:

    هذه يسهل ما تشاء من شروط ....

    استخدم هذا 

    Dim myCriteria As String
            myCriteria = "[نوع المستند] = '" & Me.نوع_المستند & "'"
            myCriteria = myCriteria & " AND "
            myCriteria = myCriteria & "[كود الدعوي] =" & Me.كود_الدعوي
            Me.n = DCount("[كود الحركة]", "harka", myCriteria)
    
    

     

    اسف جدا استاذي 

    خطأ في التطبيق من عندي

    و بعد التنفيذ تم المطلوب 

     

    3 ساعات مضت, ناقل said:

    حسب طلبك كان هناك شرطان للعد

    كود الدعوى

    نوع المستند

    وفي الجدول المعطى كود الدعوى 1

    نوع المستند عقد 

    انظر عند الضغط على الزر في الشرح يكون الناتج 2 

     

    C3E2B8F6-B159-4945-B962-2FC4ADFE7094.GIF

    شكرا جزيلا استاذنا و معلمنا 

    شكرا لسعة صدرك 

    معلش انا مبتدئ 

    • Thanks 1
  3. في ١٨‏/١١‏/٢٠٢١ at 19:06, Moosak said:

    جرب وأخبرنا بالنتيجة 😉

    و الله يا استاذنا انا جربت ووقفت الرساله بالفعل 

    بس هل بناء الجمله صحيح و لا لاء لا اعرف 

    اذا كان عندك حل غير هذا 

    اخبرني به رجاءاً يا استاذي

  4. 23 ساعات مضت, Moosak said:

    يمكنك وضع رسالة تخبر المستخدم بوجوب الالتزام بالقائمة في حدث [ عند عدم الوجود في القائمة ] التابع للقائمة المنسدلة ، ولكني لم أعرف كيفية إيقاف الرسالة الافتراضية للبرنامج ..

    في حدث "عند الخطأ" في النموذج وضعت هذا الكود

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 0 Then
    Response = False
    End If
    Response = True
    End Sub

    سالة الاكسس وقفت 

    بس هل الكود صحيح البناء و لا لاء لا اعرف

  5. 17 دقائق مضت, Moosak said:

    الموضوع بسيط جدا أخي ...

    فقط من خصائص القائمة المنسدلة > بيانات > إلتزم بالقائمة > نعم .

    image.png.36955a50d2dbe2a6a5de9db40946ecf3.png

    مرفق لك التعديل :

    Database4.accdb 704 kB · 0 downloads

    اشكرك استاذي ادام الله فضلكم 

    كفيت و وفيت

    ارجو ان يتسع صدركم 

    و لكن هل لها حل برمجيا بحيث اني الغي رسالة الاكسس الافتراضية و استبدلها برساله من عندي

  6. شكرا اخي العزيز و معلمي الكريم 

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

    Database4.rar

    اسف لقد غيرت اسم النموذج الي frmDa2wa 

     

×
×
  • اضف...

Important Information