Predmet:Snimi nevezanu pod formu

---

Imam proceduru za snimanje polja u tabelu sa nevezane forme. To sam našaao na netu i radi posao. E sada kada imam nevezanu pod formu kako da izmenim kod da bih usnimio sve slogove pod forme u tabelu.

Private Sub Command1777_Click()
Dim db As DAO.Database
Dim Rs As DAO.Recordset
Dim strSQL As String
On Error GoTo ERROR_CODE:
Set db = CurrentDb
strSQL = "SELECT [tblNEZAKONITOST].* FROM [tblNEZAKONITOST]"
Set Rs = db.OpenRecordset(strSQL)
With Rs
Rs.AddNew
Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda
Rs!Sifra_Nezakonitost = Me!Sifra_Nezakonitost
Rs!Rok = Me!Rok
Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda
Rs.Update
End With
MsgBox "PODATAK JE SNIMLJEN U TABELU", vbInformation
Call ISPRAZNI
Exit_Here:
On Error Resume Next
Rs.Close
Exit Sub
ERROR_CODE:
Select Case Err.Number
Case Else
Resume Exit_Here:
End Select
End Sub