مشکل در اکسس پروجکت

[m-razavi]

باسلام
لطفاً در خصوص استفاده از recordset در اکسس پروجکت هر کدام از دوستان که می توانند با ذکر مثالی توضیح دهند.
باتشکر

[karmand]

strsql = "SELECT dbo.tbl_m_asli.nam_mov as mov FROM tbl_m_asli"
strsql = strsql & " WHERE (((tbl_m_asli.shift_) =N'" & Me.txt_shift & "') And ((tbl_m_asli.date_tajziyeh) =" & Me.txt_date_roz & ") And ((tbl_m_asli.username)=N'" & Me.txt_username & "'))"
strsql = strsql & " GROUP BY DBO.tbl_m_asli.nam_mov;"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open strsql, Application.CurrentProject.Connection, adOpenForwardOnly, adLockPessimistic
tedad = rs.RecordCount
rs.MoveFirst
For myloop = 1 To tedad
Me.mynammov = rs.Fields("mov")
DoCmd.OpenReport stDocName, acViewNormal
rs.MoveNext

[m-razavi]

جناب کارمند از راهنماییتون خیلی ممنون
مشکلی که 3-4 روز منو درگیر خودش کرده بود حل شد.
متشکر