Oh should say when the database starts it gives states this...
Your Microsoft Access database or project contains a missing or borken reference to the file 'MSCAL.OCX" version 7.0.
Had a simple way to pick the date with this code.
Private Sub cboEndDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ocxCalendar.Visible = False
ocxCalendarEnd.Value = Date
ocxCalendarEnd.Visible = True
End Sub
Calender popped up, you select the date and you are...
Okay I built is database to keep track of quotes so when the user clicks a button it gets the next quote number. Had my form bound to the table but when the user hit cancel of course the data was put onto the table with they picked. Thus I unbound the form and use expression like so.
rec.new...
Private Sub cmdExport_Click()
Dim excelobj As New Excel.Application
excelobj.Visible = True
With excelobj
'Add a workbook.
.Workbooks.Add
ChDir "C:\LCD\Programming"
.Workbooks.Open FileName:="C:\LCD\Programming\PROJECT.XLS"
.Cells(1, 2).Value = Me!cboName
.Cells(2...
ok this works somewhat the only problem is does not matter what company I pick the value is always 1. What I need to get is the ID (Primary key, autonumber) from said table.
txtLCD_ID.Value = DLookup("ID", "tblCustomerList", (Chr(34) & "[Bill-to Name] = " & "Forms!frmAlphabet!txtMYCustomer" &...
My form "frmNewContact" has a VBA code on open.
Dim varX As Variant
varX = DLookup("[ID]", "[tblCustomer List]", "[Bill-To Name] =" _
& Forms![frmNewContact]!txtMYCustomer)
In the table "tblCustomer List" ID is the primary key field and "Bill-to Name" is the text field.
This is the...
I am having trouble moving label and text boxes. When my form opens I want certain labels to move around according to value given my the users but it does not work. So I tried a simple test on open form I type this out
label1.top = 0.5
label2.top = 1.5
but the only thing that happens is the...
Found this code to export Access form data to excel. I added a few lines to open an existing excel file, the probelm being it only works once; excel is left in the computer memory even after clsoing excel and cannot get it to clear. My second question is how do you goto a specfic sheet in excel...
I want to export specfic data to access to an excel file template. For example customer name is ABC Corp with a click want to insert this info in an excel file in cell b3. Any suggestions?
Thank you all for the Answers.
The problem was opening the report my default printer in a Wide Format 36" wide x upto 500 feet thus access does not like that paper that was selected (Arch D 24"x36").
This is the code....
Option Compare Database
Dim abc As String
Private Sub btnCombine_Click()
On Error GoTo btnCombine_Click_Err
abc = Forms!Form1!TxtBegin + Forms!Form1!txtEnd
Forms!Form1!txtAnswer = abc
'DoCmd.OpenReport Me!txtAnswer, acViewNormal, "", "", acNormal...
Need help on the VB side of things. What I have is a text box on my form name txtBegin and another txtEnd, they are combine in a text box called txtCombine. The txtCombine is actually the name of a report to be opened there are different combo that user can choice from. Having trouble getting VB...
have a customer form listing of course the companys I deal with, so what I what to do is take the customer listing as a subform and when I click on a company it changes a label caption in the main form. Cannot seem to get the code right can anyone help?
Thanks
Lets start from the beginning....
Assuming ADP is SQL Server database (not using).
On one subform I have a the alphabet list in button format. You click a letter then changes a label to that letter which in turn changes my query to show only data that starts with that letter. The subform that...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.