Been so long since I asked a question, took me 5 minutes to find the 'new thread' place!
This works to tick CheckboxField on all records of a form:
Private Sub cmdTickAllBoxes_Click()
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
With rs
Do While Not rs.EOF
rs.Edit...
Was writing a little routine for someone who needed, with a datasheet or continuous form, to have FieldTwo's back color change when FieldOne has focus. I added a boolean field, FFlag, and set it with the following code:
Private Sub FieldOne_GotFocus()
Me.FFlag = -1
End Sub
Private Sub...
Does anyone know how to sort the items in a combobox when its RowSource is a Value List? AddItem is only available for free-standing (non-CommandBar) comboboxes in Acc2003 and beyond. I working on a hack to cover this function for earlier versions, and have it working. I'm just looking for a way...
This works fine when placed in the RowSource Property of a combobox, but what modifications to I need to assign it dynamically to the same combobox?
SELECT [Doctors2].[MDName], [Doctors2].[MDAddress]
FROM Doctors2
WHERE ((([Doctors2].[MDName]) Like ("*" & [Forms]!Doctors2![MDName] & "*") Or...
Any idea why this code would fail? I've tried it both ways (application is optional, according to Access Help) trying to hide several forms. Form names are always spelled correctly, and no error message is generated.
Application.SetHiddenAttribute acTable, "MyTable", True
SetHiddenAttribute...
Anyone have any idea why this realtime clock hack would cause the "Calculating..." message to appear in the taskbar for one PC and not another? I've used it for years without seeing this message, but someone else (an admitted neophyte) using it swears the message didn't appear until he put this...
I'm using the statement below to retrieve the names of the tables in a db into a combobox, but need help to figure out how to exclude the system tables such as MSysObjects, MSysACEs, MSysQueries and so forth.
SELECT [MSysObjects].[Name]
FROM MSysObjects
WHERE ((([MSysObjects].[Name]) Not Like...
Sorry, Search is, once again, down for maintenance! I know I saw a posting here, in the last week or so, that gave the means of retrieving the path to the current database. That wasn't the main gest of the posting, but mentioned it in passing. Can't remember the context (not that it matters...
Sorry, search function here is still down for maintenance! I'm finishing up a small app and the users request that rather than have a separate command button to print each report that a single button be used to print all monthlies. I seem to remember reading that a DoEvents needs to be inserted...
Never had occasion to use decimals in reports before! Why is a number, defined as a Single, rounded when it appears in a report? For instance, number appears as 169.5 in form and table, but appears in report as 170?
Thanks!
The Missinglinq
Richmond, Virginia
There's ALWAYS more than one way...
This is kind of unusual, but since it's about a potentially really bad thing I thought I'd put it here. A poster on another forum took the Access 2007 online "testdrive" today and since has not been able to open up any of her Access 2003 databases.
The real kicker is that M$ offered the online...
I'd like to use acCmdAppMinimize with two forms on the screen at once. Currently, if I have a form opening the db (with DoCmd.Maximize in the OnLoad event) and then a popup form on top of the first form, the first form vanishes when the second form appears.
Alternatively, I like to have both...
I've got a reference that I've used before that states to manually position a form you need to:
1) Have Autocenter set to NO
2) Have Resize set to No
3) In Design View position form where you want it
4) Save and exit Design View without doing anything else
I've tried this and every permutation...
Trying to help a friend with this, so I'm kind of stuck with some of the things here. He wants to goto a new record, enter a PtID then check to see if there's already a record for the data entered. It it already exits, he wants to cancel the new record and go to the existing record; if not he...
Booted up and got that message this afternoon. Clicked on "Protect Me" and wennt thru the Update Virus Definition routine. Got an error message stating "Can't update definitions...Please run Live Update." Did that without any problems, rebooted (twice, actually) and still getting same message...
I’ve managed to go 15 years and only pick up one virus in all that time. Ran NAV this am and came up with 6! Investigation showed that a house guess, without asking, went online and used IE, which I avoid like the plague! Naturally, Norton could not Repair, Quarantine or Delete the files! Tried...
I'm trying to select all records where a particular date hasn't been filled in yet, the object then being to do an update query on these records, and I can't figure out what criteria to use in the query grid for the blank date field. I've tried:
=""
IsNUll
#00/00/00#
and even #//# with no joy...
I'm trying to duplicate a record using the code below:
Me.AllowAdditions = True
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
Me.AllowAdditions = False
I get a message that an error in the PasteAppend action has resulted in the data being...
I need to identify the control that has focus, and place it on a label, i.e. MyLabel.Caption = XXX. What is the correct syntax for XXX ?
Thanks
The Missinglinq
There's ALWAYS more than one way to skin a cat!
I've got a single view form with text boxes. I just set the Conditional Format for all text boxes so that when the field has focus, the background/foreground colors of the field change.
I have code in the Form_Dirty sub that makes visible two command buttons to save or cancel changes that have...
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.