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

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

قام بنشر

السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بكل خير  

السؤال  بشكل واضح في المرفق 

 " مرفق مثال "

‫‫father_6.mdb

قام بنشر

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

لو تتذكر كنت اخبرتك ان هذه الطريقة ستدخلك في متاهات كثير

عموماً

تفضل

  On Error Resume Next
  Fr = Null
  Fr = DLookup("مسلسل", "people", "مسلسل =" & text)
  On Error GoTo 0
  If (IsNull(Me![Fr])) Then
  Me![ok] = False

::بالتوفيق::

إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

__father_66-906.mdb

  • Like 1
  • Thanks 1
قام بنشر

السلام عليكم ورحمة الله   
ماشاء الله لاقوة الا بالله 
اخي الفاضل kaser906

لك مني جزيل الشكر تم بفضل الله ثم بفضلك 

نور الله دروبك وزادك علما ونفع بك 

:fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff:

قام بنشر (معدل)

السلام عليكم ورحمة الله   
 
اخي الفاضل kaser906

فعلا كلامك صحصح لقد تعرضت لعدة مشاكل وهـــي

اولا: قمت بتغيير الرقم التسلسلي الى ترقيم تلقائي 

 ( ثانيا حذفت جميع السجلات ولاحظت عند الفتح مرة ثانية يفتح البرنامج  سجل جديد تلقائي ياخذ الرقم   1   ( دون تدخل مني 

أي أن البرنامج يفترض أن يفتح السجلات على ( ترقيم تلقائي ) ولكن يفتح على سجل رقم 1

ثالثا اصبح البرنامج يفتح سجلات متتالية  حتى ولو لم يتم ادخال بيانات فيها
...........................................................................................................

( فإذا كان لديك حل أخر تكرمنا به ولك مني جزيل الشـكر   ( على كل حال

:fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff:

 

kaser1.png

تم تعديل بواسطه AboSaad17
إضافة
قام بنشر (معدل)

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

اذا نرجع للمربع الاول

الحل

بعمل جدول للأباء  وجدول أخر مستقل للأبناء

::بالتوفيق::

تم تعديل بواسطه kaser906
  • Thanks 1
قام بنشر (معدل)

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

اخي الفاضل kaser906

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

If [aa] > 0 And

وكانت النتائج ناجحة ولله الحمد 
 أكرر شكري لك 

ولا أستغني عن رأيك في الحل 

:fff::fff::fff::fff::fff::fff::fff::fff::fff::fff::fff:

 

 

Kaser.jpg

تم تعديل بواسطه AboSaad17
إضافة
  • Like 1
قام بنشر
8 ساعات مضت, AboSaad17 said:

لا أستغني عن رأيك في الحل 

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

بما أنك وصلت الى ما تريد فهذا هو المطلوب

::بالتوفيق::

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