''затем программно
dim s1,kp
s1="delete * from rab1"
currentdb.execute s1
''затем циклом по вашей таблице
kp=0
for each fld in tab1.field
kp=kp+1
if kp>1 then
s1="insert into rab1( f0,key,val)
s1=s1 & " select f0,'" & fld.name & "'," & fld.name & "  from tab1"
currentdb.execute s1
endif
next fld

Option Compare Database
Option Explicit


Public Sub mm170905()
''затем программно
Dim s1, kp
Dim fld As DAO.Field
Dim dbs As DAO.Database
s1 = "delete * from rab1"
CurrentDb.Execute s1
''затем циклом по вашей таблице
kp = 0
Set dbs = CurrentDb
For Each fld In dbs.TableDefs("tab1").Fields
kp = kp + 1
Debug.Print kp, fld.Name
If kp > 1 Then
s1 = "insert into rab1( f0,key,val)"
s1 = s1 & " select f0,'" & fld.Name & "'," & fld.Name & "  from tab1"
Debug.Print " select f0,'" & fld.Name & "'," & fld.Name & "  from tab1"

CurrentDb.Execute s1
End If
Next fld
End Sub