Recent content by pkstormy

Yes. I know. It still applies though and the module I described is still the main way and best way I've found to hide the MSAccess menu system and make the MSAccess file work in true popup fashion without any MSAccess menus. I searched throughout the web for a solution to the...

Note: I use the module below to make MSAccess work like a true popup (without any background type form or any upper menus). I call the function fSetAccessWindow in the onOpen event of my initial form. Example in OnOpen event of my initial popup form... Call Module2.fSetAccessWindow(2) or Call...

VBA is very, very alive. I've just finished designing a Medical Research database (similar to the Epic software that all the hospitals use) except my application does so much more than Epic's software does (and it's fun to use versus watching a black/shades of black and white screen.

Just a comment when implementing an icon to represent your MSAccess application. When you select File -> Options -> Current Database and select an Application Icon, I found that *.ico files (not *.jpg or *.bmp files) seem to work best. Also the *.ico files needs to be small (ie. 1 to 3kb)...

Here's a revised version with buttons to change the month or year and the ability to double-click on a date in the CalendarPopUp form. Also a 2003 version.

This is a NON-ActiveX based and NON-API based Calendar looking form replacement for the Date Picker control in MSAccess 2010 (which requires you to click on a date field and then a calendar button to show the popup calendar). Since Access 2010 removed the mscal.ocx activeX control, the Access...

I thought it was somebody playing a joke on me when they showed me the db.

I would highly, HIGHLY recommend NOT using spaces (or other odd characters such as: !@#$%^&*(). If you do a lot of coding, spaces becomes a pain to deal with using brackets all the time and it doesn't pay to spend hours and hours troubleshooting syntax just because there's spaces or other odd...

If you have criteria in the query based off a form value, you'd probably want to issue the me.requery command in the AfterUpdate of the field that the criteria in the query is based off of. Sometimes when you don't see new records, it can be due to a blank value in the table. Consider making...

Anther way is to store the 'RecordID' (probably the autonumber field) to some variable and then do a docmd.findrecord. ex (on the subform): SomeVariable = me!RecordID (somevariable is declared under option explicit for the form) .... ....do something.... then code to find existing record...

You could use an IF in code to set the default value (possibly in an afterUpdate or some other event.) ex: if [SomeField]="SomeValue" then me.SomeOtherField.DefaultValue = "=" & me!XXField * me!YYField else me.SomeOtherField.DefaultValue = "=" & me!VVField + me!AAField end if or something like...

If I need to populate a value with a carriage return, I'll write something like this: me!Somefield = "This is the first line" & vbcrlf & "This is the 2nd line." or me!Somefield = "This is the first line" & vbclrf & "This is the 2nd line." (I get it mixed up if it's vbcrlf or vbclrf but...

Couldn't you just shell to the worksheet itself? ie.. Shell "c:\Program Files\Microsoft\Office12\Excel " & "C:\MyExcelFolder\MyExcelFile.xls",vbmaximized

Not sure I fully understand but here are a couple of things I typically do: 1. Have an unbound combobox (ie. in the header of the form) so that when a user selects a value, I requery the recordset (me.requery) which has criteria in that recordset to return only records where the key field...

Couldn't you just make this a query where Type=13 and save it (ie. TypeIs13QueryName). Then when appropriate, set the rowsource name of the combobox to this query name: ie. me.MyComboboxName.rowsource = "TypeIs13QueryName" If there's another situation, set the rowsource query to another...