Recent content by tomtom1126

Dear All, I fond the below VBA on the internet and this is perfect to control the date range by using the form (textbox) to generate the report. My question is: 1. How can I use this to export the Query or Table by using this VBA? 2. This VBA only lookup for two textbox for the date...

Dear Minty, Thanks for your reply, let forget the code before. Can you simply advise me the code as below criteria with million thanks. 1. Table "Temp" data range (15Jan ~ 15Mar) 2. I want to filter the "Temp table" by select fm the combobox (e.g. date range fm 01Feb~28Feb). 3...

HI, Minty code above filter the selection in the combobox, append query set with the name "qryTest" and I try to call it by DoCmd.OpenQuery "qrytest" DoCmd.ApplyFilter , strCriteria If the above is not much sense, can you help to advise the way to filer and call append the result to the...

HI Minty, The "BuildCriteria() function" is the filter to look for the combobox (txtTml), below is fine with run this (DoCmd.OpenQuery "Normal Query"), but when I replace the "Append Query", error come up. Any suggestion? In this VBA, I want to filter the temp table by running the...

Dear All, I am the new in VBA. Below VBA use to filter the Query or Table by using the FORM with the combobox, it's fine until I changed to open (Append Query), the below error message coming up. ( Then action or method is invalid because the form or report isn't bound to a table or...

Dear Minty, Thanks for your remind, actually I google a lot and the below code is learn fm others suggestion. For the reefer I fixed it, because the form "Main manual" didn't set record source, now is clear in this part. By the way, I am the new beginer for VBA, your link sample a...

Dear Grumm, Thanks for your advise, I figure it out by the below code to crate the new folder and save the report into the folder. But, it can only work on the Form "A" but not working on the Form "Manual" due to the seal_no is control by Form "A" but not Form "Manual". so can you help...

Dear All, Below No luck for me. sUploadPath = CurrentProject.path & "\" & FormA.Seal_no //or any patch you want to use here. I try this code, it's work to create the seal_no folder but it can work only on the Form "A" but not working on the From "Main Manual". Others, I need to...

Thanks Grumm & Arnelgp How about the report save into the created new folder and the repot as attach into the email. Flanks for your help Tom

Sorry one more step : 3. send e-mail with the report attach. thanks Tom

Dear All, Please help ! Form A Form Main Manual Report A Form A (field "seal no") or Table A (field "seal no") I want to crate the the button in (Form Main manual) to : 1. If folder name (using the data by "Seal no") not exist, Create it. 2. Save the "Report A" into the...

Sorry Bob, At the first post, I just want to make it simple so I type qryCost. Actual query name : qryPreviewcostRpt Field in the query : scCd (this one I want to lookup to decide which report should be open) sorry for your inconvenience Regards Tom

Dear Bob, below is the query "qrypreviewcostrpt SELECT qryCntrCost.vvd, qryCntrCost.[Container No], qryAll.tsCd, qryCntrCost.bkg, qryAll.[In Terminal Time], qryCntrCost.covdSt, qryCntrCost.rmk, IIf(([demcount]<>"" And [qrycntrcost].[covdmov] Is Not...

I need help to crate the vba as below: query name : qrycost field in query : sccd report name: 1. rptcosthkg_a / 2. rptcosthkg_b / 3. rptcostszp_a / 4. rptcostszp_b if sccd like "HKG" then open report 1. rptcosthkg_a else open report 2. rptosthkg_b if sccd like "SZP" then...

ok ... anyway ! Thanks for your information ! Regards Tom