Create the macro, then create a shortcut to the macro by dragging the macro object from the database window to your desktop. Open the Scheduled Tasks folder (Start-All Programs->Accessories->System Tools->Scheduled Tasks)
Drag the new macro shortcut to the task folder. Then double click the...
The office link looks at the data source property of the form that is active when the link is started. The specific field you had focus on, and it's value are not considered for the connection.
For your example to work qryletterintro should be the data source of the form that is active when...
Try putting everything together in on one line like this:
=Right(DatePart("yyyy",Now()),2) & "-" & DMax("[fieldname]","tablename")+1
This will work as the default property for a text box on a form. It does not work as the default property of a field...
Make sure the field datatype is string then use the datepart function to get the year, and the right function to get the last 2 digits.
dim strYear as string
strYear = Right(DatePart("yyyy",Now()),2)
yourVariable = stryear & "-" &...
You can return the single parts along with the other fields by using a subquery to select the single parts.
Select c.Part#, p.Year, p.Model, p.Code from
SELECT Count(Part#) AS CountPart#, Part#
FROM PartTable
GROUP BY Part#
HAVING Count(Part#)=1) as c, PartTable as p
where c.Part# = c.Part#...
Open the table with the social security number. Choose Replace from the Edit menu. In the dialog box type the single dash - in the Find text box. Leave the Replace With text box empty. Make sure the Look In box is set to the correct field. Set the Match box to Any Part of Field. Click Find...
My test form only has the two object, names exactly as shown in the code. It works properly in mine.
Does the error message give any other description besides the numbers?
Add code to the KeyPress event for txtbox1. The code will append characters to the contents of cboBox1 as you type. The code catches backspaces and removes a character from the cboBox1. And it catches and ignores control characters.
Private Sub txtbox1_KeyPress(KeyAscii As Integer)
Dim...
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.