How to Use For Next Loops in MS Access VBA

[@seanmackenziedataengineering]

Who is using For.. Next for the first time? Go for it!

[@imstevemcqueen]

Great examples as always with Sean

[@seanmackenziedataengineering]

Thanks!

[@seanmackenziedataengineering]

RsData is at 11:20

[@ballaomer6738]

please make a video to use for next loop with fields in continous forms to display all data in ms access actually needed ... regards

[@seanmackenziedataengineering]

Why don't you just set the RecordSource of the form to your table? It will display all the records. What you describe with For.. Next is not really a good way to do it. An alternative for some cases is to just make a temp table, then open your continuous form with that as the RecordSource.

[@mehdibakhtiari300]

Mr MacKenzie, RsData(StrSql, false) causes a compile error.

[@seanmackenziedataengineering]

That's because you will need that custom function. You can put this in your module to use it: Function RsData(strSQL, blnFieldNames) '**************************************************************** '*** Returns a simple array based on a recordset '**************************************************************** Dim db As Database Dim rstA As DAO.Recordset Dim arRs, lngRec Dim lngX, lngY, lngCol lngY = 255 lngRec = 0 Set db = CurrentDb Set rstA = db.OpenRecordset(strSQL, dbOpenSnapshot) lngX = rstA.Fields.Count ReDim arRs(lngX, lngY) If blnFieldNames Then lngRec = 1 For lngCol = 0 To lngX - 1 arRs(lngCol, 0) = rstA(lngCol).Name Next End If If rstA.EOF = False Then Do Until rstA.EOF For lngCol = 0 To lngX - 1 arRs(lngCol, lngRec) = rstA(lngCol) Next rstA.MoveNext lngRec = lngRec + 1 If lngRec > lngY Then lngY = lngY + 256 ReDim Preserve arRs(lngX, lngY) End If Loop ReDim Preserve arRs(lngX, lngRec) End If rstA.Close Set rstA = Nothing RsData = arRs End Function

[@arumugamramu645]

Pls help me, how to create the school student, classes wise strength Page report on ms access

[@seanmackenziedataengineering]

Thanks for your email! I'm not sure what you mean; could you tell me more?

[@arumugamramu645]

Pivot table type, we need page report. (Filter : Active and inactive) student strength report. Pls send me template

[@mshahneelsajid147]

I want to concatenate multiple rows id wise plz help me to achieve it

[@seanmackenziedataengineering]

You would like to concatenate ID numbers from several rows? You can do that by opening a query with your ID numbers, then concatenate them in a string as you loop through. kzbin.info/www/bejne/bXnGnIygfcSqnZY

[@mehdibakhtiari300]

Hoi , compile error with RsDate. What is the reason?

[@seanmackenziedataengineering]

It is probably RsData, not RsDate (the a at the end) 🛠

[@gerfer6261]

😀

[@seanmackenziedataengineering]

Thanks!