Search results

I see I should have written my situation a bit clearer. The code I am running imports the data from Text.txt, after it imports the data it will delete the file. If someone else is looking at the file then I want the code to skip the delete command (and since the file will be open if someone...

I am trying to delete a file Text.txt, if the file is open it will return an error and skip the delete command. My error trapping is set to 'Break on unhandled errors'. x="C:\Text.txt" On Error Resume Next Kill x On Error Goto 0 I am boggled at why this doesnt work. Any ideas?

I found something that works. Private Sub Command53_Click() Dim dbsTemp As Database Dim strMenu As String Dim strInput As String ' Open a Microsoft Jet database to which you will link ' a table. Set dbsTemp = CurrentDb ' Call the ConnectOutput procedure. The third argument...

Hi all, I searched the old threads and found this from 2009. I am trying to change the source connection of a linked table through vba. This one is currently set up for an ODBC connection, but the whole tdf.connect part to change which MDB database to use on a network is right over my head...

Ah I found something that got me what I needed. DateDiff("s", Me.Time1, Me.Time2) Thanks

I'm not sure I understand the difference.

Hi All, Im trying to convert a value like 8/31/2012 2:36:14pm into just seconds. Any suggestions? Most what I find in google only tells me how to convert the hours and not the date as well. Thanks

I am trying to get the access code to cycle through all the open currently open workbooks and return each name through a messagebox. Not to specificly generate a list, but to list each of them on at a time (or all at once) in a messagebox.

Hi all, back again. I'm trying to get a small sub to show all the currently open workbooks. I copied this excel code I found through google, is there a quick way to modify it to run with access, or maybe there is a snippet I couldn't find buried on this forum using the search function...

Awesome! Both of those options will work great. Thanks for the help.

Just found out about FSO while looking for ways to import files names from folders/subfolders into access. and I wanted to know if it is possible to change the Debug.Print fl.Name to populate a table with the results instead of populating the immediate window. (I did add the required Microsoft...

Ah, I think I figured out a workaround. 1. I will make a workbook called: 'Master Workbook.xls' (Bleh whatever) 2. Write a macro in the workbook called: 'SheetDeleteMacro' The code for this will be: sub SheetDeleteMacro Application.DisplayAlerts = False...

I should have specified. there are a few thousand of these excel sheets and I'm trying to get it done automatically. If it is not possible to reference the sheet number, is there a way to read the sheet names in an excel workbook. I could then extract the proper sheet name since they all...

The sheet number 2 is constantly made with different names and I was wondering if the transferspreadsheet command would be able to pick out data by the sheet number instead of the sheet name. DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tbl_EXCELDATA", "MyFile.xls", True...

Well I managed to figure it out. Changed the query setup to: Field Name: Dummy Name: Nz([Tbl_1].[Field1],"") Query Parameter: Like IIf(IsNull([Forms]![Form1].[Field1])=True,"*",[Forms]![Form1].[Field1]) Since a Null value is not included with a wildcard "*" search, the Field Name will...

I am trying to get a query to show all records if Field1 in Form1 is blank. However the results are either: I will get proper filtered results when Field1 is not blank (ok good) OR when it is blank I recieve everything except records with null values (@#$%). Am I missing something? Thanks for...

I managed to google the answer. I had to eliminate two sets of quotation marks. So it went from: Unworking SQL_Query = "Update Tbl_1 SET Tbl_1.[Retired] = TRUE where Tbl_1.[Autonumber] = """ & Me.Autonumber & """ " Working SQL_Query = "Update Tbl_1 SET Tbl_1.[Retired] = TRUE where...

I am using a button to retire a product. I am trying to make it so that the SQL will retire the product depending on which one the user is looking at on the form using the autonumber as the primary key. I recieve a data type mismatch error when I attempt to run it. Any suggestions on what I...

Yes, I was trying to change the caption of a label. I can get the me.Field01_Label.caption command to work. However in the same sense I can't get Reports!Rpt_Qry_Tbl_AcessTable!Field01_LABEL.Caption= "New Caption" to work. Even though its just copy and paste, no errors or anything, just...

What would the report equivalent to : Forms!Frm_Qry_Tbl_AcessTable!Field01.Caption = "New Caption" I have tried something like: Reports!Rpt_Qry_Tbl_AcessTable!Field01.Caption = "New Caption" on an open report, but can't seem to get the label caption to change. Majority of code...