عند وجود صورة حذف قيمة في مربع نص

[محمد التميمي]

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

في المرفق لدي نموذج فيه زر امر بعنوان تحديث واطار كائن صورة (Image) ومربعي نص (Note1 و  Note1)

محتاج كود يعمل في زر تحديث كالاتي:

عند وجود صور في (Image) يقوم بحذق القيمة الموجودة في (Date2)

ايظـــاً

عند عدم وجود صورة في (Image) يقوم بحذف القيمة الموجودة في (Date1)

مع فائق الشكر والتقدير....

موقف طبي.rar

[Eng.Qassim]

وعليكم السلام ..

تفضل اخي 

موقف طبي.rar

[محمد التميمي]

2 ساعات مضت, Eng.Qassim said:

وعليكم السلام ..

تفضل اخي 

موقف طبي.rar 246.31 kB · 3 downloads

بارك الله بك اخي العزيز على سرعة المرور والاجابة

الحركة الاولى جيدة جدا عند وجود صورة يحذف ملاحظات 2  ... احسنت

لكن الحركة الثانية تحتاج تعديل  عند عدم وجود الصورة (لاتوجد صورة) اريده ان يحذف ملاحظات 1 ... هو الان يحذف مرحظات 2 ايظا ممكن تعديل

مع فائق الشكر والتقدير

[Eng.Qassim]

هو يحذف الملاحظة 1 عندي !!

ربما اصبح خطأ معين ... على كل حال الصق هذا الكود لديك 

Private Sub Command5_Click()
 On Error GoTo ErrorHandler

    If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then
        Me.Note1 = Null
    Else
        Me.Note2 = Null
    End If

    Exit Sub

ErrorHandler:
    MsgBox "An error occurred: " & Err.Description, vbCritical, "Error"
End Sub

 

 

تم تعديل يناير 22 بواسطه Eng.Qassim

[محمد التميمي]

7 دقائق مضت, Eng.Qassim said:

هو يحذف الملاحظة 1 عندي !!

ربما اصبح خطأ معين ... على كل حال الصق هذا الكود لديك 

Private Sub Command5_Click()
 On Error GoTo ErrorHandler

    If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then
        Me.Note1 = Null
    Else
        Me.Note2 = Null
    End If

    Exit Sub

ErrorHandler:
    MsgBox "An error occurred: " & Err.Description, vbCritical, "Error"
End Sub

 

السلام عليكم اخي الكريم   ازعجت اسف 

قمت بالصاق الكود ونفس الخطأ

[Eng.Qassim]

سارفع الملف بدون مجلد الصور

 

 

Database.accdb

[محمد التميمي]

2 دقائق مضت, Eng.Qassim said:

سارفع الملف بدون مجلد الصور

 

 

Database.accdb 668 kB · 0 downloads

نعم المجلد بدون الصور ولكن نفس الخطأ

Database.accdb

[Eng.Qassim]

في خصائص ال Image

هل لديك كما في الصورة؟

 

[محمد التميمي]

5 دقائق مضت, Eng.Qassim said:

في خصائص ال Image

هل لديك كما في الصورة؟

 

الاكسس الذي عمل عليه عربي 2013 ماذا تعني none

[Eng.Qassim]

ممكن تاخذ لي صورة لخصائص ال Image لديك

[محمد التميمي]

5 دقائق مضت, Eng.Qassim said:

ممكن تاخذ لي صورة لخصائص ال Image لديك

تفضل

[Eng.Qassim]

سنحاول try & error

جرب السطر التالي ..لان نسختي بالانكليزي 

If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Or Me.Image.Picture = "(بلا)"  Then

 

[محمد التميمي]

8 دقائق مضت, Eng.Qassim said:

سنحاول try & error

جرب السطر التالي ..لان نسختي بالانكليزي 

If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Or Me.Image.Picture = "(بلا)"  Then

 

اسف اخي نفس الموضع

[محمد التميمي]

اخواني اعيد الموضوع جزاكم الله الف خير

 

في المرفق لدي نموذج فيه زر امر بعنوان تحديث واطار كائن صورة (Image) ومربعي نص (Note1 و  Note1)

محتاج كود يعمل في زر تحديث كالاتي:

عند وجود صور في (Image) يقوم بحذق القيمة الموجودة في (Date2)

ايظـــاً

عند عدم وجود صورة  (لا توجد صورة) في (Image) يقوم بحذف القيمة الموجودة في (Date1)

مع فائق الشكر والتقدير....

موقف طبي.rar

[Eng.Qassim]

محاولة اخيرة....

ضع العلامة الحمراء كما مبين في الصورة ..واضغط على زر تحديث..واضغط على f8 ...ضع المؤشر كما في الصورة 

ماذا تظهر لك الجملة او السطر ؟

 

[محمد التميمي]

7 دقائق مضت, Eng.Qassim said:

محاولة اخيرة....

ضع العلامة الحمراء كما مبين في الصورة ..واضغط على زر تحديث..واضغط على f8 ...ضع المؤشر كما في الصورة 

ماذا تظهر لك الجملة او السطر ؟

 

لا تغيير في الموضوع

[Eng.Qassim]

طيب ..جرب هذا السطر

If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(لا يوجد)" Then

 

[Foksh]

مشاركة ، بعد إذن الأساتذة..

Private Sub YourSubName()
    On Error GoTo ErrorHandler

    If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Then
        Me.Novel = Null
    Else
        Me.Note2 = Null
    End If

    Exit Sub

ErrorHandler:
    MsgBox "An error occurred: " & Err.Description, vbCritical, "Error"
End Sub

 

[محمد التميمي]

2 دقائق مضت, Eng.Qassim said:

طيب ..جرب هذا السطر

If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(لا يوجد)" Then

 

عجيب اخي نفس الموضوع

[Foksh]

لم انتبه لردك استاذ @Eng.Qassim الا بعد اضافة ردي 🤦🏻‍♂️

[ابوخليل]

انا شغال عندي اول مثال للاستاذ قاسم

يحتاج فقط ضغط زر التحديث

فانا الغيت الزر

جرب كذا

Data2.rar

[محمد التميمي]

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

مشاركة ، بعد إذن الأساتذة..

Private Sub YourSubName()
    On Error GoTo ErrorHandler

    If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Then
        Me.Novel = Null
    Else
        Me.Note2 = Null
    End If

    Exit Sub

ErrorHandler:
    MsgBox "An error occurred: " & Err.Description, vbCritical, "Error"
End Sub

 

مع كل احترامي نفس الموضوع لايعمل

[Eng.Qassim]

طيب اخي ...لنجرب هذا الكود لقراءة picture property لديك

If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then
    
    MsgBox "Picture Property: " & Nz(Me.Image.Picture, "(Null)")

سوف تظهر لك رسالة لقراءة الخصائص ...بين لنا ماهي؟

[محمد التميمي]

2 دقائق مضت, ابوخليل said:

انا شغال عندي اول مثال للاستاذ قاسم

يحتاج فقط ضغط زر التحديث

فانا الغيت الزر

جرب كذا

Data2.rar 21.47 kB · 0 downloads

استاذ ابو خليل نفس لاتنحذف 

4 دقائق مضت, Eng.Qassim said:

طيب اخي ...لنجرب هذا الكود لقراءة picture property لديك

If IsNull(Me.Image.Picture) Or Me.Image.Picture = "" Or Me.Image.Picture = "(none)" Then
    
    MsgBox "Picture Property: " & Nz(Me.Image.Picture, "(Null)")

سوف تظهر لك رسالة لقراءة الخصائص ...بين لنا ماهي؟

نفس الموضوع استاذ قاسم ولم تظهر لي اي رسالة

[ابوخليل]

ههههه الله يكون بعون الجميع

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

جرب هذا .. اضفت مكتبة رئيسية

علما انه يعمل عندي بدونها

Data3.rar