Search results

Thank you for your reply! You know, I originally used the Date() function and it worked too in the original app. I was able to get things working by fully qualifying the the control (Why, I do not know). Forms!frmDate.axBeginDate.Value = Now - 30 Forms!frmDate.axEndDate.Value = Now Date is...

Use the openargs option in the event you want to trigger the opening of the new form in: dim stDocName as string dim txtOrderNumber as string stDocName = "frmYourSecondFormName" txtOrderNumber = Me.txtNameOfYourOrderField DoCmd.OpenForm stDocName, acNormal, , , acFormAdd, , txtOrderNumber...

I have an activeX spin button located on a form which increments a text box value from 45 to 1000 in increments of 5. This works fine, but if the user wants to put in the value 995, that's a lot of spinning. I have been trying to do the same with a slider control which seems a little more...

I am having problems setting two date time picker controls values on the load of my. I swear this used to work in another form but gives me an error that the control value is read only. Ideas? Private Sub Form_Load() On Error GoTo errhandler Me.ActiveXCtlBeginningDate.Value = Now()...

I do not know how your logon form works, but this may help you get on with your project. You need to have a table with the person's name and another field called "strSecurityLevel." Base your logon form on this table. However you validate the person is up to you but I would use the logon form...

I guess I gave the Eval function a little more credit than it was due. Thanks! Dave

That works like a champ. Thanks Travis! I never thought about working the controls collection. So, what's the Eval function useful for? I thought it takes a string and evaluates it. Once again, Thank you! Dave

I’ve been building an application to do word searches in those puzzle grids for my youngest son. You know, the kind where words are placed backwards, diagonally, forward, vertical, horizontal? Well , the app works fine and locates everything. My dream was to have the app find the word and...

You can also use binary values. With these, you can pass many parameters in one value. Kind of like a "poor man's array." Dave

Try: If Me.txtBal.value = 0 then chkPaid.Value = -1 else 'whatever... Endif

I had it set to the default "no." Made the change. Works like a champ!!! Thank you very much! Dave

Use: Sub IsItFilledOut() on error goto errhandler If IsNull(Me![Combo13].value) or (Me![Combo13].Value = "" Then ' Msgbox "This field has diddly in it" Else ' Exit Sub endif Exit_errhandler: exit sub errhandler: msgbox err.number & " Description: " & err.description resume...

I agree. Set up a combo, list, or option group on an unbound form. Lets call the form "frmCriteria" and the combo box "cboMonth". In your query in the QBE view, you must have a column named month or whatever. You may have to use the format function to change the date into the month format...

If it's a batch file all you need is: copy c:\YourPath\YourDBName d:\NewPath\NewDBName Type this in a notepad file. Now rename the text file from text.txt (or whatever) to CopyMyDB.bat. If you click on it, the copy will execute. Use can execute the batch file via VBA by using the "Shell"...

Rich Text will not always retain the formatting of your report. I recommend sending the report in snapshot view instead. The report looks great, takes up only a few Kbytes and cannot be altered by the end user...

I have a report based on a query. 14 of the fields are text (Memo). Each of the text fields are actually comment fields associated with a subcategory of questions. In other words, if the person recording the data from question 12 to 20 needs to make any comments on that group of questions...

Easiest way would be to add a "deleted" field with a check box or some other flag. When the person is "deleted" the flag is set. Display only records where the check box is not filled (or flag not set). Archive viewing is the inverse of the above, or both active and archived with an "or"...

Maybe this might be of use to someone out there... I was able to add the column via ALTER TABLE with the following, though I didn't see it printed in any of my resources: Private sub AddColumn(tablename as String) Dim db as Database() Set db = CurrentDB db.Execute "ALTER TABLE " & tablename...

I had something similar happen to me. I think you are on the right track with References. Try it again, but only with: Microsoft DAO 3.6 Object Library Visual Basic for Applications Microsoft Access 9.0 Object Library May not fix it, but I know I had a real interference from the Active X...

I just wrote some code which removes exact duplicate records from an imported table. In order for it to work properly, I need to add an autonumber field manually to the table, remove the duplicate records, then delete the autonumber field. Removing the field is easy via code. I need to know...