طلب تصحيح كود إدراج صورة موظف

alhinai · سبتمبر 5, 2018

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

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

AddPhoto.rar

تم تعديل سبتمبر 5, 2018 بواسطه alhinai

nogom · سبتمبر 5, 2018

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

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

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

AddPhoto.rar

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

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

image pro.rar

تم تعديل سبتمبر 5, 2018 بواسطه nogom

alhinai · سبتمبر 5, 2018

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

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

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

image pro.rar

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

تم تعديل سبتمبر 5, 2018 بواسطه alhinai

nogom · سبتمبر 5, 2018

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

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

اخي الملف المرفق يوجد ملفين

الملف اسمو image pro

نفس طلبك

يقوم بحفظ المسار بالجدول وعرض الصورة في ايطار

هل هذا طلبك

تم تعديل سبتمبر 5, 2018 بواسطه nogom

alhinai · سبتمبر 5, 2018

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

**ابو ياسين المشولي** · سبتمبر 5, 2018

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

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

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

AddPhoto.rar

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

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

؟

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

تم تعديل سبتمبر 5, 2018 بواسطه ابو ياسين المشولي

alhinai · سبتمبر 5, 2018

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

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

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

؟

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

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

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

**ابو ياسين المشولي** · سبتمبر 5, 2018

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

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

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

جرب هذا

Dim strFilter As String
   Dim lngflags As Long
   Dim varFileName As Variant

   strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
    & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
    
   lngflags = tscFNPathMustExist Or tscFNFileMustExist _
    Or tscFNHideReadOnly
   
   varFileName = tsGetFileFromUser( _
   fOpenFile:=True, _
   strFilter:=strFilter, _
   rlngflags:=lngflags, _
   strDialogTitle:=" ÇáÑÌÇÁ ÇÎÊíÇÑ ãáÝ ")
   
   If IsNull(varFileName) Then
    Else
      Me![ImagePath] = varFileName
DoCmd.GoToRecord , , acLast

DoCmd.GoToRecord , , acNext

   End If

cmdAdd_End:
   On Error GoTo 0
   Exit Sub
cmdAdd_Err:
   Beep
   MsgBox Err.Description, , "Error: " & Err.Number _
    & " in file"
   Resume cmdAdd_End
Me.Refresh

alhinai · سبتمبر 5, 2018

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

تم تعديل سبتمبر 5, 2018 بواسطه alhinai

**ابو ياسين المشولي** · سبتمبر 5, 2018

4 ساعات مضت, alhinai said:

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

الكود هو نفس كود فقط اضفت له هذا

DoCmd.GoToRecord , , acLast

DoCmd.GoToRecord , , acNext

**jjafferr** · سبتمبر 5, 2018

السلام عليكم :smile:

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




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

alhinai · سبتمبر 5, 2018

منذ ساعه, jjafferr said:

السلام عليكم :smile:

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





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

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

**ابو ياسين المشولي** · سبتمبر 5, 2018

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

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

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

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

Me![ImagePath]

alhinai · سبتمبر 5, 2018

8 دقائق مضت, ابو ياسين المشولي said:
اكيد يعطي نفس النتيجه

اهم شب الاسم بالنموذج مطابق للاسم
Me![ImagePath]

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

alhinai · سبتمبر 5, 2018

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

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

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

**ابو ياسين المشولي** · سبتمبر 5, 2018

Me.[اسم مسار الصور].Visible = False
غير مسار الصورة حسب ماهو مسمى عندك

**jjafferr** · سبتمبر 5, 2018

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

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

اضف السطر باللون الاحمر لإظهاره

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

    Me![ImageFrame].Picture = Me![ImagePath]
    Me.ImagePath.Visible = true

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

اما اذا لم تريد اظهاره ابدا ، فقم بحذف جميع الاسطر التي بها هكذا كود:

Me.ImagePath.Visible

جعفر

alhinai · سبتمبر 5, 2018

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

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

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

**jjafferr** · سبتمبر 5, 2018

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

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

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

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

جعفر

alhinai · سبتمبر 6, 2018

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

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

**jjafferr** · سبتمبر 6, 2018

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

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

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

جعفر

alhinai · سبتمبر 6, 2018

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

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

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

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

جعفر

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

alhinai · سبتمبر 6, 2018

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

الكود يعمل بشكل جيد لكن أحتاج أضع كود التحديث.

تم تعديل سبتمبر 6, 2018 بواسطه alhinai

**jjafferr** · سبتمبر 6, 2018

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

13 ساعات مضت, 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

جعفر

alhinai · سبتمبر 6, 2018

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

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

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


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

تم تعديل سبتمبر 6, 2018 بواسطه alhinai

تسجيل الدخول

طلب تصحيح كود إدراج صورة موظف

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

alhinai

nogom

alhinai

nogom

alhinai

ابو ياسين المشولي

alhinai

ابو ياسين المشولي

alhinai

ابو ياسين المشولي

jjafferr

alhinai

ابو ياسين المشولي

alhinai

alhinai

ابو ياسين المشولي

jjafferr

alhinai

jjafferr

alhinai

jjafferr

alhinai

alhinai

jjafferr

alhinai

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information