Edited 5 Years Ago
by PM312: call back
Enumerate field names in a recordset
Function getfieldnames(mytable As String)
Dim fld As Field
Dim dbf As Database
Dim rs As Recordset
Dim sql As String
Set dbf = CurrentDb()
Set rs = dbf.OpenRecordset(mytable, dbOpenDynaset, dbSeeChanges)
sql = ""
For Each fld In rs.Fields
sql = sql & fld.Name & ","
getfieldnames = Left(sql, Len(sql) - 1)
i tried below code and its working as i wanted
recordset.Fields(1).Name retrives the field name
I'm coding a program to learn OpenGL in C++ (based off of The Benny Boxes tutorials) and I've run into a snag where I don't get any errors, but my ...
I want to implement undo logic which deletes the last drawn shape. To test this logic i had cleared shapes list and redrawn all shapes but still last ...
Please tell me why triangle shape is redrawing on mouse move. It want triangle shape draw only once until mouse release.
Here is my code below. Thank you ...