Private Sub Command1777_Click()
Dim AA As String
Dim db As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String

'On Error GoTo ERROR_CODE:
AA = Generisi_Broj_Pregled
Me.Broj = AA
Refresh

Set db = CurrentDb
strSQL = "SELECT [tblPREGLED].* FROM [tblPREGLED]"
Set Rs = db.OpenRecordset(strSQL)

Rs.AddNew
    Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda
    Rs!Sifra_Pravnog_Lica = Me!Sifra_Pravnog_Lica
    Rs!Sifra_Lokacije = Me!Sifra_Lokacije
    Rs!Broj = Me!Broj
    Rs!Vrsta_Pravnog_Lica = Me!Vrsta_Pravnog_Lica
    Rs!Planirani_Redovni_Datum_Pregleda_Od = Me!Planirani_Redovni_Datum_Pregleda_Od
    Rs!Planirani_Redovni_Datum_Pregleda_Do = Me!Planirani_Redovni_Datum_Pregleda_Do
    Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda
    Rs!Nalog_Ima_Nema = Me!Nalog_Ima_Nema
    Rs!Razlog_Nemanja_Naloga = Me!Razlog_Nemanja_Naloga
    Rs!Obavestenje_Ima_Nema = Me!Obavestenje_Ima_Nema
    Rs!Razlog_Nemanja_Obavestenja = Me!Razlog_Nemanja_Obavestenja
    Rs!Nacelnik = Me!Nacelnik
    Rs!Pokretanje_Inspekcijskog_Nadzora = Me!Pokretanje_Inspekcijskog_Nadzora
    Rs!Pravi_Datum_I_Vreme = Format(Now, "DD-MM-YY hh:nn")
    Rs.Update
    Rs.Close
strSQL = "SELECT * FROM [tblINSPEKTORI_NA_PREGLEDU]"
Set Rs = db.OpenRecordset(strSQL)
Rs.AddNew
Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda
Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda
Rs!Broj = Me!Broj
Rs!JMBG_Inspektor = Forms![frmPREGLED_1]![frmINSPEKTORI].Form![JMBG_Inspektor]
Rs.Update
Rs.Close
MsgBox "PODATAK JE SNIMLJEN U TABELU", vbInformation
Call ISPRAZNI
Exit_Here:
On Error Resume Next
Rs.Close
DoCmd.Close acForm, "frmPREGLED_1"

Exit Sub
ERROR_CODE:
Sqlstr = Err.Number
Select Case Err.Number
    Case 3075
    MsgBox "nije generisan broj pregleda"
    Case Else
    MsgBox "greska Br: " & Err.Number
        Resume Exit_Here:
End Select

End Sub