Solved

Visual Basic -- MSFlexGrid

Posted on 2004-08-30
5
525 Views
Last Modified: 2012-05-05
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
Comment
Question by:hclim
5 Comments
 
LVL 6

Expert Comment

by:cwkhang
Comment Utility
mayb caused by Status as [Status]
try not using the 'status' as alias

gd luck
0
 

Author Comment

by:hclim
Comment Utility
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
 
LVL 5

Expert Comment

by:rsriprac
Comment Utility
Could you try:

[Status] as [Status]

instead of:

Status as [Status]

-Ram
0
 
LVL 5

Expert Comment

by:rsriprac
Comment Utility
'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
 
LVL 3

Accepted Solution

by:
Stimphy earned 50 total points
Comment Utility
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

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

This is an explanation of a simple data model to help parse a JSON feed
Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now