Code:
Dim db As DAO.TableDef
Dim newbuild As String
newbuild = InputBox("Please enter the database build:")
For Each db In CurrentDb.TableDefs
If Len(db.Connect) > 0 Then
Dim db As DAO.TableDef
Dim newbuild As String
newbuild = InputBox("Please enter the database build:")
For Each db In CurrentDb.TableDefs
If Len(db.Connect) > 0 Then
set rstemp = dbo.OpenRecordSet("SELECT * FROM NEWTABLE WHERE ID=" & rs![ID])
With rstemp
For Each FLD in rstemp.Fields
strname = "OBJ" & r
if FLD.Name = strname then
set rstemp = dbo.OpenRecordSet("SELECT * FROM NEWTABLE WHERE ID=" & rs![ID])
For Each FLD in rstemp.Fields
strname = "OBJ" & r
if FLD.Name = strname then
r = r + 1
if Len(FLD.Value) > 0 then
z = z + 1
End if
End if
Next
set rstemp = Nothing
ID NAME OBJ1 1 Billy 2 Bobby
DB.Execute "INSERT INTO NEWTABLE (Record1) VALUES(" & chr$(34) & NZ(rs![oldtext],"") & chr$(34) & ")"
DB.Execute "INSERT INTO NEWTABLE (Record1) VALUES('" & rs![oldtext] & "')"
Public Function TemplateForm() As String Dim rst As ADODB.Recordset Dim ctl As Control Dim
Leave a comment: