Search results

You just need to refer directly to the specific tab's control name, you don't need to include the overall tab control: [code] Private Sub Form_Load() If Me.AddToSPA = True Then Me.Page2.Visible = True Else Me.Page2.Visible = False End If End Sub [code]

I've added another query, qryDetermineVacBalanceByDay, that shows it by day.

I've attached an example you can review to see if it can help with your program. In general, it's not good practice to store a calculated value, such as vacation balance, instead use queries to do calculations and use that result for a form or report. My example contains 3 tables: Employee...

Your welcome.:)

If you are trying to add to a date you should use the DateAdd() function. ... DateAdd("h",23,[loadtime].[EstimatedTime]) ... This will add 23 hours to the value stored in [loadtime].[EstimatedTime]. If you are trying to determine time between 2 dates use the DateDiff() function. ...

Attached is an example of how to accomplish that goal.

Glad to hear things are working out for you, good luck with the rest of your project.

You can use the same procedure and adjust Function SysHop2Up() Dim Rst As DAO.Recordset, MySql As String Dim PrevSysConID, SndPrevSysConID As Long Dim X As Integer For X = 1 To DMax("[sysAccountID]", "tblSystemConfiguration") If DCount("*", "tblSystemConfiguration", "[sysAccountID]=" & X)...

Here is a function you can run to get caught up. Only need to run this one time and then after that your form does the current records. You can place this code in a module and run it from the immediate window, Call SysHop2Up. Function SysHop2Up() Dim Rst As DAO.Recordset, MySql As String Dim...

Make an MDE or ACCDE version. That locks the user out of any database design features.

Glad you found a solution.

Change: If DCount("[sysSystemConfigID]", "tblSystemConfiguration", "[sysAccountID]=" & _ Forms!frmTempestCoordination!accAccountID & " And [sysSystemConfigID] <" & [sysSystemConfigID]) = 2 Then 'will only fire on the 3rd record

There are many properties that can be accessed to turn things off but there is only so much you can do. 'PROGRAM STARTUP OPTIONS Const DB_Boolean As Long = 1 80 ChangeProperty "StartupShowDBWindow", DB_Boolean, False 90 ChangeProperty...

If you don't want it to fire until there are 3 records, use the Dcount() function to count how many records were entered prior to the current record and only allow it to fire if there are 2 or more records prior to the current record. If DCount("[sysSystemConfigID]", "tblSystemConfiguration"...

Use the Docmd.OpenForm OpenArgs property. DoCmd.OpenForm "frmAddBook", acNormal, , , , , "W" The OpenArgs is the last variable in the command and here is where you can put W, M or R. Then, in the forms On_Open event do something like: If Not IsNull(Me.OpenArgs) Then Me.ComboBox1.DefaultValue...

You don't want to pass a form, you want to pass the forms name as String. Public Sub backToHub(ByRef theForm As String) DoCmd.Close acForm, theForm DoCmd.OpenForm "TechSupportHub_Form" End Sub Private Sub Back_Button_Click() backToHub Me.Form.Name End Sub

Your telling access that SysHop2 is only a variable declared in VBA: Dim PrevSysConID, SndPrevSysConID As Long, sysHop2 As Integer If you now have a control on your form named SysHop2 then remove the declaration in your VBA.

Replace: With: SysHop2 = Abs([sysHop1] - Nz(DLookup("[sysHop1]", "tblSystemConfiguration", "[sysAccountID]=" & _ Forms!frmTempestCoordination!accAccountID & " And [sysSystemConfigID]=" & SndPrevSysConID), 0)) To eliminate the null error. By the way, what is the DB trying to keep track of...

Make sure you place the code after you assign sysHop1

It looks like you are telling the sub to exit before you ever get to that code. Exit_Command113_Click: Exit Sub Err_Command113_Click: MsgBox Err.Description Resume Exit_Command113_Click '''''''''''''''''''''''''''''''' 'Continue or Not, If yes then wipe all fields, If no then exit...