well I got this to work,
not by the option group like I had hoped but by the way of multiple query buttons. each "option" now has a unique button that changes the rowsource of the listbox to support the user parameter.
thanks for the help
I have a doc that has a table with 4 columns and 50 rows, column 4 instructs the reader to go to Next Step?? or start reading at row ??.
Now there are additions/deletions of some action within the process so these steps change, not often but they do change.
as it is now, the table column one is...
Rick,
Thanks for your help pointing me in the new direction. it works beautifly.
here is the final code with many thanks to Rick Sprague!
Dim db As DAO.Database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("StatusHistory")
With rst
.AddNew
![OrderID] =...
Rick,
Thanks for your help pointing me in the new direction. it works beautifly.
here is the final code with many thanks to Rick Sprague!
Dim db As DAO.Database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("StatusHistory")
With rst
.AddNew
![OrderID] =...
Rick,
Thanks for your help pointing me in the new direction. it works beautifly.
here is the final code with many thanks to Rick Sprague!
Dim db As DAO.Database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("StatusHistory")
With rst
.AddNew
![OrderID] =...
Goal: create a status History table for Intervals
Reason: Status changes all the time, Need to track the interval in days that a order was within each status.
I have changed some object names to easier understand what I am trying to accomplish, here is what I have so far:
Running code...
Goal: create a status History table for Intervals
Reason: Status changes all the time, Need to track the interval in days that a order was within each status.
I have changed some object names to easier understand what I am trying to accomplish, here is what I have so far:
Running code...
Goal: create a status History table for Intervals
Reason: Status changes all the time, Need to track the interval in days that a order was within each status.
I have changed some object names to easier understand what I am trying to accomplish, here is what I have so far:
Running code...
...Set db = CurrentDb()
' Create a dummy QueryDef object.
Set qdf = db.CreateQueryDef("", "Select * from SIMSUpdate")
' Add a temporary field to the table.
qdf.SQL = "ALTER TABLE [" & TblName & "] ADD...
...db As Database
Dim qdf As QueryDef
Set db = CurrentDb()
' Create a dummy QueryDef object.
Set qdf = db.CreateQueryDef("", "Select * from Table1")
' Add a temporary field to the table.
qdf.SQL = "ALTER TABLE [" & TblName & "] ADD COLUMN AlterTempField...
Goal - Pull data from Production DB and populate fields in an Operations DB.
First determine Orders to pull. so I created a Union Query to get a list of Orders.
Pull Data From Production. built a query using the Union query to pull three fields, Date1, Date2, Text1
I need to send this...
can't figure this one out.
this code works to archive when the tables are local. However I need this to be a split database with the tables on the server. When that happens the code errors.
it stops on the Delete portion. and it cannot find the search key.
here is the error;
Run Time Error...
can't figure this one out.
this code works to archive when the tables are local. However I need this to be a split database with the tables on the server. When that happens the code errors.
it stops on the Delete portion. and it cannot find the search key.
here is the error;
Run Time Error...
We Did it!!!!!
Thank you jlitondo !!!!
it was small change in the single quotes being in the expression.
here is the final code that did it
Private Sub Command5_Click()
Dim rst As DAO.Recordset
Dim dbs As Database
Dim RepIdVar As String 'Variable to store the Rep ID
Dim...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.