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

مساعدة في مربع تحرير وسرد


إذهب إلى أفضل إجابة Solved by ابوبسمله,

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

السلام عليكم 

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

XY.accdb

تم تعديل بواسطه ازهر عبد العزيز
رابط هذا التعليق
شارك

  • أفضل إجابة

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

اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد

Private Sub idx_NotInList(NewData As String, Response As Integer)
Dim strSql As String, x As Integer
    x = MsgBox("هذا الاسم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1)
    If x = vbYes Then
        strSql = "Insert Into tbx (x1) values ('" & NewData & "')"
        CurrentDb.Execute strSql
        Response = acDataErrAdded
    Else
       Response = acDataErrContinue
    End If
End Sub

بالتوفيق

XY.accdb

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

11 دقائق مضت, احمد الفلاحجي said:

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

اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد

بالتوفيق

 

استاذ المبدع  احمد الفلاحجي

جزاك الله كل خير على الرغم من اني وجدت الحل لكن حلك افضل جزيل الشكر  اخي وجعلة الله في ميزان حسناتك 

  • Thanks 1
رابط هذا التعليق
شارك

4 دقائق مضت, ازهر عبد العزيز said:

جزاك الله كل خير على الرغم من اني وجدت الحل لكن حلك افضل جزيل الشكر  اخي وجعلة الله في ميزان حسناتك 

واياكم اخى ازهر

وياريت تتفضل وترفق حلك الذى توصلت اليه لتعدد الحلول بارك الله فيك

رابط هذا التعليق
شارك

22 دقائق مضت, احمد الفلاحجي said:

واياكم اخى ازهر

وياريت تتفضل وترفق حلك الذى توصلت اليه لتعدد الحلول بارك الله فيك

بالتاكيد 

لكني لم استطيع اظهار رسالة التحذير  في حلي

XY.accdb

  • Like 1
  • 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