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

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


green tea

الردود الموصى بها

السلام عليكم

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

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

صورة النتيجة

post-27241-1201919462_thumb.jpg

الملف المعدل 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

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

رابط هذا التعليق
شارك

  • 2 weeks later...
أخواني اشكركم على تفاعلكم مع المشكله وجزاكم الله الف خير

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

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

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

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

رابط هذا التعليق
شارك

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

لاحظت ان ال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. تفقديها جيدا للوصول للمشكلة والحل لها كما في الطريقة الأولى.

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

رابط هذا التعليق
شارك

حيك الله اختي

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

مع الاحترام

رابط هذا التعليق
شارك

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

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

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

Compile :Error

Expected : Expression

رابط هذا التعليق
شارك

السلام عليكم

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

post-27241-1203415968_thumb.png

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

MemosUpdate.zip

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information