Recent content by arnelgp

just test if frmActivitiesEdit is open:\ If CurrentProject.AllForms("frmActivitiesEdit").IsLoaded = False Then DoCmd.OpenForm "frmActivitiesEdit" End If Forms!frmActivitiesEdit.RecordSource = "Select * from qryActivitiesEdit Where ActionID = " & Me.txtActionID

use your Control not the fields in your table: Private Sub GroupHeader1_Format(Cancel As Integer, FormatCount As Integer) Me.Lvl1Img.Visible = Me.Lvl1Chk Me.Lvl2Img.Visible = Me.Lvl2Chk Me.Lvl3Img.Visible = Me.Lvl3Chk End Sub

you may try this on the subform's Current Event: Private Sub Form_Current() Dim bolVisible As Boolean With Me bolVisible = (.Recordset.RecordCount > 1) !FirstRecord.Visible = bolVisible !NextRecord.Visible = bolVisible !PrevousRecord.Visible = bolVisible !LastRecord.Visible...

don't forget the blowout..

means a woman/girl/transgender. maybe attributed by Elvis Costello: She may be the face I can't forget A trace of pleasure or regret May be my treasure or the price I have to pay She may be the song that summer sings May be the chill that autumn brings May be a hundred different things Within...

then you already have Duplicate JR_ID on JR_TrClassesT table. what the code is doing is adding (if it does not already exists on JR_TrClassesT) the 12 records you are looking for. next it uses an INNER JOIN (meaning only those 12 JR_ID should be included). but you said more than 12 are being...

who is mr.B? i hope not the Mr.B with the Teddy bear.

will that mean we will see more of the "when i was in the navy.." thing? :LOL:

modify your code like this: Private Sub TrnType_AfterUpdate() Dim strSQL As String, frm As Form, subfrm As Form 'insert records to JR_TrClassesT table strSQL = "INSERT INTO JR_TrClassesT (JR_ID, TrnCnt) " & _ "SELECT Personnel.AFD_ID, 0 FROM Personnel " & _...

here's what AI has to say: No, JSON is not unstructured data; it is considered semi-structured data because it has an internal organizing principle (key-value pairs) but lacks the rigid, pre-defined schema of a traditional relational database. It is more organized than unstructured data, which...

Bye-bye Uncle G! "hope you have a lot of good friends out there.."

the Ai keeps generating test code (for export to json) on employee table which i dont have, so i just copy xompany table and rename the copy as employee. New_employee table is created from test code to import back from a json string to New table, which I provide as new_Employees.

Me.Dirty = False, means to save all your changes to the db.

it you need to save the last chckbox, do this On Top of your code: Me.Dirty = False ' your code below

another AI brilliance. create an xml Recordset-like class. see module TestModule for various test.