احتاج كود برمجى لتحديث حقل

Abo_Yossof كتب:

 

جرب هذا الكود

If Me.month = 1 Then
   Me.newsal = Nz(DLookup("fixessal", "emp", "[empid]=" & Me.empid & " AND [month]=12 AND [year]=" & Me.year - 1), "")
 Else
  Me.newsal = Nz(DLookup("fixessal", "emp", "[empid]=" & Me.empid & " AND [month]=" & Me.month - 1 & " AND [year]=" & Me.year), "")
End If

استاتذنا الكريم ابو يوسف اكرمك الله على استجابتك لى على سؤالى وبالفعل جربت الكود ونفذته على النموذج واستخرج النتائج صحيحة واسمح لى لعمل اضافة لتنفيذ ذلك على كل سجلات النموذج دفعة واحده لعلها تفيد من يقرا تلك المشاركة ويستفيد من علم سيادتكم ، زادكم الله علما وفضلا ، والكود بعد الاضافة كما يلى :

For i = 0 To Me.RecordsetClone.RecordCount - 1

If Me.month = 1 Then

   Me.newsal = Nz(DLookup("fixessal", "emp", "[empid]=" & Me.empid & " AND [month]=12 AND [year]=" & Me.year - 1), "")

 Else

  Me.newsal = Nz(DLookup("fixessal", "emp", "[empid]=" & Me.empid & " AND [month]=" & Me.month - 1 & " AND [year]=" & Me.year), "")

End If

DoCmd.GoToRecord , , acNext

Next i

DoCmd.GoToRecord , , acFirst

End Sub

استاذنك استاذى فى سؤال اخير :

كنت ارغب ان اعرف كيف يتم ذلك عن طريق ADO او DAO لو امكن لك فلا اريد ان اثقل عليكم بارك الله فيكم واجدد شكرى ثانية الف الف شكر .. عبدالحميد نصر

اخي عبدالحميد

جرب هذا الكود الخاص بـ DAO (انا لم اجربه :( ):

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Select * From emp")


For i = 0 To Me.RecordsetClone.RecordCount - 1

If Me.Month = 1 Then
rst.FindFirst "[empid]=" & Me.empid & " AND [month]=12 AND [year]=" & Me.Year - 1
Else
rst.FindFirst "[empid]=" & Me.empid & " AND [month]=" & Me.Month - 1 & " AND [year]=" & Me.Year
End If

Me.newsal = rst!fixessal

DoCmd.GoToRecord , , acNext
Next i

rst.Close: Set rst = Nothing

DoCmd.GoToRecord , , acFirst

جعفر