Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 550
  • Last Modified:

Visual Basic -- MSFlexGrid

Hi,
I'm using MSFlexGrid to display my MS Access table on the screen.
Previously I have only 5 columns. I have added one more column [Status] but having the run time error when I execute the program.
"[Microsoft][ODBC MS Access Driver] Circular reference caused by alias "status" in query defination 's SELECT list."

And here is my code:-

With cmd_daily
    .ActiveConnection = conn
    .CommandText = "select TranDate as [Rework Date],Section as Location,modelno as [Model],serialno as [Serial Number],wo as [Remarks], Status as [Status] from serial_tracking_tbl where format(trandate,'short date') = ?" & " order by trandate desc"
    .CommandType = adCmdText
Set dateParam = .CreateParameter("date", adDate, adParamInput)
    .Parameters.Append dateParam
    dateParam.Value = Format(txtdate.Text, "short date")
   
Set rs_daily = .Execute()
End With

With DailyFlx
    .Clear
    .Cols = 6
    .ColWidth(0) = 2000
    .ColWidth(1) = 2800
    .ColWidth(2) = 2000
    .ColWidth(3) = 2100
    .ColWidth(4) = 3200
    .ColWidth(5) = 1000
End With


Anyone can help?

THanks
HCLim
0
hclim
Asked:
hclim
1 Solution
 
cwkhangCommented:
mayb caused by Status as [Status]
try not using the 'status' as alias

gd luck
0
 
hclimAuthor Commented:
I have tried before to change "status" to other name, but still failed.
I believe someting to do with the query in order to add additional column.
Thanks & Regards
HCLim
0
 
rsripracCommented:
Could you try:

[Status] as [Status]

instead of:

Status as [Status]

-Ram
0
 
rsripracCommented:
'status' is possibly a resurve word, so its having issues I think.  if the about don;t work try:

[Status] as [Foo Bar]

And see if that works, if so, its a compound problem of both recursive reference and reserve words.

-Ram
0
 
StimphyCommented:
If that dont work try this

   .CommandText = "select TranDate as [Rework Date],Section as Location,modelno as [Model],serialno as [Serial Number],wo as [Remarks], serial_tracking_tbl.Status as [TheStatus] from serial_tracking_tbl where format(trandate,'short date') = ?" & " order by trandate desc"

Regaurds,
Dave
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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