تحديث عدة حقول في جدول من مربع نص من فوم المعيار حسب الاشهر

[ابو هاله النبلسي]

السلام عليكم المطلوب انه عند اضافة رقم الموظف في فورم  واضافة تاريخ 1-1-2023 يذهب التاريخ الى حقل شهر 1 وعند اضافة نفس رقم الموظف وبتاريخ 1-2-2023 يذهب التاريخ  الى حقل شهر2 وهكذا

New Microsoft Access Database.accdb

[ابوبسمله]

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

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

بالتوفيق

NewUPDate.accdb

[ابو هاله النبلسي]

احسنت بارك الله فيك هو المطلوب 

[ابوبسمله]

1 دقيقه مضت, ابو هاله النبلسي said:

احسنت بارك الله فيك هو المطلوب 

وفيك بارك الله اخى

بالتوفيق

[ابوخليل]

كنت اعمل على المثال وسبقني اخي ابو بسملة

ادرجها للفائدة

Dim rs As DAO.Recordset
Dim x As Integer
Set rs = CurrentDb.OpenRecordset("SELECT count_alawa.* FROM count_alawa WHERE count_alawa.id=" & [Forms]![form1]![id])
x = Month(txtDate)
rs.Edit
rs.Fields(x) = Me.txtDate
rs.Update
rs.Close: Set rs = Nothing

 

[ابوبسمله]

21 دقائق مضت, ابوخليل said:

كنت اعمل على المثال وسبقني اخي ابو بسملة

ادرجها للفائدة

انت سباق بكل خير شيخنا الجليل ابوخليل

ماشاء الله واحسن من كده مفيش معلمى العزيز وشيخنا الجليل ابوخليل تسلم ايدك 🌹

[ابو هاله النبلسي]

الاساتذة الافاضل هل يمكن عمل تقرير عددي بعدد الحقول الي فيها تاريخ مثلا رقم 1 هل يمكن حساب عدد الصف الي فيه بيانات تاريخ وشكرا

[ابوخليل]

تفضل

Public Function countMyDate(myId As Integer)
Dim rs As DAO.Recordset
Dim i, r As Integer
Set rs = CurrentDb.OpenRecordset("count_alawa")
rs.MoveFirst
Do While Not rs.EOF
For i = 1 To rs.Fields.Count - 1
If myId = rs!id Then
If Not IsNull(rs.Fields(i).Value) Then
r = r + 1
End If
End If
Next
countMyDate = r
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Function

 

db1.accdb

[ابو هاله النبلسي]

59 دقائق مضت, ابوخليل said:

تفضل

Public Function countMyDate(myId As Integer)
Dim rs As DAO.Recordset
Dim i, r As Integer
Set rs = CurrentDb.OpenRecordset("count_alawa")
rs.MoveFirst
Do While Not rs.EOF
For i = 1 To rs.Fields.Count - 1
If myId = rs!id Then
If Not IsNull(rs.Fields(i).Value) Then
r = r + 1
End If
End If
Next
countMyDate = r
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Function

 

db1.accdb 460 kB · 0 downloads

احسنت الاجابة صحيحة 100% ياغالي