اظهار dlast لحقل بناءا على قيمة حقل اخر

[Ibrahim_samaha]

لو عندى قاعدة بيانات مرضى ولكل مريض رقم ملف وايضا رقم زيارات كيف اجعل فى التكست بوكس فى الفورم لو وضعت رقم الملف ياتى لى   +١ برقم الزيارة فى حقل اخر 

 

 

[د.كاف يار]

استخدم DMax

DMax ( expression, domain, [criteria] )

ففي حالة انك تريد استكمال لسلسلة الأرقام لديك في الجدول استخدم التالي

expression >>>> المعيار او اسم حقل الترقيم
domain >>>> اسم الجدول
Nz(DMax ( expression, domain),0)+1

 

[Ibrahim_samaha]

On 12/3/2021 at 6:11 AM, د.كاف يار said:

استخدم DMax

DMax ( expression, domain, [criteria] )

ففي حالة انك تريد استكمال لسلسلة الأرقام لديك في الجدول استخدم التالي

expression >>>> المعيار او اسم حقل الترقيم
domain >>>> اسم الجدول
Nz(DMax ( expression, domain),0)+1

 

شكرا لمجهودك اخى الكريم ولكن يصعب على الامر

فى الصور المرفقة

اريد لما اكتب رقم الملف فى فورم ال
examination
فى مربع ملف المريض


ياتى لى باخر زيارة +1
فى رقم الزيارة

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

 

[Hamdi Edlbi-khalf]

مرحباً

في البداية لا ينصح باستخدام الدالة Dlast، كونها تستدعي القيمة من آخر سجل وقد يصدف أن يضطر مدخل البيانات إلى استدراك بيانات مفقودة، هناك عدة طرق لعمل المطلوب الأولى بالكود الذي تفضل به الأستاذ كاف يار، الثانية:

Sub BtnDmax()
On Error Resume Next
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim SqlStr As String
Dim X As Integer
Set db = CurrentDb
SqlStr = "SELECT Examination.[File number], Max(Examination.[visit number]) AS [MaxOfvisit]" & _
"FROM Examination where [File number] = " & Val([Forms]![Examination]![NumFile]) & " GROUP BY Examination.[File number];"

Set Rst = db.OpenRecordset(SqlStr)

 X = Rst![MaxOfvisit]+ 1
[Forms]![Examination]![NewVisit] = X 
End Sub

ضع الكود في حدث بعد التحديث لحقل رقم الملف AfterUpdate 

مسميات الحقول في الكود افترضتها، ما عليك سوى تغييرها وفقاً لنموذجك.

تم تعديل يناير 18, 2022 بواسطه Khalf

[Eng.Qassim]

كود الاستاذ @Khalfفي ملف للفائدة

visitN.accdb

[Ibrahim_samaha]

ممتاز جدا.. جزاكم الله خيرا..
مش عارف اشكركم ازاى