Recent content by Pooks_35

:banghead: So if it isn't one thing it is another. I realized I need an If Then statement since some of the Time boxes may be null, however when I put in the following code and try to run it I get Run-time error '13': Type mismatch. The bolded line is highlighted. Any idea what I'm doing...

I just realized what you were talking about....I'm such an idiot!

Thank you for your patience with me on this. I'm confused as Time1 is a combo box as well. There are Time2 through Time23 in the report. I need a code that repeats what happens with Time1 and Other1 in Time2 - Time23 and Other 2 - Other23.

Sorry it took so long to respond. I had to do some work to remove any information except just what you needed! Here it is.

They are text boxes, not labels. sorry about that!

The text boxes are named Time1, Time2, Time3, etc through Time23. The x represented is the number in the label (Timex).

Still stuck on this one. I can't get the code below to work: Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer) Dim x As Integer For x = 1 To 23 Me("Time" & x).Visible = Me("Time" & x) <> "Other" Me("Other" & x).Visible = Me("Time" & x) = "Other" Next x End Sub The bolded line...

I hadn't tried the compact and repair, just did and those tables still don't show in the object dependency. The backup failed because the company that is suppose to take care of our server set up everything on the server to back up, but of course, missed a critical item, the database.

This morning two tables were deleted from a database. The database failed to back up over night but I was able to import those two tables from a previous version of the database. My question is, looking at the object dependency between these old and new versions of the database, it appears the...

You are correct, I was trying to run the report in Print Preview and I kept getting the Run Time 438 error. I did remove the parameter for ID (so I was running reports for all the individuals in the database and not just my test data), now I get type mismatch when I do that. I'm looking at a...

Unfortunately, I can't as it is a large database that would take time to remove all the data that I would need to remove due to PII, it would take a lot of time to go through it.

Private Sub Detail1_Print(Cancel As Integer, PrintCount As Integer) Dim x As Integer For x = 1 To 23 Me("Time" & x).Visible = Me("Time" & x) <> "Other" Me("Other" & x).Visible = Me("Time" & x) = "Other" Next x End Sub

I had that code in at one point, I did put it back in since you confirmed that was correct what I was using, but I get a Run-time error 438 when I try to run it. When I run the code in the Immediate windows I get Compile error: Next without For. I don't know what I am doing wrong with the...

Thanks, I'm still pretty new to writing code, how would the coding look with the timer? I've googled and searched this site, but I can't find the correct coding to pull it all together to function correctly.:banghead:

I need to create a loop for the following command to be completed 23 times. I'm new to the looping and I'm not sure how to write the code for this. I need to go through 23 fields (Time1, Time2, Time3,.....Time23). Can anyone help me with the coding to create the loop? Thanks! Me.Time1.Visible...