mpaja Milorad Pavlovic Loznica
Član broj: 85296 Poruke: 110 *.dynamic.isp.telekom.rs.
|
Evo koda vezanog za dugme preko koga se poziva izveštaj:
Private Sub Command111_Click()
On Error GoTo Err_Command111_Click
Dim stDocName As String
Dim crit, crit1, Predmet, poruka As String
Dim Predidd, BrojP, novi As String
Dim dbs As Database
Dim rst As Recordset
Dim strSQL, strsql1 As String
Dim grp As Integer
Dim nista As Variant
grp = [Forms]![Glavni meni]![referat]
poruka = "Nemozete kao nacelnik odnosno sef formirati dokument!!!" & Chr(13) & Chr(10)
poruka = poruka & "Na glavnom meniju odaberite strucnu grupu koja vam je dodeljena" & Chr(13) & Chr(10)
poruka = poruka & "i onda formirajte dokument"
If grp = 4 Or grp = 5 Then
MsgBox poruka, vbCritical
Exit Sub
End If
' pre stampe osvezi datum pregleda u bazi. Datum pregleda je dan kada je odstampan zapisnik
' azuriraj i sviceve (AG, M, E, T), zaduzi refrenta ako nije vec zaduzen
crit = "PredId=" & Me.Field48 & " AND " & "Projekti.ProdId=" & Me.Text109 & " AND Projekti.ZapId=" & Me.Text129
crit1 = "PredId=" & Me.Field48
strsql1 = "SELECT * FROM [EvPredmeta] WHERE " & crit1
nista = Zaduzi(Me.Field48, Me.Text109)
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strsql1, dbOpenDynaset, dbSeeChanges, dbOptimistic)
With rst
.Edit
Select Case grp
Case 269 ' Elektro
!Elektro = True
!DatElk = Date
Case 270 ' AG
!Arhitekt = True
!DatArh = Date
Case 271 ' MViK
!Masinac = True
!DatMas = Date
Case 272 ' Tehnolog
!Tehnolog = True
!DatTeh = Date
Case 283 ' Vodovod
!Vik = True
!DatVik = Date
Case Else
End Select
If grp > 6 Then
!DatumObrade = Date
End If
.Update
End With
rst.Close
If [Forms]![Glavni meni]![OrgJed] = 2 Then
stDocName = "Zapisnik3S"
Else
stDocName = "Zapisnik3"
End If
DoCmd.OpenReport stDocName, acViewPreview, , crit ----> ovo stampa formu gde se dugme nalazi
rem DoCmd.OpenReport stDocName, acViewNormal, , crit ------> ovo radi na default printer
Me.Requery
Me.Refresh
Exit_Command111_Click:
Exit Sub
Err_Command111_Click:
MsgBox Err.Description
Resume Exit_Command111_Click
End Sub
|