عبد الفتاح كيرة

تمام

ظهرت الرؤيا

وفقكم الله

لكن هذا الحقل حقل العام

يبدو أنه حقل ممسوس

لأنى بعد أن حولته إلى حقل رقمى

بقيت فيه آثار من النصية

أفسدت الربط

كان يجب حذفه و عمله من جديد

ما رأيك

هل هذا ممكن الحدوث

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

rep_year الى Val([rep_year]) فيصبح الكود i = DMax("Val([rep_year])", "report", "emp_id=" & x)

كلامك على راسي معلمنا

تنبيه بسيط لحضرتك

أنا حملت ملف أبوخليل والكود فيه معدل كما ذكرت مع الدالة Val

مع الشكر

وكنت أود من حضرتكم

شرح عملية الربط مع تكرار نفس الجدول

و أى معلومات حولها

وما الاحتياطات التى تراعى عند تكرار الجدول فى الاستعلام

وما سبب الرسالة التى تأتى بأنه

لا يوجد تطابق فى النوع فى التعبير

بارك الله فى أستاذنا و معلمنا @ابوخليل

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

و العكس صحيح

أرجو مراجعة فكرتى فى الحل

الفاضل @ابوخليل

مهمتنا الرد على السائل

ويتحمل هو مسئولية نتائج التطبيق

و للسائل أقول

ماذا تعنى كلمة تحديث فى أكسيس

إنها تعنى تغيير بيانات حقول معينة

فكيف يكون تحديث جدول كامل

لو كنا سنحدث جدولا بكامله

فالأولى استبداله بجدول جديد

مثلا

نحدث جدول الطلاب لحقل الصف

لنقلهم من صف لصف أعلى

و ما الفرق

النتيجة واحدة

التحديث معناه تغيير فى قيمة حقل أو أكثر من الحقول (الموجودة)

15 ساعات مضت, ابوخليل said:

ii = DMax("rep_year", "report", "emp_id=" & x) - 1

الكود يعمل بكفاءة بشرطين  @ابوخليل

الأول : أن تكون آخر سنتين متتابعتين و إلا لن يجد القيمة الموجودة فى الاقتباس

الثانى : ألا يكون للموظف تقرير واحد و هذا وارد (موظف جديد)

عليكم السلام

جعلت معرف الرسالة فى الجدول المحدث مفتاحا أساسيا

كى لا يتكرر إلحاق نفس الرسالة

كود نحديث جدول.rar

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

لماذا استخدمت  دالة int  هنا ، مع أن الرقم صحيح

أخى  @jjafferr    لم أحصل على إجابة على هذا السؤال

دالة  int  للحصول على الرقم الصحيح من رقم به أرقام عشرية

مثلا   23.265 

تعطينا

23

وفقكم الله

سؤال للأستاذ @jjafferr  

لماذا استخدمت  دالة int  هنا

مع أن الرقم صحيح

وقد تم تحويل النث إلى رقم باستخدام  val

و شكرا لكم

و حبذا لو شرحت لنا ما تم بعد ذلك من ربط الاستعلامات

وفقكم الله

وفقك الله

جارى التنزيل و الدراسة

المطلوب السنتان الأخيرتان أيا كانا

يتغير ذلك سنويا

و مع ذلك فقد توصلت لحل بسيط جدا

يتطلب إضافة واحدة

و هى 

حقل فى جدول REPORT

يسجل فيه رقم تقرير الموظف

يعنى رقم داخلى غير الرقم العام المسلسل

كما بالصورة 

بعد ذلك نستخدم هذا الحقل فى شرط فى استعلام التحديث

DLookUp("[REP]";"REPORT";"[EMP_ID]=" & [EMP_ID] & "AND [EMP_TAQNO]=" & DCount("[EMP_ID]";"REPORT";"[EMP_ID]=" & [EMP_ID]))

و مفادها

البحث عن القيمة فى حقل REP  بالجدول REPORT بحيث

أولا : تساوى رقم الموظف

ثانيا : رقم تقرير الموظف = عدد تقاريره التى حصل عليها (هذا لتقرير العام الحالى

و عدد تقارير الموظف -1   و هذا لتقرير العام السابق

و نبتعد عن التواريخ غير المنضبطة

هاكم الملف بعد التعديل

655keraFINAL.db1.rar

وشكرا لتعاونكم

المرفق مختلف عن الملف فى أول مشاركة

أنت لها     أنت لها @shivan

باقى استعلام تحديث للجدول employees

23 دقائق مضت, Shivan Rekany said:

 اذا تريد ان تحصل الى احدث سجل انت ستحتاج حقل اخر وهو حقل الان اي NOW

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

المطلوب أحدث سجلين اثنين

9 دقائق مضت, ساره عبدالمنعم said:

المطلوب اخر سنتان ايا كانت نحن الان فى سنه 1917  يكون المطلوب تقرير 1916 -1917

السنه القادمه يكون المطلوب هما تقرير 1917- 1918 وهكذا

مع شكرى لحضرتك استاذ عبدالفتاح

نعم أدرك أن هذا ليس هو المطلوب

لكن قد يحتاجه آخرون

أما الحصول على آخر سجل (سجل واحد)

فهو مطلب معتاد

أما الحصول على أحدث سجلين

فقد بحثت كثيرا عنه فلم أجده

و أتمنى أن يتحفنا  أستاذنا جعفر بما لديه

فيكون هذا إنجازا عظيما

وفقكم الله

لدينا حالة مشابهة

 هى جدول درجات الموظف

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

و نريد جلب آخر درجتين إلى جدول بيانات الموظف

حيث يطلب دائما

الدرجة الحالية

الدرجة السابقة

جزاك الله خيرا

ذكرتنى ببرنامج لى قديم

استخدمت فيه هذه الملفات أو مثلها

Holy_Quran.rar

افترضت - على غير المطلوب- أن 

المطلوب سنتان محددتان هما 1916 - 1917

و هذا المرفق

ربما يحتاجه أحد غير الأخت السائلة

655kera.db1.rar

هل هذه النتيجة صحيحة

شكرا للإفادة

جربت هذا و نجح معى

If IsNull(Me.txtProject) Then
    Me.subRealisation.Form.Filter = ""
    Me.subRealisation.Form.FilterOn = False
    Else
    Me.subRealisation.Form.Filter = "[Project]= '" & Me.txtProject & "'and Repères ='" & Me.txtMarkItem & "'"
    Me.subRealisation.Form.FilterOn = True
End If

ضعه فى حدث بعد التحديث لكل من

xtProject

txtMarkItem

@Shivan Rekany  شكرا لك

3 ساعات مضت, Shivan Rekany said:

حسب معلوماتي

5 ساعات مضت, عبد الفتاح كيرة said:

DoCmd.DoMenuItem acFormBar

ان تم الايقاف هذه الطريقة منذ سنة 2000

وتم تبديله ب هذه الاسلوب

لدى برنامج كنترول يستخدم هذه الأوامر 
وهى تعمل بكفاءة

السلام عليكم

مازلنا نتعلم فى أركان هذا الصرح التعليمي

جزى الله خيرا القائمين عليه

ما الفرق بين

DoCmd.RunCommand acCmdFind

و

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

لتنفيذ أمر واحد و هو فتح نافذة البحث فى أكسيس

هل هناك ميزة لاستخدام  runcommand  بثوابتها الكثيرة

وفقكم الله

رأيت بعض البرامج معظم أكوادها ب  runcommand

هذا موقع متخصص فقط فى ثوابت و أكواد runcommand

http://access.mvps.org/access/RunCommand/list/listf.htm

و جزاكم الله خيرا

ضع شرطك بجوار  

 =Do Until yourfield 

شكرا 

وفقكم الله

رائع و الله

وظيفة مفيدة جدا

كود التعديل

استبدل الأسماء

Dim dbsNorthwind As DAO.Database
Dim rstEmployees As DAO.Recordset

   Set dbsNorthwind = CurrentDb
   Set rstEmployees = dbsNorthwind.OpenRecordset("Employees")

   rstEmployees.MoveFirst
   Do Until rstEmployees.EOF
      If rstEmployees!Title = "Sales Representative" Then
         rstEmployees.Edit
         rstEmployees!Title = "Account Executive"
         rstEmployees.Update
      End If
      rstEmployees.MoveNext
   Loop