Search results for query: *

Hi, I have a piece of code to display a picture in an Access Form. Here's the code: http://tek-tips.com/threadminder.cfm?pid=701 Dim UnitID As String UnitID= Me.UnitID.Value If IsNull(UnitID) = False Then Me.ImageBox.Picture = "E:\User\USER\Database\Unit Pics\" & UnitID & ".png" Else...

Hi, I have an append query to insert some data into a table from ms excel. Heres the code: Dim partNum As String Dim desc As String Dim Material As String Dim cost As Long Dim vendorPartNum As String Dim VendorID As Long Dim ctr As Long Dim xlLine As Integer Dim allBlank As Integer Dim...

Hi, I have a query to show all orders and its units that is still "Pending". Here is the query: SELECT TblCustOrderUnit.OrderID, TblCustomer.CustomerName, TblCustOrder.PONumber, TblCustOrder.JobName, TblCustOrder.CustomerUDD, TblUnits.UnitName, Count(TblCustOrderUnit.UnitID) AS Qty...

Hi, In Access I have query to display top 5 units sold each year. I put those in a recordset, and I want it to be placed in the excel file that I wanted. The problem is the structure of a recordset is different with data table in Excel that I need. It is being used as data source for Bar Graph...

Hi, I have a table Sales, I want to have a query to display total sales in each year.. The table is like this: |OrderID|OrderDate|CustomerID|Comment| |1 |1/1/2011 |12 | | |2 |5/1/2011 |13 | | ... |600 |1/12/2013|5 | | How can I get...

Hi, I have an index list in my form (A-Z) for quick search on CustomerName field, think of it as quick scroll on iPhone Contacts but this one you have to click on each alphabet instead of swiping the screen. So this listbox has A-Z and what I want is if user click on letter C, it goes to record...

Hi, I have a button which sends email. The problem is whenever I clicked the button, and it finishes, then the database become error in terms of a textbox in every form which has Date Picker, it stopped working. I cannot fill the textbox using the date picker anymore (either a click on a...

Hi, I am new to MS Project, and wondering if it is possible for me to get output of a list/schedule for every resources(people) I already created report "Who Does What When", but I need more detail than this I need a real schedule, like | | Mon 8 Jul | Tue 9 Jul |...

Hi, I dont know if it is possible but can I program a code to send an email automatically (without using Outlook) when an order status has been changed to "Ready"? So in the Order form, when the Status textbox value="Ready", it will start countdown on for example 5 days after that, and it will...

Hi, I have encountered several issues regarding the row source of a listbox. For example in my current listbox, it has row source like this: SELECT TblCustOrderUnit.OrderUnitID, TblCustOrderUnit.OrderID, TblCustOrderUnit.UnitID, TblUnits.BSUnitID, TblCustOrderUnit.CompletionDate...

Hi, I have code like this: Set objSheet = objExcel.Worksheets(1) saveDir = "C:\Users\User\Desktop\" & UnitName & "-" & PONum & ".xlsx" objBook.SaveAs (saveDir) note that UnitName and PONum are string variables. This code is a piece of code from a button that will create a new Excel file...

Hi, I want to create a button in a form to 'edit' an existing Excel file, that is to add something (a variable's value from a table in Access) to a certain cell in the Excel file. I do not want the VBA to overwrite the Excel file because it will scrape all the existing data from the excel, but...

Hi, I have a database file named UnitPics that stores pictures of many units, and I have linked that table to the main database file. Now, in the main database file I have created a button to export some data to Excel file output. Here's the code: Private Sub PictOne_Click() Dim objExcel As...

Hi, I have this code Dim ctr As Long Dim oldRowSource As String Dim newRowSource As String Dim listValue As Long Dim unitID As Long oldRowSource = "SELECT TblCustOrderUnit.OrderUnitID, TblCustOrderUnit.OrderID, TblCustOrderUnit.UnitID, TblCustOrderUnit.SerialNumber FROM TblCustOrderUnit;"...

Hi, I have a listbox that is populated using this query (the row source) SELECT TblCustOrder.CustOrderID, TblCustOrder.CustomerID, TblCustomer.CustomerName, TblCustOrder.PONumber, TblCustOrder.JobName, TblCustOrder.CustOrderDate FROM TblCustomer INNER JOIN TblCustOrder ON TblCustomer.CustomerID...

Hi, I have this code: On Error GoTo errHandler --- exporting to Excel --- Exit_Sub: Set rst = Nothing Set objSheet = Nothing Set objBook = Nothing Set objExcel = Nothing Exit Function errHandler: Resume Exit_Sub end function so basically in this code, I am trying to create a report in...

Hi, I have a field named OrderDate, which the user inputs Short Date (dd/mm/yyyy) from a textbox (DatePicker enabled). Now in some condition, another field named CustomerUDD is empty (not specified/intended to be left blank). Now I am creating a button to fill the blank CustomerUDD to add 30...

Hi, I have a table called tblReport(CustName,Item,Qty) -> just an example roughly this is the look inside the table |CustName |Item |Qty | |A |ab |1 | |A |pq |1 | |A |zz |2 | |B |qwe |1 | |B |zz |1 | now I want that table to be...

Hi, I have 2 textboxes on a report named CUDD(Customer UDD) and CDate, and in the CDate control source I put code: =Nz([CUDD],DateAdd("d",30,[CUDD])) basically it looks for CUDD textbox, if it has a value then show CDate its value, if CUDD empty then I want to show date+30 days to CDate...

Hi I have a query that goes into a recordset: LSQL2 = "SELECT TblUnits.UnitID, TblParts.PartNumber, TblParts.PartDescription, TblParts.Material, " & _ "TblUnitPart.Qty, TblParts.PartCost, TblParts.VendorPart, TblVendor.VendorID, " & _ "TblVendor.VendorDesc...