Search results

Any one found anything? I have been looking some more, but to no avail.

Yes, but I was hoping to do it WITH code. Is there any way for that? Private Sub Command53_Click() Dim LResponse As Integer Dim FilePath As String FilePath = Dir("C:\Users\Joshua\Downloads\!Import Sales From Online\*.csv") LResponse = MsgBox("Are you sure you want to delete the file " &...

Never mind. I got it: Dim LResponse As Integer Dim FilePath As String FilePath = Dir("C:\Users\Joshua\Downloads\!Import Sales From Online\*.csv") LResponse = MsgBox("Are you sure you want to delete the file " & FilePath & "" & _ vbCrLf & "Warning! This will delete it PERMANENTLY! (A really...

Dim csvFile As String csvFile = Dir("C:\Users\Joshua\Downloads\!Import Sales From Online\*.csv") Dim KillFile As String KillFile = "csvFile" 'Check that file exists If Len(Dir$(KillFile)) > 0 Then 'First remove readonly attribute, if set SetAttr KillFile, vbNormal 'Then delete the...

Quick question. How do I set a file path as a string? Im trying to get: csvFile = Dir("C:\Users\Joshua\Downloads\!Import Sales From Online\*.csv") csvFile As String Me.Text51 = csvFile But im not sure how to go about doing that

Hello! How would I go about importing .xlsx files? I want a code that would do this. Something the user can just click, and it would import him the .xlsx file. The way im getting the .xlsx file is from this code: Private Sub Command10_Click() Dim csvFile As String Dim txtFile As String Dim...

Private Sub Command10_Click() Dim csvFile As String Dim txtFile As String Dim xlsxFile As String csvFile = Dir("C:\Users\Joshua\Downloads\!Import Sales From Online\*.csv") txtFile = Dir("C:\Users\Joshua\Downloads\!Import Sales From Online\*.txt") xlsxFile =...

I want LResult to be the link it finds if it works. That way, I can have the LResult do other things. In the code im trying to get LResult to = the link if it does exist.

Private Sub Command10_Click() Dim LResult As String If LResult = Len(Dir("C:\Users\Username\Downloads\order_export*.csv")) = 0 Then MsgBox "This file does NOT exist." Else MsgBox "This file does exist." End If End Sub How do I get the LResult = to work? Also, thanks for such a quick...

Hello! I have the following code: Private Sub Command10_Click() Dim LWordDoc As String Dim oApp As Object 'Path to the word document LWordDoc = "C:\Users\Username\Downloads\" & "order_export_" & "*" If Dir(LWordDoc) = "" Then MsgBox "Document not found." Else...

I am having a new problem. For some reason running that query really hoses up Access, most of the time ending up in a crash. And im not sure. If I dont include the query result "Work" then it works fine. Other wise it hoses up.

I download your modified query, and it seems to do exactly what I want. I have now imported your table, im going to see how that goes. After changing nothing, it works fine :) I was able to get everything working fine so far, ill post if anything happens. Until then, Thanks a Ton for the...

The reason I need to have the ModelName connected the the Model is because the model is what I input from copy and pasting large amounts of show sales, and they dont have a model ID with them, so I have to output the Model Name. Then the reason in qryAllitemsSold that is is connected to the...

Hello! I have this query: Work: First(IIf([Date]>[RStartDate] And [Date]<[REndDate],[Price]*[Quantity],[RCost]*[Quantity])) And I will explain what I want it to do, and upload a small database so you can see what it should do. If you open the database, you will see the qryItemRetail. That is...

How would I do that?

Hello! I have a tblShowSales, and it has sale dates, gross sales, and quantity. I want to get the totals of those by date, but I want ALL the dates. So, lets say I have 2 sales as follows: Quantity-Gross Sales---Date 1---------$9.97--------- 11/2/2015 1---------$9.97--------- 11/4/2015 I want...

Ohh! I think I know whats wrong. You think that the caption is not updating. It is, whats not updating is the records. Here is the SQL for the query, maybe im doing something wrong there. And attached is a image of the Form. SELECT tblItems.Model, tblItems.ModelID, tblInventory.OnHand...

Show1, Show2, and Show3.

On every click, the number goes up. Currently, it only goes up for one column. I want it to go up on all of them.

Read arnelgps code. It should explain it.