Predmet:Re: Snimi nevezanu pod formu
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.