مصلح الحريصي

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

الأخ اشرف لم أفهم هذه النقطة لعلك توضح أكثر بارك الله فيك

[font=arial]الأخ علي ابشر الكود التالي في وحدة نمطية عامة ( Module ) Declare Function SetTimer Lib "user32" (ByVal hWnd _ As Long, ByVal nIDEvent As Long, ByVal uElapse _ As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" _ (ByVal hWnd As Long, ByVal nIDEvent As Long) _ As Long Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" (ByVal hWndParent As _ Long, ByVal hWndChildAfter As Long, ByVal _ lpClassName As String, ByVal lpWindowName _ As String) As Long Declare Function Sendmessagebynum _ Lib "user32" Alias "SendMessageA" (ByVal _ hWnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) _ As Long Const EM_SETPASSWORDCHAR = &HCC Public str_Title$, TimerId& Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) KillTimer 0, TimerId Dim lng_Hwnd& lng_Hwnd = FindWindowEx(0, 0, "#32770", _ Trim(str_Title)) lng_Hwnd = FindWindowEx(lng_Hwnd, 0, _ "Edit", vbNullString) If lng_Hwnd Then Sendmessagebynum lng_Hwnd, EM_SETPASSWORDCHAR, 42, 0 End If End Sub والكود التالي عند فتح النموذج المشار له في الكود الذي وضعته أعلاه TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "كلمة مرور الدخول" str_Prompt = "فضلاً إدخل كلمة المرور" Answer = InputBox(str_Prompt, str_Title) If Answer <> 123 Then DoCmd.CancelEvent MsgBox " Error passport", 64, "For Conformation" Else DoCmd.OpenForm "Fphone" End If وغير كلمة المرور 123 بأي كلمة تناسبك

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

الأخ أبو يعلى بالنسبة للإستفسارك الموجود على المثال فقد قمت بالتعديل كما طلبت وفي حال رغبتك تطبيق ذلك مع بيانات العمال فهي بنفس اسلوب بيانات الملاء مع تغيير بسيط الأرقام فقط. بقي لي ملاحظة بسيط وهي: أدخل رقم هاتف مثلاً 740000 ثم أضغط مفتاح الإدخال إنتر ظهرت البيانات طيب الأن لا تضغط على مفتاح الإدخال قم بمسح محتويات مربع النص الخاص بالبحث وادخل رقم جديد ولاحظ ما سيحدث كرر ذلك ستجد النموذج يستمر في التمدد. أكتب كود يحدد المسافة التي يصل إليها النموذج في التمدد ثم يتوقف هذا اسلم في نظري. SEARCH.rar

وهذا ملف الصور 2.rar

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

نيابة عن الأخ اشرف أعرض التقرير في وضع المعاينة ثم أنقر زر الفأرة اليمن ومن القائمة التي تظهر أختر إعداد الصفحة ثم أعمدة ثم عدد الأعمدة ضع الرقم 1 ثم موافق ولاحظ ما سيحدث كذلك جرب الأرقام 3،2 أيضاً جرب خيار " تخطيط العمود "طولاً ثم عرضاً و عرضاً ثم طولاً . هذا كل ما في الأمر.

على النموذج الخاص بالمقترض ضع زر أمر وأكتب في حدث النقر الخاص بالزر الكود التالي : DoCmd.OpenForm "اسم نموذج الكفلاء", acNormal, "", "[Forms]![ اسم نموذج الكفيل الموجود لديك]![ اسم مربع النص الخاص برقم المقترض على نموذج المقترض]", , acNormal لاحظ أن الكود غير واضح هنا لكن أنسخه وألصقه في الوحد النمطية الخاصة بالزر وسوف يتضح لك بشكل جيد واستبدل التسميات الخاصة بالنماذج ومربع النص حسب ما هو لديك.

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

ضع في حدث عند التركيز الكود التالي: Text1.KeyboardLanguage = 2 استبدل كلمة Text باسم مربع النص لديك.

الأخ ابو ريان ألف شكر لك تعبتك يا رجل . المثال ممتاز جداً ولكن لم أجد فيه بغيتي حيث أنه يعتمد على قاعدة بيانات في تخزين المسارات . كذلك لم يبحث عن المجلدات فقد كتبت في مربع البحث Program Files وظهرت النتيجة صفر والسبب انه لا يبحث عن المجلدات . جربه فربما أكون مخطئاً في ذلك . ثم جرب بحث الويندوس ستجده يظهر لك الكلمة التي تبحث عنها سواء مجلد أو ملف . أكرر شكري لك وأعتذر لك أتعبتك معي. ألف ألف شكر

الأخ فهد محاولة ممتازة جداً ينقصه التالي : 1. يتم البحث في Drive C فقط 2. يبحث عن الملفات ولا يبحث عن المجلدات فقد كتب اسم مجلد وظهرت لي رسالة بأنه غير موجود في الجهاز مع تأكدي من ذلكك. توصلت للتالي : كود يبحث في الــدرايفات ( الأقراص ) المحددة في الكود فقط وقد يحتمل تغيير مسميات الأقراص. البحث عن ملف ولم استطع البحث عن مجلد . حسب الكود التالي : Set fs = Application.FileSearch With fs .newsearch .LookIn = (" C:\;D:\;E:\;G:\;H:\") .FileName = "*" & [Txtchr] & "*" .SearchSubFolders = True If .Execute > 0 Then MsgBox "تم العثور على عدد " & .FoundFiles.Count & _ " ملف/ ملفات" For i = 1 To .FoundFiles.Count List2.AddItem .FoundFiles(i) Next i Else MsgBox "لم يتم العثور على ما تبحث عنه", vbMsgBoxRight + vbInformation, "" End If End With تظهر الملفات في قائمة اسمها List2 على نموذج. ولكنني أريد نتائج أفضل من هذا

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

شكراً أخي فهد فعلاً كلامك صحيح وشكراً لك على ذلك ولكني أطمع في أن أجد طريقة أفضل حيث قد يكون في جهاز الكمبيوتر أكثر من درايف غير C ، D وقد لا أعرفهم حتى ضمنهم في الكو. ولكن هذا لا يعني أنني لم أجد في ردك الفائدة بل قد أفدتني جداً اثابك الله فقد استطعت البحث في C - D وهذا ما لا كنت أعرفه قبل ردك أكررررررررر لك شكري.

السلام عليكم ورحمة الله وبركاته أريد كود يبحث عن ملف معين في جهاز الكمبيوتر دون تحديد أي من الأقراص " C أو D" أكتب اسم الملف في الكود وعند الضغط على زر أمر ينفذ الكود عملية البحث ويظهر رسالة في النهاية بالعثور على الملف من عدمه0 للأسف لم أتوصل لذلك الكود ولكن توصلت لكود يبحث في القرص المحدد وهو التالي: Dim dmar As Variant Set fs = Application.FileSearch With fs .NewSearch .LookIn = "C:\" .FileName = "Eidd*.*" .SearchSubFolders = True If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For I = 1 To .FoundFiles.Count List2.AddItem .FoundFiles(I) Next I Else MsgBox "There were no files found." End If End With وعند استبدال المحرك C بأسم " جهاز الكمبيوتر أو MyComputer" لم يتم العثور على الملف. أريد استبدال المحرك C بجهاز الكمبيوتر ويقوم الكود بالبحث في جهاز الكمبيوتر عن أي مجلد أو ملف أو برنامج يذكر في الكود بأي أمتداد. الرجاء ممن لديه الحل أن يسعفني به فقد تعبت في البحث دون نتيجة. شكراً للجميع سلفاً.