Thx for helping, now is working.
Private Sub Command7_Click()
BARKOD = InputBox("Upiši barkod", BARKOD)
DoCmd.RunSQL "INSERT INTO Sken VALUES (" & BARKOD & ");"
DoCmd.RunMacro ("m_Refresh")
End Sub
How do I get to repeat the command.
For example, now after each entry barcode must touch...