Recent content by shiznaw

He was pretty clear on what was the problem.

yeah, so no one in their right mind would do what you proposed just to resolve a focus / visible issue for a child form. For 2010 and later, the following works fine: Private Sub Child1_Exit(Cancel As Integer) 'procedure form("Name of ParentForm").controlname.SetFocus 'control on Parent Form...

I need to ask just how you found this out. What was your process for eventually determining that VBA was adding this programmatically? How did you find this out?

Thanxs to Your Solution, the actual code below plus the Query Worked. I sincerely thank you for this. Public Function ReportGroupArea(ByRef pvAreaField) Dim str As String str = Left(pvAreaField, 3) Select Case str Case Is = "003", "005", "047" ReportGroupArea = "DOLLAR THRIFTY...

I'm stuck and I usually can find an answer, but I don't work with reports often. I need to ask the Pros here whether it's possible to group Area by the following: Dim str as string str = Left(Area Field, 2) Select Case str Case Is = "11", "12", "13" Report Group Area = "Division 1" Case...

Found the Answer - Thanxs Public Sub OrcleJEtoUnmatched() '---DONE--- Dim db As Database Dim tdf As DAO.TableDef Dim fld1 As DAO.Field, fld2 As DAO.Field Dim idx As Index Dim rst As DAO.Recordset Dim hertz As String Set db = CurrentDb() 'Copies table data from ORACLE JE Table; Creates /...

I have a problem. I need to take the newly created table column (Field) I had just name "ID" and PRIMARY / INDEX it. I have tried several ways with no success. All I'm asking is for someone to offer a fresh perspective. ~ Shaw Public Sub OrcleJEtoUnmatched() '---DONE--- Dim db As Database...

The attached is my way of doing it: Press Alt+Fn11 to get into VBA code: Copy and Paste the following Code: Private Sub Text_AfterUpdate() Dim db As DAO.Database Dim sqlstr As String Dim rst As DAO.Recordset Set db = CurrentDb() sqlstr = "SELECT [TableName].[Animal Field Name] FROM...

Make sure that there is nothing in the Control Source for TextBox A (the numbered textbox).

I get scared trying my own stuff at work. Stuff blows up. It worked...this time.

I promise that I will get to you in under 2 hours. I'm just at work coding on a Database right now. If no one else has given an answer, I will provide you with the solution you need. ~ John Allen Shaw.

Question: Frm "Match Summary" isn't bound to any Records (Table, Query). TxTBox "Parameters" is unbound as well. I need to give the End-User an ability to add information to Table "Parameters" My VBA Solution: Since Frm isn't bound, [DoCmd.GoToRecord , "Parameter", acNewRec] won't work. My...

A simple Query will suffice. ComboBox with dropdown should be bound to Table. The 2nd control (TxTBox) should be bound to a query.

The Command: DoCmd.GoToRecord , , acNewRec Doesn't just take you to a new record, it actually records / adds a new record to the Table to which your control is bound. John Allen Shaw

I guess it would.