Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: kmclane
  • Order by date
  1. kmclane

    I Need to change the name of a field in all DB Objects

    Got it working! Function ChangeFieldName() Dim rs As Recordset Dim rs1 As DAO.TableDef Dim db As DAO.Database Dim Tabname As String Dim FLD As Field Dim i As Integer Set db = CurrentDb Set rs = db.OpenRecordset("listTables") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst End If Do While Not...
  2. kmclane

    I Need to change the name of a field in all DB Objects

    Here is as far as I have gotten: Function ChangeFieldName() Dim rs As Recordset Dim rs1 As Recordset Dim db As DAO.Database Dim Tabname As String Set db = CurrentDb Set rs = db.OpenRecordset("listTables") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst End If Do While Not rs.EOF Tabname =...
  3. kmclane

    I Need to change the name of a field in all DB Objects

    OK, I don't see a way to make changes in queries other than manually, replace doesn't seem to work in design view. I have code in place to give me a list of tables and loop through the list. Now I need to be able to pull a second list of field names in each table, check to see if the name of one...
  4. kmclane

    automate save pdf from report

    Well, I do this now. Go to your main printer folder and open the properties of the Adobe printer. Here you can set it to not prompt fo the file name and I believe on the port tab you can set the directory it prints to. You have to set these things here, they don't stick if you try it on the fly...
  5. kmclane

    I Need to change the name of a field in all DB Objects

    Is there some way to do a global "search and replace" in Access 2003. I have several tables and lots of queries that utilize the field name "MID". I don't relish the idea of going through 700 tabkes and 275 queries and a bunch of vba code to hand change every instance. I would like to change all...
  6. kmclane

    Need to add a field to all tables in database

    Thanks, I got that to work like this: Function AddTable() Dim rs As Recordset Dim db As DAO.Database Dim Tabname As String Set db = CurrentDb Set rs = db.OpenRecordset("listTables") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst End If Do While Not rs.EOF On Error Resume Next Tabname =...
  7. kmclane

    Need to add a field to all tables in database

    I am trying to find a way to add a field to every table in my db. I get data every month in the same tables with the same fields. I would like to combine the data into a single database but I will still need to be able to pull say quarterly and YTD reports. Some tables have datetime fields but...
  8. kmclane

    Missing Columns in crosstab query

    Thanks, I just figured that out. My brain is getting rusty. - If you are flammable and have legs, you are never blocking a fire exit. Mitch Hedburg
  9. kmclane

    Missing Columns in crosstab query

    I am trying to further automate a bunch of reporting. One of the things I am trying to revise is hand pulling data in Excel into different formats and then importing into Access. I have the main data coming in now straight from the .txt file and some trimming and updating of data. Now I am...
  10. kmclane

    Trying to set up Realtionships unique problem

    I found a quick and dirty method recommended by a user on a SBS group I participate in, in QA run this: Select * into "Newtable" From "OldTable" Where 1=0 This will create an empty table with all your existing fields. It will not create constraints and such. You can then add the extra column you...
  11. kmclane

    Report Filter

    Note that my filter is set on a textbox on the report, not a table, even thought the table field does exist. Try putting a textbox on the report and changing your filter to that, have the text box use the table field as a data source. You can make the box not visible if you don't want it to...
  12. kmclane

    Trying to set up Realtionships unique problem

    Great, I was playing around trying to add a new column and now my table is empty! At least it is not one of the big ones, but it's gonna be two days rebuilding it anyway since all the original data is on encrypted cd's. I don't suppose there is a way to undo this? I just got this put together...
  13. kmclane

    Trying to set up Realtionships unique problem

    I have several tables I imported from Access 97 to SQL 2000. I am trying to set up relationships so Reporting services can do it's wonderful drill down thing, but I get the error "Primary Key or UNIQUE constraint must be defined for table 'ACH_LogMth' before it can participate in a...
  14. kmclane

    PRIMARY Filegroup is full

    OK, how do you do that? - If you are flammable and have legs, you are never blocking a fire exit. Mitch Hedburg
  15. kmclane

    PRIMARY Filegroup is full

    I am importing a bunch of data from Access to SQL 2000. I have a table that gives me an error when I try to import it. "Could not allocate space in database "dbname" The PRIMARY Filegroup is Full. I have the db set to autogrow and I have 64 gb of free space on the drive. The only thing I can...
  16. kmclane

    Translate to tsql

    Thanks, I wonder why they left it out of the examples? Nevermind I am looking at UPDATE, not Case right now. Duh! Thanks again! - If you are flammable and have legs, you are never blocking a fire exit. Mitch Hedburg
  17. kmclane

    Translate to tsql

    James, can I include my exclusion in that so it skips rows that have already been done? Also I havent seen "END" in any of the examples in the books on line. Is that needed? Ken - If you are flammable and have legs, you are never blocking a fire exit. Mitch Hedburg
  18. kmclane

    Translate to tsql

    Cool, so if I save all these separate queries to .sql files I can set them to run as a DTS package? Or do I need to string them all together in code somehow? Thanks, Ken. - If you are flammable and have legs, you are never blocking a fire exit. Mitch Hedburg
  19. kmclane

    Translate to tsql

    I was thinking of just using my where clause to check Like this: Where Substring([cardnumber],1,1) = '3' AND Substring([cardnumber],1,2) <> 'x' Would this work? - If you are flammable and have legs, you are never blocking a fire exit. Mitch Hedburg
  20. kmclane

    Translate to tsql

    I can't seem to get the case statement to work, but I can run three different queries that do what I need. I Have 5-6 tables I need to run these against, once a month to make sure Everything is truncated, is there a way to automate running a bunch of queries? I also think I need to put in a...

Part and Inventory Search

Back
Top