اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابوبسمله,

الردود الموصى بها

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

New Microsoft Access Database.accdb

رابط هذا التعليق
شارك

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

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% ياغالي 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information