Why do I get a "Loop without Do" compile error on the following code

Hi Peter

I am sorry but I don’t understand why your code works perfectly. I thought to have read that numbers do not need quotation marks and lngProductID = Me!lstBox2.Value is a number that is read out from a form that is open at the time the code is run.
I have even less appreciation for the ampersands, but if they do the job they can stay where you put them.



So, thanks for your professional help, boz

Den Code kannst Du vergessen, das geht so schon lange nicht mehr.

Mach mal eine neue Datei

VBA Editor auf

Userform einfügen

Auf diese einen Label (den etwas größer machen) und einen CommandButton

Dann diesen Code in die Userform

Option Explicit

Private Sub CommandButton1_Click()

  Unload Me

End Sub

Dann den Code unten in das Codemodul ThisDocument

Datei speichern, schließen und wieder öffnen

Abwarten was passiert. Alles klar?

Andreas.

Option Explicit

Dim WithEvents App As Application

Dim Inactivity As Date, CountDown As Date

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

  'Restart the timer if the selection changes

  RestartTimer

End Sub

Private Sub Document_Open()

  'The AutoClose windows pops uo after this time of inactivity

  Inactivity = TimeSerial(0, 0, 5)

  'The Autpclose has a countdown timer, 10 seconds + 1 to let the window pop up

  CountDown = TimeSerial(0, 0, 11)

  'Activate the event

  Set App = Application

  'Start the timer

  RestartTimer

End Sub

Private Sub RestartTimer()

  Application.OnTime Now + Inactivity, Me.CodeName & ".AutoCloseMe"

End Sub

Public Sub AutoCloseMe()

  Const Msg = "File will be closed in x without saving!"

  Dim T As Date

  'Errors off, we get an error if the AutoClose window is closed

  On Error GoTo ExitPoint

  'Load the form

  Load UserForm1

  With UserForm1

    'Prepare the form

    .Caption = "Auto Close Timer"

    With .CommandButton1

      .Caption = "Abort"

      'ESC or ENTER triggers the button

      .Default = True

      .Cancel = True

    End With

    'Show it modeless means the userform pop up and the code continuos here immediatly

    .Show vbModeless

    'Wait until the form is visible

    Do While Not .Visible

      DoEvents

    Loop

    'Calculate the end time

    T = Timer / 86400 + CountDown

    'Perform the count down

    Do While T > Timer / 86400

      'Update the message

      .Label1 = Replace(Msg, "x", T - Timer / 86400)

      'Let the window update

      DoEvents

      'Are we on screen?

      If Not .Visible Then GoTo ExitPoint

    Loop

  End With

  'If we get here, the user is away

  On Error Resume Next

  Unload UserForm1

  ThisDocument.Close False

  Exit Sub

ExitPoint:

  'We noticed an action, restart

  Unload UserForm1

  RestartTimer

End Sub

Hi stanko,

To look further, could you please provide me with the screenshot rename error or pop-up that you get.

Do you get this error due to an invalid filename? Also, have you prompted to change the file name on your PC or online?

Regards

Nik

Hi Veronika R,

I’m Gunasekar and I will be happy to help you with your question, I am a Microsoft consumer like you.

We can understand the problem at your end as it affects your work and we’re willing to help you in order to resolve the problem. So, to move further regarding this issue, we would like you to provide the following information:

1. May I please know the version, edition, and OS Build of the operating system installed on your computer?
2. Could you please provide us with a full screenshot of the error message for our reference? Please click on Use rich formatting to insert a screenshot and select the Insert Image icon?
3. Did you make any recent software changes to the computer?
4. Do you get any error code/message when signing in with your Microsoft account to activate Office?

I hope this information helps. If you have any questions, please let me know and I’ll be glad to assist you further.

Best regards,

Gunasekar N

Hi Dave,
<br />Thanks
<br />But what if I need such a large number for calculations, the one with the ´ is no longer a number?
<br />If you do not know why this is the case, it is not a drag because I do not need a calculation for my current case.
<br />Is just to expand my knowledge.
<br />Sincerely, Felix
<br />