Edited 6 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 am currently working on a program to track my mile for my monthly expense report for work. Everything is working great, however, I can not for the life of ...
I am trying to understand the SynchronizedMap and I ran the below code. I get the below Output with an exception. According to my understanding the exception is caused when ...
I am trying to make this form to clear after being submited. As it is now the form submits, however, the input fields do not clear and when ...