كيف أجعل النموذج من خلال سطح المكتب ؟

[anamo]

أخي محب العلم فعلا ظهرت لدي المشكلة...

لقد أرفقت لك الملف الرئيسي للبحث أرجو الاطلاع عليه وإبداء الرأي..

Search_Sort_20071109_NEW.rar

[محب العلم]

جميل جدا أخي anamo الأن يبدأ مشوار البحث عن حل المشكلة

[محب العلم]

السلام عليكم

الحمد لله الذي بفضله تتم النعمات

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

صورة النتيجة

الملف المعدل Memos.zip

مع وافر الاحترام

[محب العلم]

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

والآن أخي anamo السؤال الذي يطرح نفسه هو : هل من الممكن تعديل البرمجة في نموذج البحث لتشمل حقول تحتوي على فرغات ؟

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

Private Sub txtSearchText_Change()

 .
 .
 .

            If .Section = 0 Then
              .FormatConditions.Add acExpression, , "[" & .Name & "]  Like '" & SearchText & "'"
              .FormatConditions(0).BackColor = 8454143
              .FormatConditions(0).ForeColor = vbBlue
             '.FormatConditions(0).FontBold = True
            End If
          End With
.
.
.

End Sub

وقارن التعديل في الكود في سطر واحد فقط مع ما كان سابقا هكذا

 With Cntl
            If .Section = 0 Then
              .FormatConditions.Add acExpression, , .Name & " Like '" & SearchText & "'"
              .FormatConditions(0).BackColor = 8454143
              .FormatConditions(0).ForeColor = vbBlue
             '.FormatConditions(0).FontBold = True
            End If
          End With

وهكذا يعمل البرنامج بدون أية شروط تذكر

التعديل الجديد MemosUpdate.zip

مع وافر الاحترام والتقدير

[anamo]

ممتاز جدا أخي محب العلم..

فعلا المشكلة لم أكن منتبها لها..

وفعلا حل ممتاز جدا..

أرجو من الأخ أبو هادي أن يطور هذا في إصداراته الجديدة لهذا الأداة الرائعة..

[green tea]

أخواني اشكركم على تفاعلكم مع المشكله وجزاكم الله الف خير

لكن المشكله لااا تزااااال عندي حتى مع التعديلات الجديده :') :')

[محب العلم]

أخواني اشكركم على تفاعلكم مع المشكله وجزاكم الله الف خير

لكن المشكله لااا تزااااال عندي حتى مع التعديلات الجديده :') :')

حياك الله أختي green tea

شيء غريب ، يرجى رفع صورة للمشكلة ليتم المعاينة

مع وافر الاحترام

[green tea]

أخي محب العلم اشكرك جدا على اهتمامك بحل المشكله وجزاك الله الف خير وكثر من امثالك

لاحظت ان الDesign view يفتح معي لنموذج البحث لكن نموذج البحث نفسه لا يفتح حتى ولو فتحته مباشره وليش من خلال الضغط على زر البحث !

وأرفقت بالمرفقات صورتين للمشكله واحده عند فتح النموذج وواحده عند فتح ال Design view او عرض التصميم بالعربي !

هل يمكن ان ادخل الاكواد بنفسي مباشره وكيف يتم ذلك ؟؟ لاني عندما شاهدت خصائص زر البحث المطور لم اعرف اين تم وضع الكود وكيف !!

my_error.rar

error_in_design_view.rar

[محب العلم]

اختي العزيزة green tea

يوجد عندك مشكلة في أحد المراجع reference

لمعاينة المشكلة وحلها بإذن الله اتبعي الخطوات الأتية

الطريقة الأولى:

1. افتحي قاعدة البيانات التي تعملين عليها والتي فيها المشكلة

2. اضغطي alt+f11 لتدخلي إلى محرر visual basic

3. من tools ثم References يظهر لك صندوق حواري في المراجع نفقديها جيدا وابحثي عن مربع عليه صح ومكتوب بجانبه Missing : <referebce > ويكون محدد دليل (مجلد) واسم المرجع

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

الطريقة الثانية :

1. افتحي قاعدة البيانات التي تعملين عليها والتي فيها المشكلة

2. اضغطي alt+f11 لتدخلي إلى محرر visual basic

3. اعملي موديول جديد وضعي فيه الكود الآتي :

 

Option Explicit

Function ReferenceInfo()

   Dim strMessage As String
   Dim strTitle As String
   Dim refItem As Reference
   
   On Error Resume Next
   
   For Each refItem In References
      If refItem.IsBroken Then
         strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
      Else
         strMessage = "Reference: " & refItem.Name & vbCrLf _
            & "Location: " & refItem.FullPath & vbCrLf
      End If
      Debug.Print strMessage
   Next refItem

End Function

4. اضغطي ctrl+g وبداخل الإطار الذي يفتح اكتبي ? ReferenceInfo سيعرض لك كل المراجع

5. تفقديها جيدا للوصول للمشكلة والحل لها كما في الطريقة الأولى.

مع وافر الاحترام

[green tea]

اخي هل من طريقه اخرى لدخول الvisual basic لان لم يحدث شي عند الضغط على Alt+ F11

[green tea]

ظهرت لي نافذه عندما ظغطت على Modules

حاولت اطلع المراجع لكن هذا اللي طلع معاي

انظر الى الصوره لو تسمح اخي

reference.rar

[محب العلم]

حيك الله اختي

يبدو لي أنك عملت ما قلته لك ولكن بقاعدة جديدة وليس بالقاعدة التي بها المشكلة كما طلبت منك ، يرجى التأكد من ذلك وإعلامي

مع الاحترام

[green tea]

فتحت النموذج اللي فيه المشكله واخترت قائمه tools ثم Macros ثم Visual basic editor !

لاني حاولت بكل الطرق هذي الطريقه الوحيده اللي يفتحلي فيها المحرر او اذا ضغطت على الزر البحث المطور ثم قمت بالضغط على الزر اليمين للفأره ثم visual basic editor

وعند الضغط على Ctr+g لا يظهر شيء كتبت ? ReferenceInfo في خانه Immediate اسفل الشاشه ! وعندما ضغط Enter

Compile :Error

Expected : Expression

[محب العلم]

فهمت عليك الآن يبدو أنك تستخدمين 2007 ، وهذا شيء رائع

سأعود لك بعد قليل ...

[محب العلم]

السلام عليكم

الطريقة في 2007 لعمل المطلوب موضحة في 7 صور تم اضافتها في مستعرض gif واحد

وأنتظر ردك ...

مع وافر الاحترام

[green tea]

السلام عليكم

الطريقة في 2007 لعمل المطلوب موضحة في 7 صور تم اضافتها في مستعرض gif واحد

وأنتظر ردك ...

مع وافر الاحترام

لااااا انا استخدم 2003 لكن هذا بالفعل ما يظهر عندي

مشكلتي عندنا اكتب ? ReferenceInfo يظهر لي خطأ مثل اللي نرفق بالصوره Compile Error

[محب العلم]

اختي لقد أصبح لازما ان ترفع المرفق الذي به المشكلة ، طبعا إن كان ذلك ممكنا

[green tea]

أخي الكريم محب العلم اشكرك جدا على المساعده والروح الطيبه

الملف الاصلي ليس به مشكله عندما تفتحه انت عندك لكن الخلل عندي انا لا اعلم اهو في برنامج الأكسيس اب بالجهاز نفسه !!

لقد ارفقت الملف بالمرفقات

MemosUpdate.zip

[محب العلم]

كلامك صحيح اختي العزيزة

حاولي تنزيل الأوفيس مرة أخرى

مع الاحترام