Search results

Solved it Thanks for the Help [Forms]![MonthlySpendCal]![CVorderQRYsubform].Form.Filter = "Year([Order_Date]) = '" & Me.YearFormTXT & "'" thanks

Hi Bob Me.[CVorderQRYsubform].Form.Filter = Year([Order_Date]) = '" & Me.YearFormcbo & "'" I'm getting an error guessing quotes wrong? Yeah not far at tall :) small world

Hi , here what i've try but getting an error. order date field on my subform is in format dd/mm/yyyy and my combo box on my main form only holds years in yyyy hoping to filter Order_date field on the subform via year. see below what i tried. guessing i need to change the Order_date field format...

no its a number field txt is just referance for the text box

spot on !! thank you

Hi , cant work out why #error is still showing on new record line i thought Nz() would supress it ? =Nz(DLookUp("sumoftotal","[Query1]","[CV_Order_ID_TXT] = " & [Forms]![Manual_Order_FRM]![CV_Order_ID_TXT]),0) thanks in advance shane

thank you worked perfect :)

Hi All, i have query that calulates the month spend in one column [Month_total] then i Group it via the month using a field called [Month_] then use a sum on form to call the values like =DSum("[Month_Total]","[Monthly_Cost_parts_QRY]","[Month_] = '3'") which shows the total spend for march...

Hi i wasn't get an error as i left on error resume next line in i get automation snytax error with below after google some more doesn't seem people use getobject with IE some how check it with shell? Private Sub Command13_Click() Dim IE As InternetExplorer Set IE =...

Sorry no error did nothing

tried Getobject not working not sure what else to try thanks shane

hi, I have DB with a form contain 4 Text Boxes the data from the Text Boxes populate the web page controls. Which Works great i'm not the greatest coder surprised myself it worked lol. Now the problem i have it always opens a new internet explorer session every time i run the code. i know its...

No worries Gina :) good to be busy time fly's :) thanks again

Thanks Gina :) for the start and thank you gasman for the help too :cool:

sorted cheers with If DLookup("Pathname", "ExcelFileName", "Pathname ='" & selectedfilename & "'") > 1 Then MsgBox "This file was already imported!", vbCritical, "Duplicate" Exit Sub End If:cool:

this is what i've tried and still allows me to import :confused: Dim SelectedFile As String Dim FilePicker As FileDialog Dim SQLdelete As String Dim selectedfilename As String Set FilePicker = Application.FileDialog(msoFileDialogFilePicker) FilePicker.AllowMultiSelect = False...

hi Gina , been a while glad to see your still about on here :D. i don't see how the code will work for my purpose the user selects a file using FilePicker = Application.FileDialog(msoFileDialogFilePicker) then file selected becomes SelectedFile the string or the address to the file...

Hi , i have some code to import Excel Spread sheet to a table call tblExcelimport i then add just the file name to tblexcelfilename here the code probably could be neater or better lol Dim SelectedFile As String Dim FilePicker As FileDialog Dim SQLdelete As String Set...

thanks sorry that won't work because i'm importing in to tblexcelimport but really wanted the file name to go in tblexcelfilename

hi all i have some code that i use to import data from excel Dim SelectedFile As String Dim FilePicker As FileDialog Dim SQLdelete As String Set FilePicker = Application.FileDialog(msoFileDialogFilePicker) FilePicker.AllowMultiSelect = False FilePicker.Filters.Add "Excel"...