Inputbox

[mladen273]

How do I get to repeat the command.
For example, now after each entry barcode must touch the "command7" to enter the new barcode.
I wish to have it automatically opens after entering barcode.
How to write code when I click on Cancel to pop up "InputBox" goes out?

This is code:

Private Sub Command21_Click()
Dim Barkod As String
Dim RunSQL As String

Barkod = Inputbox("Upiši barkod", "Barkod")

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Sken VALUES ('" & Barkod & "');"
DoCmd.RunMacro ("m_Refresh")





End Sub

[pbaldy]

You can add a GoTo and return to the point above the InputBox(). You can test for "" which I believe is what hitting Cancel will return.

[mladen273]

How write command for GoTo?

[pbaldy]

There are examples in VBA help.

[mladen273]

There are examples in VBA help.

Be a friend and write ...
I don't know very well VBA

Buy you a beer

[pbaldy]

Here, I went to help for you.

[mladen273]

I really appreciate your efforts, but like I said, I am a beginner in VBA and I do not know how to adjust it according to command .
Please, could you write the code. I really need this.

Greetings from Croatian

[June7]

A different approach:

Private Sub Command21_Click()
Dim Barkod As String

Barkod = "?"
While Barkod = "?"
   Barkod = Inputbox("Upiši barkod", "Barkod")
   If Barkod <> "" Then
      CurrentDb.Execute "INSERT INTO Sken VALUES ('" & Barkod & "');"
      DoCmd.RunMacro ("m_Refresh")
      Barkod = "?"
   End If
Wend

End Sub

[mladen273]

Thanks, now everything works !!!