اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

قمت بتصميم برنامج أكسس

ومحتاج عند الضغط على الاسم تظهر صورة الشخص على البرنامج أو ينبثق منه شاشة بها بيانات الشخص وصورته

تجريبي.rar

  • Like 1
قام بنشر
13 ساعات مضت, soik225998 said:

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

قمت بتصميم برنامج أكسس

ومحتاج عند الضغط على الاسم تظهر صورة الشخص على البرنامج أو ينبثق منه شاشة بها بيانات الشخص وصورته

تجريبي.rar 93.54 kB · 1 download

تفضل هذا برنامج جاهز وكبير

ويلبي طلبك

عدل عليه حسب حاجتك

صورة ومعلومات.rar

  • Thanks 1
قام بنشر

برنامج ممتاز ،،

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

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

 

قام بنشر

اخى kkhalifa1960 جزاك الله خير هذا عمل رائع وإضافة جميل وتعلمتها منها الكثير .. وأسف جداً على الإطالة ولكن المطلوب عند الضغط على الأسم تظهر الصورة الخاصة بالشخص image.png.1d5df6951d940d853ece7e7a7623fa21.png

قام بنشر (معدل)

استاذ @soik225998 تفضل المرفق والشرح بعد التعديل.اضغط على الاسم بالصب فورم (البيانات)........ اذا كان هذا طلبك لا تنسى الضغط على افضل اجابة .:fff:

                                                              image.gif.ff047dfe6b534701f0016680211962dc.gif

ملحوظة : انا مسحت بعض الصور نظراً لكبر حجمها حتي يمكن رفع البرنامج .

 

تجريبي_3-1.rar

تم تعديل بواسطه kkhalifa1960
  • Like 1
قام بنشر (معدل)

عمل رائع وممتاز ونتعلم منك kkhalifa1960 الكثير ،،

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

image.png.611514da4ab55627a047af5a4adbfffa.png

تم تعديل بواسطه soik225998
  • أفضل إجابة
قام بنشر

تفضل استاذ @soik225998 المرفق بعد التعديل بطلبك  ... عند الضغط على الاسم اذا كان الموظف مدرج له صورة سيفتح فورم (بيانات الشخص) واذا لم يوجد له صورة  سيفتح فورم (AddPic).

بالشرح .ووافني بالرد .:fff:

                                                image.gif.1a7145c4f2302ff1d597ca2bc418fc43.gif

تجريبي_3-2.rar

  • Thanks 1
قام بنشر
4 ساعات مضت, kkhalifa1960 said:

تفضل استاذ @soik225998 المرفق بعد التعديل بطلبك  ... عند الضغط على الاسم اذا كان الموظف مدرج له صورة سيفتح فورم (بيانات الشخص) واذا لم يوجد له صورة  سيفتح فورم (AddPic).

بالشرح .ووافني بالرد .:fff:

                                                image.gif.1a7145c4f2302ff1d597ca2bc418fc43.gif

تجريبي_3-2.rar 1.83 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 downloads

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

  • Thanks 1
  • 2 weeks later...
قام بنشر

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

قام بنشر
2 ساعات مضت, soik225998 said:

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

استاذ @soik225998 بعد اختيار الصورة بيتم تخزين مسارها وامتدادها بالجدول . حسب الاسم  . وفي الاستعلام نخلي الشرط (Criteria)  .

[Forms]![بحث]![البيانات].[Form]![الاسم]
حيث البحث اسم الفورم الرئيسي
البيانات اسم الصب فورم
الاسم حقل الاسم

. (AA) زودنا حقل بالاستعلام2

AA: [Application].[CurrentProject].[Path] & "\" & "MyPic" & "\" & [ID] & [PicType]
لجلب الصورة من فولدر الصور بجوار البرنامج (MyPic)

PicType هو امتداد الصورة
ممكن يكون (jpg) أو (bmp)أو(png)ـ 
وعند الضغط على الاسم بينفذ الكود
Private Sub الاسم_Click()
If IsNull(DLookup("PicPath", "Query2")) Then
MsgBox "لايوجد صورة للموظف رجاء ادراج صوره له ", vbInformation
    Dim strCriteria As String
    strCriteria = "ID = " & Me.ID
        DoCmd.OpenForm "AddPic", WhereCondition:=strCriteria, OpenArgs:=(Me.ID)
Else
DoCmd.OpenForm "بيانات الشخص"
End If
End Sub

  بيفتح فورم بيانات الشخص الذي يأخذ بياناته من الاستعلام2 الذي به مسار الصورة

وأي سؤال أ استفسار حاضرين .:fff:

قام بنشر
4 ساعات مضت, kkhalifa1960 said:

استاذ @soik225998 بعد اختيار الصورة بيتم تخزين مسارها وامتدادها بالجدول . حسب الاسم  . وفي الاستعلام نخلي الشرط (Criteria)  .

[Forms]![بحث]![البيانات].[Form]![الاسم]
حيث البحث اسم الفورم الرئيسي
البيانات اسم الصب فورم
الاسم حقل الاسم

. (AA) زودنا حقل بالاستعلام2

AA: [Application].[CurrentProject].[Path] & "\" & "MyPic" & "\" & [ID] & [PicType]
لجلب الصورة من فولدر الصور بجوار البرنامج (MyPic)

PicType هو امتداد الصورة
ممكن يكون (jpg) أو (bmp)أو(png)ـ 
وعند الضغط على الاسم بينفذ الكود
Private Sub الاسم_Click()
If IsNull(DLookup("PicPath", "Query2")) Then
MsgBox "لايوجد صورة للموظف رجاء ادراج صوره له ", vbInformation
    Dim strCriteria As String
    strCriteria = "ID = " & Me.ID
        DoCmd.OpenForm "AddPic", WhereCondition:=strCriteria, OpenArgs:=(Me.ID)
Else
DoCmd.OpenForm "بيانات الشخص"
End If
End Sub

  بيفتح فورم بيانات الشخص الذي يأخذ بياناته من الاستعلام2 الذي به مسار الصورة

وأي سؤال أ استفسار حاضرين .:fff:

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

 

قام بنشر

ممكن توضيح ومساعدة 

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

اريد ان احمل الصور دفعة واحد 

يعني لما اعمل كل شخص له صورة ياخذ وقت كبير

وفي الاخير احاول طباعة بطاقة عمل تكون فيها الاسم اللقب رقم التعرفي والصورة حسب الرقم التعريفي 

ملاحظة اريد الصورة تتحمل وحدها

مشكورين مسبقاً 

  • Thanks 1
قام بنشر
13 ساعات مضت, kams3008 said:

ممكن توضيح ومساعدة 

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

اريد ان احمل الصور دفعة واحد 

يعني لما اعمل كل شخص له صورة ياخذ وقت كبير

وفي الاخير احاول طباعة بطاقة عمل تكون فيها الاسم اللقب رقم التعرفي والصورة حسب الرقم التعريفي 

ملاحظة اريد الصورة تتحمل وحدها

مشكورين مسبقاً 

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

قام بنشر
14 ساعات مضت, kams3008 said:

ممكن توضيح ومساعدة 

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

اريد ان احمل الصور دفعة واحد 

يعني لما اعمل كل شخص له صورة ياخذ وقت كبير

وفي الاخير احاول طباعة بطاقة عمل تكون فيها الاسم اللقب رقم التعرفي والصورة حسب الرقم التعريفي 

ملاحظة اريد الصورة تتحمل وحدها

مشكورين مسبقاً 

أنصحك بأن تفتح موضوع جديد وان ترفق مثال مع عدد بسيط من السجلات لتطبيق الفكرة 😊

  • Thanks 1

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