Prikazi cijelu temu 23.11.2016 23:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Snimi nevezanu pod formu
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1777_Click()
  2. Dim AA As String
  3. Dim db As DAO.Database
  4. Dim Rs As DAO.Recordset
  5. Dim strSQL As String
  6.  
  7. 'On Error GoTo ERROR_CODE:
  8. AA = Generisi_Broj_Pregled
  9. Me.Broj = AA
  10. Refresh
  11.  
  12. Set db = CurrentDb
  13. strSQL = "SELECT [tblPREGLED].* FROM [tblPREGLED]"
  14. Set Rs = db.OpenRecordset(strSQL)
  15.  
  16. Rs.AddNew
  17.     Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda
  18.     Rs!Sifra_Pravnog_Lica = Me!Sifra_Pravnog_Lica
  19.     Rs!Sifra_Lokacije = Me!Sifra_Lokacije
  20.     Rs!Broj = Me!Broj
  21.     Rs!Vrsta_Pravnog_Lica = Me!Vrsta_Pravnog_Lica
  22.     Rs!Planirani_Redovni_Datum_Pregleda_Od = Me!Planirani_Redovni_Datum_Pregleda_Od
  23.     Rs!Planirani_Redovni_Datum_Pregleda_Do = Me!Planirani_Redovni_Datum_Pregleda_Do
  24.     Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda
  25.     Rs!Nalog_Ima_Nema = Me!Nalog_Ima_Nema
  26.     Rs!Razlog_Nemanja_Naloga = Me!Razlog_Nemanja_Naloga
  27.     Rs!Obavestenje_Ima_Nema = Me!Obavestenje_Ima_Nema
  28.     Rs!Razlog_Nemanja_Obavestenja = Me!Razlog_Nemanja_Obavestenja
  29.     Rs!Nacelnik = Me!Nacelnik
  30.     Rs!Pokretanje_Inspekcijskog_Nadzora = Me!Pokretanje_Inspekcijskog_Nadzora
  31.     Rs!Pravi_Datum_I_Vreme = Format(Now, "DD-MM-YY hh:nn")
  32.     Rs.Update
  33.     Rs.Close
  34. strSQL = "SELECT * FROM [tblINSPEKTORI_NA_PREGLEDU]"
  35. Set Rs = db.OpenRecordset(strSQL)
  36. Rs.AddNew
  37. Rs!Broj_Predmeta_Pregleda = Me!Broj_Predmeta_Pregleda
  38. Rs!Vrsta_Pregleda = Me!Vrsta_Pregleda
  39. Rs!Broj = Me!Broj
  40. Rs!JMBG_Inspektor = Forms![frmPREGLED_1]![frmINSPEKTORI].Form![JMBG_Inspektor]
  41. Rs.Update
  42. Rs.Close
  43. MsgBox "PODATAK JE SNIMLJEN U TABELU", vbInformation
  44. Call ISPRAZNI
  45. Exit_Here:
  46. On Error Resume Next
  47. Rs.Close
  48. DoCmd.Close acForm, "frmPREGLED_1"
  49.  
  50. Exit Sub
  51. ERROR_CODE:
  52. Sqlstr = Err.Number
  53. Select Case Err.Number
  54.     Case 3075
  55.     MsgBox "nije generisan broj pregleda"
  56.     Case Else
  57.     MsgBox "greska Br: " & Err.Number
  58.         Resume Exit_Here:
  59. End Select
  60.  
  61. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.