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

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

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

New Microsoft Access Database.accdbFetching info...

[أبوبسمله]

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

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

بالتوفيق

NewUPDate.accdbFetching info...

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

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

[أبوبسمله]

  في 18‏/3‏/2023 at 10:37, ابو هاله النبلسي said:

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

Expand  

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

بالتوفيق

[ابوخليل]

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

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

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

 

[أبوبسمله]

  في 18‏/3‏/2023 at 10:58, ابوخليل said:

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

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

Expand  

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

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

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

الاساتذة الافاضل هل يمكن عمل تقرير عددي بعدد الحقول الي فيها تاريخ مثلا رقم 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.accdbFetching info...

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

  في 18‏/3‏/2023 at 19:30, ابوخليل 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

Expand  

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