ايجاد اقرب قيمة

[اكرم العريقي]

موضح في المرفق المطلوب من ايجاد

القيمة الاقرب للقيمة المضافة في الحقل

new.rar

[أمير2008]

في حالة عندك أرقام 50 و 60

وأنت كتبت 55

فسوف يأتيك الأقرب للأعلى أولا ثم الأدنى

جرب المرفق

 

new2.rar

[اكرم العريقي]

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

[اكرم العريقي]

هناك مشكلة اخرى اخي مثلا اذا تكررت القيم مرتان او ثلاث لا احصل على القيمة

هكذا التكرار

54

60

72

54

60

72

 

[أمير2008]

بسيطة

اعمل تجميع (جروب)

استبدل الكود ب :

Option Compare Database
Option Explicit

Private Sub a_AfterUpdate()
Dim dbsNorthwind As DAO.Database
Dim rstProducts As DAO.Recordset
Dim strSQL As String

Set dbsNorthwind = CurrentDb
strSQL = "SELECT TOP 1 mm.mm FROM mm GROUP BY mm.mm ORDER BY Abs([mm]-" & Me.a & ");"
Set rstProducts = dbsNorthwind.OpenRecordset(strSQL)

rstProducts.MoveLast: rstProducts.MoveFirst


If Nz(rstProducts.RecordCount, 0) <> 0 Then
If rstProducts.RecordCount = 1 Then
rstProducts.MoveFirst
Me.b = rstProducts!mm
Me.c = ""
End If

If rstProducts.RecordCount = 2 Then
rstProducts.MoveFirst
Me.b = rstProducts!mm
rstProducts.MoveNext
Me.c = rstProducts!mm
End If

End If

End Sub

واذا كتبت رقم موجود بالجدول سيأتيك الرقم نفسه فقط

واذا كتبت كان يقع في منتصف رقمين فسوف تأتيك القيمين

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

 

[اكرم العريقي]

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

ن شاء الله اطبق عليه كثير من الامور الاخرى

واذا لم أفلح سيتم رفع مثال بتفاصيل

مطلوبه فيما بعد بالتوفيق للجميع