alhinai

في ٨‏/٩‏/٢٠١٨ at 16:20, alhinai said:

السلام عليكم اخواني الكرام بهذا المنتدى الكريم

 لقد قمت بعمل قاعدة بيانات HRInfo وعملت نموذج National Employee مصدر بياناته من جدول NationalEmployee بالنموذج زري أمر إضافة وتعديل صورة والآخر حذف الصورة وهما باالأساس من قاعدة بيانات Nortwind  المعروفة تواجهني مشكلة عند نقل قاعدة البيانات هذه من جهاز الى آخر أو من مجلد إلى آخر أما في جهازي ال1ي أعمل فيه الآن فلا توجد مشكلة الأمرين يعملان بطريقة صحيحة فأرجو من إخواني الكرام تبصيرنا بالسبب.

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

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

 

HRInfor.rar

السلام عليكم إخواني الكرام.

أشكركم لقد تم حل المشكلة وتم تصحيح الكود .

السلام عليكم اخواني الكرام بهذا المنتدى الكريم

 لقد قمت بعمل قاعدة بيانات HRInfo وعملت نموذج National Employee مصدر بياناته من جدول NationalEmployee بالنموذج زري أمر إضافة وتعديل صورة والآخر حذف الصورة وهما باالأساس من قاعدة بيانات Nortwind  المعروفة تواجهني مشكلة عند نقل قاعدة البيانات هذه من جهاز الى آخر أو من مجلد إلى آخر أما في جهازي ال1ي أعمل فيه الآن فلا توجد مشكلة الأمرين يعملان بطريقة صحيحة فأرجو من إخواني الكرام تبصيرنا بالسبب.

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

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

HRInfor.rar

الف مبروك أخي الكريم على اللقب @kanory

33 دقائق مضت, jjafferr said:

آسف ، ما كان واضح طريقة حذفك للسجل 

 

 

فيصبح كودك كالتالي:

Private Sub Command12_Click()
On Error GoTo Err_Command12_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

    Me.ImageFrame.Visible = false
    Me.ImageFrame.Picture = ""

Exit_Command12_Click:
    Exit Sub

Err_Command12_Click:
    MsgBox Err.Description
    Resume Exit_Command12_Click
End Sub

 

جعفر

أستاذي الكريم لقد قمت بعمل زر DeletRecord  آمل أن تكون الطريقة صحيحة. لربما هي غير صحيحة لكنها محاولات  لأنه في حالة كان السجل المحذوف هو آخر سجل بالنموذج فلن نستطيع الخروج من النموذج بسبب "رسالة عدم وجود سجل" والذي أريده عند الحذف بهذه الحالة أن يجعل النموذج بدون سجل. وهذا هو الكود:

Private Sub DeleteRecord_Click()
On Error GoTo Err_DeleteRecord_Click

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

Exit_DeleteRecord_Click:
    Me.ImageFrame.Visible = True
    Me.ImageFrame.Picture = ""
DoCmd.GoToRecord , , acPrevious
    Exit Sub

Err_DeleteRecord_Click:
    MsgBox Err.Description
    Resume Exit_DeleteRecord_Click
End Sub

968.AddPhoto.rar

28 دقائق مضت, alhinai said:

أعذرني أستاذي منكم نتعلم فأنا لم أعمل زرأمر حذف ولكن أقوم بحذف السجل من قائمة Delete ثم Delete Record إذا ما العمل.

لقد قمت بعمل زر أمر حذف سجل ووصعت الكود التالي عن النقر:

Private Sub Command12_Click()
On Error GoTo Err_Command12_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

Exit_Command12_Click:
    Me.ImageFrame.Visible = True
    Me.ImageFrame.Picture = ""

    Exit Sub

Err_Command12_Click:
    MsgBox Err.Description
    Resume Exit_Command12_Click
End Sub

50 دقائق مضت, jjafferr said:

الله يطول عمرك ، ما قلت لك هذه الطريقة !!

 

انت بهذه الطريقة عملت حدث خاص للذي انا اخبرتك ،

بينما انا اخبرتك ان تضع الكود في نهاية كود الحذف (واللي ما اشوفه هنا) .

 

جعفر

أعذرني أستاذي منكم نتعلم فأنا لم أعمل زرأمر حذف ولكن أقوم بحذف السجل من قائمة Delete ثم Delete Record إذا ما العمل.

9 ساعات مضت, jjafferr said:

 

تستطيع ان تضع هذ الاسطر في نهاية كود حدث "الحذف"

        Me.ImageFrame.Visible = False
        Me.ImageFrame.Picture = ""

 

جعفر

أشكرك استاذ جعفر على هذا التجاوب والإهتمام لقد قمت بوضع كود حدث " الحذف" بالشكل التالي:

Private Sub Form_Delete(Cancel As Integer)
Me.ImageFrame.Visible = False
Me.ImageFrame.Picture = ""
End Sub

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

46 دقائق مضت, alhinai said:

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

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

17 دقائق مضت, alhinai said:

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

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

8 دقائق مضت, ابو ياسين المشولي said:

اكيد يعطي نفس النتيجه

اهم شب الاسم بالنموذج مطابق للاسم 

Me![ImagePath]

 

أشكرك من كل قلبي أخي أبو ياسين بإذن الله سأعمل بهذا في قاعدة البيانات التي أنوي عملها عما قريب.

منذ ساعه, jjafferr said:

السلام عليكم

 

اجريت بعض التعديلات على الكود ، فرجاء حذف الكود القديم واستعمال هذا الكود

Private Sub cmdAdd_Click()
Dim strFilter As String
   Dim lngflags As Long
   Dim varFileName As Variant

'   strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
'    & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
    
   strFilter = "jpg" & vbNullChar & "*.jpg" _
    & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"

   lngflags = tscFNPathMustExist Or tscFNFileMustExist _
              Or tscFNHideReadOnly
   
   varFileName = tsGetFileFromUser( _
                 fOpenFile:=True, _
                 strFilter:=strFilter, _
                 rlngflags:=lngflags, _
                 strDialogTitle:=" الرجاء اختيار ملف ")
   
   If IsNull(varFileName) Then
      Me.ImagePath.Visible = False
      Me.ImageFrame.Visible = False
      Me.ImageFrame.Picture = ""
   Else
      Me![ImagePath] = varFileName
      Me.ImagePath.Visible = True
      Me.ImageFrame.Visible = True
      Me.ImageFrame.Picture = Me.ImagePath
   End If

cmdAdd_End:
   On Error GoTo 0
   Exit Sub

cmdAdd_Err:
   Beep
   MsgBox Err.Description, , "Error: " & Err.Number _
    & " in file"
   Resume cmdAdd_End
DoCmd.Requery
End Sub


Private Sub Form_AfterUpdate()
On Error Resume Next
Me![ImageFrame].Picture = Me![ImagePath]
End Sub

Private Sub Form_Current()
On Error GoTo err_Form_Current
'On Error Resume Next

    Me![ImageFrame].Picture = Me![ImagePath]
    
Exit Sub
err_Form_Current:

    If Err.Number = 2220 Or Err.Number = 13 Then
        Me.ImagePath.Visible = False
        Me.ImageFrame.Visible = False
        Me.ImageFrame.Picture = ""
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

 جعفر

968.AddPhoto.mdb.zip

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

أشكرك أخي أبو ياسين لكن سؤال إذ تكرمت أين سأضع هذا الكود عند حذث عند النقر أم أين.

52 دقائق مضت, ابو ياسين المشولي said:

عند تحميل ملفك

هل انت قمت بحذف الملف

؟

 

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=147003

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

تم تصحيح الوضع وإعادة الملف المرفق بالمشاركة الأولى.

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

1 دقيقه مضت, nogom said:

انت تريد حفظ الصورة بقاعدة البيانات نفسها او خارجها

 

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

image pro.rar

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

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

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

AddPhoto.rar

47 دقائق مضت, أبو آدم said:

أخي العزيز

أنواع الاجازات غير السنوية تختلف من دولة لاخرى

كما ان عدد الايام للاجازات السنوية و المرضية تختلف من دولة لاخرى و ربما اقترانا بعدد سنوات الخدمة

ما أرى ان تجعل لمسميات انواع الاجازات جدولا فرعيا

و ان يتم تسجيل جميع الاجازات لجميع الموظفين في جدول واحد 

و يتم تدقيق الاستحقاق و الرصيد ضمن نموذج مختار باستخدام الكودات او الاستعلامات

مجرد رأي من خبرة التعامل ...

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

7 ساعات مضت, أبو آدم said:

أخي العزيز

ساقدم لك بعض افكاري ... أنا ، وهي لك مجرد فكره ، او سؤال ...

لماذا كل هذه الجداول للاجازات ... كل سبب اجازة بجدول ؟

لماذا نخصص جدول للموظفين السابقين؟

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

يستحق الموظف إجازة سنوية لمدة 30 يوم خلال السنة.

يستحق الموظف إجازة طارئة 6 أيام خلال السنة ولا يحق للموظف ترحيل هذه الأيام للسنة التالية.

فأنا لا زلت في بداياتي لأتعلم الأكسس ولم أدرس برمجة من الأساس فأنتم ألمعلمين نستفيد من أفكاركم.

نعم أتفق معك بالإمكان ضم كل هذه الإجازات بجدول واحد (Master)

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

فلا يمنع من أن نستمع لأفكارك.

أعلم أنه هناك طرق أخرى  لهذا السبب طرحت موضوعي.

السلام عليكم  إخواني الكرام.

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

السلام عليكم اخواني الكرام بهذا المنتدى الكريم

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

قاعدة البيانات هذه تحتوي على:-

-          جداول بما تسمى بالماستر(Master) أقوم بتخزين البيانات المتكررة بالموظفين.

-          جداول بالبيانات الشخصية الموظفين.

-          جداول بالبيانات الوظيفية للموظقين.

-          جدول غياب الموظفين.

-          جدول الإجازات السنوية للموظفين.

-          جدول بيانات حساب البنك للموظفين.

-          جدول البلد والجنسيات (Master).

-          جدول الدورات التدريبية للموظفين.

-          جدول للمغادرين والمنهية خدماتهم.

-          جدول بيانات المرافقين للموظف.

-          جدول الوظيفة (Master).

-          جدول الدوائر (Master).

-          جدول الإجازات الطارئة للموظفين.

-          جدول الإجازات بدون أجر للموظفين.

-          جدول الشهادات (Master).

-          جدول صلة القرابة (Master)

-          جدول الديانة (Master).

-          جدول الإجازات المرضية للموظفين.

-          جدول المواقع (Master).

-          جدول الإجازات الخاصة.

-          جدول اللقب مثل ( الفاضل ، الفاضلة) Master

-          جدول الجزاءات التأديبية للموظف.

-          جدول فصيلة الدم (Master).

-          جدول نوع الجواز ( عادي دبلوماسي خاص) Master

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

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

نأمل من الأخوة الأعضاء ممن له الخبر في هذا الموضوع المشاركة بما لديه من علم  لنتعلم جميعا في هذا المنتدى الرائع.

ملاحظة : الجداول أعلاه قابلة للتعديل والإضافة أثناء التحليل.

HR.rar

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

C:\Users\user\Pictures\My Scans/1.jpg وقمت بإدراج هذا المسار بالجدول ظهرت أيضا رسالة التحذير وبعد النقر على موافق تظهر الصورة بالنموذج.

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

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

أريد كود أمر عند النقر يقوم  بعملية نسخ مسار الصورة من مجلد صور الموظفين ولصق المسار بحقل صورة الموظف بجدول الموظفين .