I just noticed a problem, here is the code that I believe may be in question
Private Sub Ready1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNull(Me.ready1.Text) Or Len(Me.ready1.Text) <> 10 Then
Me.Return1.Enabled = False
Me.JobForward.Enabled = True
Else
Me.Return1.Enabled = True...
Sorry for the delay, tek-tips isn't sending reply notifications to me, or else they're getting labeled as spam.. odd. Anyhow..
DaveJam, I have re-visited my code and done something similar to what you have explained. While the date is primarily chosen from a calendar, it is also possible to...
I have 5 boxes that take dates. I currently use a popup calendar with code that looks like this (cboOrig is a global Combobox, Orig is a global string)
Private Sub Ready1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Set cboOrig = Me.ready1
Orig = "Ready1"...
Is there a utility out there to stress-test a graphics card? I have a system with an undefined memory error and I need to find out if the error exists in the graphics card and/or system ram is to blame.
I would like to have a macro or something of that sort that will go through each tab on a spreadsheet, and if a cell has a comment, copy the text of that comment to another location.
So far, the only question I have, is how do I get at the comment in the cell?
Partly for my own knowledge. Also I'd rather do the optimisation now, before going into full production, rather than later and disrupt workflow if not having the optimisation proves a real detriment to productivity.
What sort of impact would it have, considering that there are 5 of these...
I have a table with 48 columns in it. Most of the data is specific to each primary key, but there are several binary fields that could be pulled out and put into their own table, containing just the PK from the table where a specific binary field is true.
With a small dataset (3000 records...
I'll try that out remou. Thanks.
Any ideas on how I can neatly do the checks for server existence? I use the following currently in the onload() event for my main form. Islocal is a global variable that is part of my methodology for disabling buttons.
This section does the job pretty...
My project uses linked tables and pass-through queries to a MySQL Server in our main office. I have put in a check when the first form loads that checks if this database is available. If it isn't, the program notifies the end user, and then disables all controls on the main form.
This project...
I have a project with about 50 forms in it. Some of these forms are obsolete, and no longer referenced by any other form, or even opened directly. Is there an easy way to find out what forms are not linked to others, or not opened by docmd.openform?
I have the following code in place to check for a connection to a database. It is supposed to do stuff on error instead of showing a cryptic error box. (run time error blah blah blah... can't connect to MySQL server on server .....
Private Sub Form_Load()
Set cn = New ADODB.Connection
On...
Got it running fast. Instead of relying on a view, I re-wrote my query def to do the lookup on its own. I still need grouping and sums, but I did it in SQL rather than in the report. It just made more sense to me to do it that way, now that speed isn't an issue
I have the following query which takes an absolute age to run in Access, but when run on MySQL is done in a flash. Access appears to lock up completely when I try to run the report generated from this query. Because the resultset is going to be used as a part of a nested subreport, I can't...
I live in the UK, however the dates referenced in [Forms]![FollowRep]![Range].[Form]![Start] are contained in a combobox/textbox so they probably do need formatting as suggested. Will try it and get back to you.
@MichaelRed, yes, I know they are in the FUTURE, as the events referenced will be...
I have a portion of a query that gets a start date and end date from a form. It is used to get 4 different queries for events that have happened in the past. I need to modify the query definition so that it asks for dates in the future. I have tried explaining to a few people how it "should"...
When I started this, I was given full reign as the lone developer, and decided on the visual style. As the project neared completion, we had a managerial re-shuffle, and I suddenly needed to present my app to a committee on a fortnightly basis. As a result of this re-shuffle, I have had to cut...
Well, I can now claim VICTORY!!!!!!!!!
Mostly. Here's my code.
Function changeFont(frmName As String)
Dim frm As Form
Dim i As Integer
Dim intCnt As Integer
Set frm = Forms(frmName)
intCnt = frm.Count
For i = 0 To intCnt - 1
Select Case frm(i).ControlType
Case acLabel...
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.