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

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

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

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

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

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

ايظـــاً

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

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

موقف طبي.rarFetching info...

[Eng.Qassim]

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

تفضل اخي 

موقف طبي.rarFetching info...

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

  في 22‏/1‏/2025 at 06:31, Eng.Qassim said:

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

تفضل اخي 

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

Expand  

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

الحركة الاولى جيدة جدا عند وجود صورة يحذف ملاحظات 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

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

  في 22‏/1‏/2025 at 17:05, 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

 

Expand  

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

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

[Eng.Qassim]

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

 

 

Database.accdbFetching info...

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

  في 22‏/1‏/2025 at 17:20, Eng.Qassim said:

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

 

 

Database.accdb 668 kB · 0 downloads

Expand  

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

Database.accdbFetching info...

[Eng.Qassim]

في خصائص ال Image

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

 

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

  في 22‏/1‏/2025 at 17:28, Eng.Qassim said:

في خصائص ال Image

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

 

Expand  

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

[Eng.Qassim]

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

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

  في 22‏/1‏/2025 at 17:38, Eng.Qassim said:

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

Expand  

تفضل

[Eng.Qassim]

سنحاول try & error

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

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

 

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

  في 22‏/1‏/2025 at 17:50, Eng.Qassim said:

سنحاول try & error

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

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

 

Expand  

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

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

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

 

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

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

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

ايظـــاً

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

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

موقف طبي.rarFetching info...

[Eng.Qassim]

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

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

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

 

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

  في 22‏/1‏/2025 at 18:52, Eng.Qassim said:

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

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

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

 

Expand  

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

[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

 

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

  في 22‏/1‏/2025 at 19:10, Eng.Qassim said:

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

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

 

Expand  

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

[Foksh]

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

[ابوخليل]

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

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

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

جرب كذا

Data2.rarFetching info...

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

  في 22‏/1‏/2025 at 19:12, 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

 

Expand  

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

[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)")

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

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

  في 22‏/1‏/2025 at 19:18, ابوخليل said:

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

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

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

جرب كذا

Data2.rar 21.47 kB · 0 downloads

Expand  

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

  في 22‏/1‏/2025 at 19:20, 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)")

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

Expand  

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

[ابوخليل]

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

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

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

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

Data3.rarFetching info...