ebrahim1400

اخي حسين العربى

اشكرك ثم اشكر 

الله يجزاك الف خير 

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

اضافة مرفق لكل سجل.rar

استاذي ابو خليل واستاذي رمهان 

الف الف شكر والله لا يحرمك الأجر ان شاء الله 

على طول وافين وتحبون الخير

الله يجزاك الف خير 

ويكتب لكم الأجر 

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

لدي نموذجين في النموذج الأول يوجد به 3 خانات اختيار وكذلك النموذج الثاني يوجد به 3 ازرار 

واريد في حال الضغط على خانة الأختيار للمهمة 1 يجعل زر D1 يكون visibel في النموذج الثاني

وكذلك في خانة الإختيار للمهمة 2 مع الزر D2 و خانة الأختيار للمهمة 3 مع الزر D3 في النموذج الثاني 

وشكرا 

Database1.rar

بالنسبة لي انا ما فهمت سؤالك 

لكن شوف هذا المرفق يمكن يفيدك

وانا اراى بأنك تفكر وتعمل بنفس هذه الطريقة

slary.rar

اشكر اشكر اشكر اخي عبدالله 

الله يجزاك الف خير يا اخي 

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

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

وافضل ان اكتشف اشياء جديدة من اجل استفيد ويستفيد كل من في المنتدى بارك الله فيك 

وشكرا 

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

لدي نموذج وفيه قائمة منسدلة 

وفي حال ان المستخدم يفتح القائمة المنسدلة يظهر معه النموذج المطلوب فتحه 

يعني يختار اسم النموذج من القائمة المنسدلة مثلا form1 يفتح النموذج تلقائياً

وشكرا 

form with combobox.rar

الف شكر 

الله يجزاك الف خير 

والله يعطيك العافية 

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

كل عام وانتم بخير 

عندي حقلين في حال الظغط على زر count يظهر لي msgbox ويعطيني ناتج الحقلين في النموذج 

هذا ولكم اطيب تحياتي 

sum msgbox.rar

جزاك الله الف خير اخي شفان واخي صالح 

ممكن يكون اصدار افيس لدي فيه مشكلة وسوف اقوم بالتعديل قريبا 

ولكم تحياتي ,,,,

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

اسف على التأخير حيث كان هناك عطل في الأنترنت بالأمس

اخي صالح مشكور على الرد 

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

نفس الوضع بالضبط 

مع اكسس 2010 نسخة 64بت . اريد ادرج هذا العنصر من الأساس في ( عنصر تحكم اكتف اكس) 

==================================================================

بالنسبة للأخ شفان 

الملف معطوب لا يعمل 

الله يجزاكم الف خير واسف على الأطالة ولكن نريد حل في ادراج progress bar  في جدول ( التحكم اكتف اكس )

وشكرا 

اخي صالح 

انت لديك اكسس 2007 ولديك في ادارج عنصر التحكم progress bar 

ولكن انا لدي اكسس 2010 لا يوجد نهائياً progress bar . وكنت اريد طريقة استطيع ادراج progress bar في اكسس 2010 

وجميع كلامك صحيح ولكن اكسس 2010 لا يوجد هذا العنصر 

وشكرا لك 

السلام عليكم 

انا عندي اكسس 2010 ولكن لا يوجد فيه عنصر التحكم progress bar 

السؤال : كيف استطيع ادراج progress bar في عنصر التحكم 2010 

ارجو المساعدة والحل في ذلك 

وشكرا 

اخي صالح شكرا جزيلا . والله يعطيك الصحة والعافية 

السلام عليكم 

لدي نموذج . اريد ان يكون في حال فتح النموذج تكون جميع الحقول فارغة ولا تظهر إلا في حال البحث برقم الموظف من القائمة المنسدلة 

يعني ابحث في القائمة المنسدلة من نفس النموذج ويظهر معي كامل بيانات الموظف المراد البحث عنه 

كما هو موضح في الملف المرفق 

البحث من القائمة المنسدلة.rar

تسلم يا ابو خليل 

الله يجزاك الف خير . والله يرحم والديك 

اريد عند الضغط على زر آلة حاسبة تظهر

calcl.rar

الف شكر لكم والله يجزاكم الف خير 

تم التنفيذ 

اخي العزيز نفس الوضع عند تشغيل البرنامج يظهر خطاء في المديول على كلمة Function

Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long
 

وفي نفس الوقت تظهر لي رسالة كالتالي :

compile error

the code in this project must be updated for ues on 64-bit systems please review and update declare statements and then mark them with the ptrsafe attribute 

اريد ان يختفي شاشة البرنامج بالكامل ويظهر النموذج فقط 

وفي نموذج الpassword يكون هناك زر اظهار شاشة الأكسس وزر اخر يخفي شاشة الأكسس اذا دعت الحاجة 

اسف على الأطالة ولك تحياتي ,,,,,

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

انا قمت بنسخ هذا الكود في الميديول 

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib user32 _
Alias ShowWindow (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then no Activeform
If nCmdShow = SW_HIDE Then
MsgBox Cannot hide Access unless _
& a form is on screen
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox Cannot minimize Access with _
& (loForm.Caption + ) _
& form on screen
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox Cannot hide Access with _
& (loForm.Caption + ) _
& form on screen
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

عملت زر اظهار 

fSetAccessWindow SW_HIDE

وزر اخفاء

fSetAccessWindow SW_SHOWNORMAL

ولكن تواجهني مشكلة بأنه لم يتم الإخفاء او الإظهار بظهور رسالة الخطاء المزعجة 

لا اعرف ما هو السبب . واليكم المرفق 

وجزاكم الله الف خير 

data job - نسخة.rar

شكر اخي احمد 

ولكن يمر المؤشر على اسم الصنف وعلى باقي الحقول 

اريد المؤشر فقط على رقم الصنف . يعني يتم التنقل على رقم الصنف فقط لا يمر على اسم الصنف - والوحدة - وسعر الشراء وما شابه 

هذا ولك جزيل الشكر 

تسلم يا غالي ويسلم كل من شارك معنا والله لكم كل الشكر والعرفان 

لدي سؤال بسيط لو تكرمتم واعرف اني اشغلتكم 

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

يعني يندرج فقط في رقم الصنف بدون ان يقوم المستخدم بإستخدام الضغط على اي زر او ينتقل المؤشر تلقائيا على اسم الصنف ولكن يندرج فقط على رقم الصنف تلقائياً

واسف على الإطالة 

وجزاكم الله الف خير

الف الف شكر وجزاكم الله الف خير

الله يعطيك العافية يا اخي 

كذا تمام وطريقة جميلة الله يعطيك الف عافيةولكن اريد عند فتح النموذج تكون السجلات نفسها فارغة وفي حال ادخال رقم الصنف يظهر اسم الصنف ومحتواه

هل هناك طريقة لذلك 

واسف على الأزعاج