Foksh

6 دقائق مضت, 2saad said:

انا بستعمل اوفيس 2010 ولم تفتح الأداة معي

عند تجربة الملف على نسخة 32 من إصدار أوفيس 2010 ، فعلاً تظهر هذه الرسالة :-

ويليها هذه الرسالة :-

ثم يتم اغلاق الأداة .

4 ساعات مضت, ossoss222 said:

السلام عليكم

وعليكم السلام ورحمة الله وبركاته ..

أهلاً بك في مشاركتك الأولى لك كعضو جديد في هذا الصرح الكبير ..

بدايةً نود لفت انتباهك إلى ضرورة التقيد والإلتزام بسياسة وقوانين المنتدى عند فتح مواضيع وطلبات جديدة لك لاحقاً . حيث أنه يتوجب أن يكون العنوان للموضوع ذا صلة و وضوح للمطلوب . ومن ثم التفصيل والتوضيح بشكل صريح للمطلوب والمشكلة التي تواجهك وتريد حلاً لها .

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

شكراً لك سعة صدرك ورحابته 

وعليكم السلام ورحمة الله وبركاته ..

ما رأيك بدلاً من خوض التجارب على ملفات لا تشابه أو تطابق عملك ، أن تقوم بإرفاق ملف بسيط من عملك الذي تطبق عليه !!

فيسهل على الأساتذة والإخوة الوصول الى فكرتك التي تريدها بشكل مباشر من واقع العمل 

55 دقائق مضت, ABBO said:

الاداه بنظام 32Bit

تم إضافة النسخة 32 الى المشاركة الأولى 👍

49 دقائق مضت, Mohameddd200300 said:

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء 

 

وعليكم السلام ورحمة الله وبركاته ..

ملاحظتك قوية ، ولا اعلم عنها لأني لم الحظها في الأسام القليلة الماضية .

لكن هل تقصد كحد اقصى من تجربتك 200 رسالة بشكل عام لجهات اتصال متنوعة ، ام ضمن نفس المحادثة لشخص واحد !!!

ما شاء الله ،، فكرة جميلة جداً لمن يعاني من هذه المشكلة ..  

الجميل في فكرتك أنها تقوم بشكل ديناميكي بالمرور على جميع النماذج وفتحها ومطابقة أسماء الصور المستخدمة وتلك الموجودة في جدول النظام ، وحذف السجل من الجدول دون إتلاف قاعدة البيانات 👍

جزاك الله كل خير على هذه الفكرة الجميلة.

5 ساعات مضت, Remili Kamel said:

قمت بتحميل الملف للأسف في صفحة قوائم التلاميذ وقوائم التفويج لاتعمل

انقر على الملف الذي قمت بتحميله زر يمين من الماوس واختر ( خصائص - Properties ) ، وقم بالتعليم كما في الصورة التوضيحية

ثم افتح الملف مرة أخرى .

🤷‍♂️

5 ساعات مضت, طاهر اوفيسنا said:

اين يكمن المشكل اذن

من خلال ملفك المرفق ، لم اجد مشكلة . لذا اعطنا مثال على قيم وسجلات متنوعة لرؤية النتيجة.

8 ساعات مضت, طاهر اوفيسنا said:

اكسس 2010 

مبارك علينا وعليكم الترقية الجديدة وانضمامكم إلى أسرة خبراء القسم أستاذ @محب العقيدة .

إلى الأمام دائماً ، ومن نجاح إلى أعلى 

وعليكم السلام ورحمة الله وبركاته ..

بدايةً أهلاً وسهلاً بك أخي الكريم في المنتدى ، ونتمنى أن تجد ما تبحث عنه دائماً .

وطبعاً ذلك يتحقق أولاً باتباع قواعد وسياسة المنتدى للحصول على نتيجة لطلبك ؛ بحيث يكون العنوان ذو شرح مختصر يدل على المشكلة .
ومن ثم التوضيح في الطلب داخل المشاركة دون البخل (  ) في الكلمات على أصدقائك وأخوتك هنا .
وكي تدعم شرحك وجوب وضرورة ارفاق ملف بسيط ليتم التعديل عليه بعد رؤية المشكلة على أرض الواقع .

2 ساعات مضت, طاهر اوفيسنا said:

ارجو توسيط الرقم وتاريخ التسليم

أخي طاهر ، هل هذا ما تريده ؟؟

إذا كان هو فعلاً ، فانظر ماذا سنفعل .

• أولاً انشاء مربع نص ولنفترض اسمه = txtRowNumber ، وسنجعل قيمته أو مصدر بياناته = "=1" ليقوم بعد السجلات الحالية في التقرير .
     ( الإضافات حتى لا نقوم بتعديل أي تركيبة في تقريرك وللتوضيح طبعاً )
• ثانياً إنشاء مربع نص أيضاً للتاريخ ولنفترض اسمه = txtAutoDateDisplay . وسنجعل له قيمة مصدر بيانات بناءً على الاستعلام مصدر التقرير = 

  =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[Auto_Date],"")

  حيث الهدف من فكرتي هو عدّ السجلات بناءً على مربع النص txtRowNumber وقسمتها على 2 للتوسيط وبالتقريب طبعاً حتى لة كان عدد السجلات 10 مثلاً فسيكون العرض في السجل 6 مثلاً .

• ثالثاً إنشاء مربع نص أيضاً للرقم وسأفترض اسمه = txtEmployeeIDDisplay . وسيكون له قيمة مصدر بيانات =
   

  =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[EmployeeID],"")

وطبعاً قمت بإخفاء الحقول الأصلية . ولكن عليك تجربة الفكرة على سجلات كثيرة للتأكد من الفكرة .

المرفق لتجربته :-

Z1.zip

1 دقيقه مضت, ahmedhossin said:

عملت الطريقة و وضعت ما قاله و لكن لم تنجح العملية هل هناك من عملية في vba  لاستخراج RichTextBox 

للأسف هذا ما وجدته من خلال البحث أخي الكريم ..

قد تجد حلول أخرى لمن مر بهذه المشكلة . ولذلك  فقط عندما تجد الحل  .

تم إلغاء إختيار تمت الإجابة .

19 ساعات مضت, BRAHIM Ben aissa said:

السلام عليكم... أستاذنا الفاضل ..... شكرا على الملاحظة المقدمة في الموضوع والمعذرة عن الخطأ الصادر مني ....

لقد فتحت موضوع جديد يخص  بحث وتصفية بيانات قاعدة الموظفين حسب كل معيار (عمود) ... في فورم خاص بقائمة بيانات الموظفين . 

بارك الله فك أستاذنا - عبدالله بشير عبدالله - 

أخي الفاضل ..

يتم اختيار أفضل إجابة للإجابة التي حققت لك المطلوب ، وليس لإجابة صاحب الموضوع . لذا تم نقل الإجابة للأستاذ @عبدالله بشير عبدالله جزاه الله خيراً .

3 ساعات مضت, ahmedhossin said:

السلام عليكم و رحمة الله و بركاته

وعليكم السلام ورحمة الله وبركاته ..

الق نظرة على هذا الفيديو أولاً :-

وهذا الرابط هنا الذي يوضح طريقة تسجيل المكتبة من خلال موجه الأوامر ..

وعليكم السلام ورحمة الله تعالى وبركاته..

الملف بصيغة Accde ولا يمكن تعديله وحفظه لما طلبت.

في 19‏/10‏/2025 at 19:56, عصام البدوي said:

تظهر رسالة لا يمكن حذف حقل محسوب

تم التعامل مع المشكلة بتغيير اسلوب التنفيذ في المشاركة الرئيسية .

2 ساعات مضت, RAIANESAMI said:

السلام عليكم

 

وعليكم السلام ورحمة الله وبركاته ..

مشاركة مع أخي @moho58 .
أخي الكريم .. الواجب والأصل أن تحدد الشرط الثاني ما إذا كان رقمي أم نصي أم تاريخ . لأن لكل حالة تحتلف صيغة الكود . فعلى سبيل المثال  :-

• اذا كان الحقل نصي :-

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]='" & Me.RAIANESAMI & "'"
End Sub

• اذا كان الحقل رقمي :-

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=" & Me.RAIANESAMI
End Sub

• أما اذا كان الحقل تاريخ على سبيل المثال :-

Private Sub cmd_rpt_Details_Click()
    Call Make_QR_Barcode
    DoCmd.OpenReport "rpt_QR_Item", acViewPreview, , "[N_T]='" & Me.N_T & "' AND [RAIANESAMI]=#" & Format(Me.RAIANESAMI, "dd/mm/yyyy") & "#"
End Sub

لاحظ أنني استخدمت اسمك بدلاً من اسم الحقل والمطابق لشرطه ( مربع النص ) = RAIANESAMI

أخي الكريم ، السلام عليكم ورحمة الله وبركاته ..

أهلاً وسهلاً بك كعضو جديد في هذا الصرح الكبير . ونتمنى أن تجد المعلومة والمساعدة التي تبحث عنها 

بداية وحتى لا تتعرض مواضيعك للحذف وعدم المتابعة ، عليك أولاً بقراءة قواعد المشاركات في المنتدى من خلال :-

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

ثانياً وفيما يخص العناوين ، عليها أن تكون ذات دلالة على المطلوب ( وليس عناوين دراماتية لا تدل على المطلوب ) .

وعليكم السلام ورحمة الله وبركاته ،

أنصحك بدايةً بفتح موضوع جديد في قسم الآكسيس ، وليس في قسم مكتبة الموقع .

ثانياً اشرح شرحاً وافياً كافياً للمطلوب . فلا أعتقد ان 17 كلمة كافية لتوصيل المعلومة لمن يقرأ موضوعك أخي الكريم  .

ثالثاً وكي تبدأ بداية سليمة ( وأنت بدأت بداية طيبة جزئياً ) ولكن لتكملها - لا تستعمل أسماء تحتوي فراغات ومسافات لحقول أو مكونات أو عناصر مثل الحقل "Material Description E" . فهذا سيربكك ويصعب عليك الأمور لاحقاً في الاستعلامات أو الأكواد ..... إلخ . فالأصح على سبيل المثال بدلاً من استعمال المسافة أن تستعمل رمز "_" الشرطة السفلية لتصبح النتيجة مثلاً = "Material_Description_E" .

افتح موضوعك الجديد في قسم الآكسيس مباشرة وستجد الكثير من الدعم لك  👍

تم اغلاق هذه الموضوع 

مع الإستمرار بنفس الأسلوب الحالي لصاحب الطلب ، هذه فكرة بسيطة بدون فكرة التهميز ( مع أني غير مقتنع 😅 ) . الدالة البسيطة :-

Sub SearchRecords()
    On Error GoTo ErrorHandler
    
    Dim strSearch As String
    Dim strFilter As String
    
    strSearch = Trim(Nz(Me.txtSearchName.Value, ""))
    
    If strSearch = "" Then
        Me.Filter = ""
        Me.FilterOn = False
        MsgBox "تم إظهار جميع السجلات", vbInformation + vbMsgBoxRight, ""
    Else
        strFilter = "[الاسم] LIKE '*" & strSearch & "*' " & _
                   "OR [الدور] LIKE '*" & strSearch & "*' " & _
                   "OR [المدرسه] LIKE '*" & strSearch & "*' " & _
                   "OR [سنة التخرج] LIKE '*" & strSearch & "*' " & _
                   "OR CStr([م]) LIKE '*" & strSearch & "*' " & _
                   "OR CStr([المجموع]) LIKE '*" & strSearch & "*'"
        
        Me.Filter = strFilter
        Me.FilterOn = True
        
        If Me.Recordset.RecordCount > 0 Then
            MsgBox "تم العثور على " & Me.Recordset.RecordCount & " سجل", vbInformation + vbMsgBoxRight, ""
        Else
            MsgBox "لم يتم العثور على نتائج للبحث : " & strSearch, vbExclamation + vbMsgBoxRight, ""
        End If
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ أثناء البحث", vbExclamation + vbMsgBoxRight, ""
End Sub

واستدعائها عند النقر للزر :-

Private Sub cmdSearch_Click()
    Call SearchRecords
End Sub

from 93 to 2007.zip

4 ساعات مضت, shabrawy said:

السلام عليكم

في فكرتك هذه ، سيكون هناك مشاكل ستواجهك بما أن النموذج مخصص للإدخال . فرغم اعتمادك سلوك غير صحيح في التصميم ( كالحقول العريبة بمسمياتها ، أو المكونة من مقطعين .... إلخ ) .

فمثلاً لو انت بتدخل بيانات وفي لحظة أردت البحث عن اسم قبل اكتمال باقي البيانات التي كنت تدخلها ، فهنا سيكون لديك سجل غير مكتمل ومحفوظ لأنه عند الخروج أو التحديث للنموذج بأي موضع سيتم حفظ السجل تلقائياً . ناهيك عن مشاكل التكرار التي ستواجهها .

لذا برأيي أنصحك أن تقوم بعمل نموذج مخصص للبحث ومنفصل عن نموذج الإدخال .

ستجد الكثير من الحلول ولكن اتبع السلوك المنطقي والسليم والذي سيكون مريحاً لك عند البدء بتطوير مشروعك بشل أوسع من مجرد نموذج .

من باب التجربة الشخصية ..

اجعل الحدث TimerInterval = 500 وليس 1000

وجرب هل تأثر ( اختلفت النتيجة ) معك الترميش أو الوميض ؟؟؟؟