• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 176
  • Last Modified:

Macro in Visual Basic


I have a problem regarding macro which i described
below.Here i retrieve fieldname from array.
e.g.-> "SR_NO" is fieldname


Dim TempStoreNumber As Integer
Dim NumberOfArray As Integer
dim rsiled as recordset

For TempStoreNumber = 0 To NumberOfArray
 With rsiled
  X1 = "!" + TempArrayfieldname(TempStoreNumber)
  MSFlexGrid1.TextMatrix(1,TempStoreNumber) = " " & X1 & " "
 End With

 1) I got x1 = "!SR_NO"  
 2) I got msflexgrid1.textmatrix(1,TempStoreNumber)="!SR_NO"            

Both are same.Actually in first point i got correct value(field name).
But in second point i want value of that value(means fieldname's value).

I want the value of "SR_NO" (Fieldname of a table) from table.
which i want to pass in msflexgrid which i mentioned below.

   msflexgrid1.textmatrix(1, TempStoreNumber) =

Please reply us with full coding.

with warm regards,
Bhavesh Patel
1 Solution
You may want to delete this question.  It has been posted twice!
It's not going to work. The field name is being interpritted as a string and *NOT* as a field reference.

Set db = Workspaces(0).OpenDatabase(datadir)
For Each Table In db.TableDefs
    work = Table.Name
    If UCase(Left(work, 4)) <> "MSYS" Then Combo1.AddItem Table.Name
Next Table
Data1.Caption = datadir
Data1.DatabaseName = datadir           'set link to database
Combo1.ListIndex = 0
Set Data1.Recordset = db.OpenRecordset(Combo1.Text) ' Defaults to Table object.

For Each td In db.TableDefs
For Each fd In td.Fields
        Printer.Print fd.Name
Next fd
next td

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now