Recent content by justphilip2003

I should have stated that I am currently using Access 2020. JP

I have a bunch of old Access databases that were written under 32-bit software. I now have a total unfriendly 64-bit system that will not let me use my old code. Sample errant code: ************ Declare aht_apiGetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OFN As...

I solved my problem with the following code: Private Sub CmdEnter_Click() On Error GoTo Err_Data_Missing_OnEnter DoCmd.RunCommand acCmdRecordsGoToNew scrMessages = "" Exit_CmdEnter_Click: Exit Sub Err_Data_Missing_OnEnter: If Err.Number = 3314 Then ' Me.Requery scrMessages =...

Would not something like: Err_Data_Missing_OnEnter: If Err.Number = 3314 Then ' Me.Requery scrMessages = "Required data missing!" & Err.Description & Err.Source Else scrMessages = "Call the exterminator, there is a bug in the system!" End If work? Probably...

I have several fields that require data entry, combo boxes and simple text boxes. When I skip one of the require fields and depress my enter command button, an error message box appears with a message similar to (Run Time Error 3314 you must enter value in the ‘MainTbl.MainPur’ field). I...

On a field in my Table, I would like to have a format (dd mmm yyyy) or (dd-mmm-yyyy) or (yyyy-mm-dd) because my data spans several centuries and I wish to sort on this field. "Medium Date" comes close but messes up the century changes. Is there a way of establishing this format in my table and...

I have dabbled with Access for many years and never thought about the need for logic that advances the cursor after updating. Many heart felt thanks to all who contributed in solving this question for me! JP

I have several Combo Boxes in my current project and none advance to the next field after making a selection. I always used the mouse to position to the next entry. Is there a property sheet setting that causes advancement or an Event Procedure needed, but which action (On click, On Update, On...

I've attached the db file. The TroyOz fields in the MainTbl were manually written. TIA JP

TroyOz is define as a General Number with 4 decimal places. I believe my problem is with using the unbound field InVal, I am not picking up the input from the Form; screen prints show the unbound field InVal being blank. Is there a command that fetches the value from the Form to do arithmetic...

I've been away from Access coding to long! I created an unbound field and it calculates but returns only integer answers. On Both InVal And TroyOz, Formats are set at General Number, Decimal set at 4. a screen print of TroyOz is always an integer. Private Sub CmdCvrtOz_Click() 'Dim InVal As...

Is it possible to place a numeric field on a form that is not associated with any Table? It would be used to calculate a value that would be written to a Table field. I am trying to convert field InVal that is regular Ounces or Grams and convert to Troy ounces via buttons event criteria...

Thank you very much - it works! Now to see if I can resolve the Switch and Choose Functions using lessons learned here. Phil ;)

Thanks for the [] observation! Whenever I attempt a correction on the given example, Access prompts me with a comment to to enclose the Iff arguments in parenthesis. Here is my latest attempt {=IIf(PoliticalPreference=1, "Democrat", (IIf(PoliticalPreference=2, "Independent”...

I have a db with a Table PersonalT which has numeric values (1 to 5) in the field PoliticalPreference. In a Report I am attempting to use the codes (in Property Sheet field Control Source) to print an associated phrase. I have tried various code functions: Switch, Choose and Iff. When the...