Prikazi cijelu temu 16.02.2012 08:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Kako spriječiti zatvaranje forme bez podatka u subformi
Hvala na oveme. A ja sam još malo doradio:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_Unload(Cancel As Integer)
  2. Dim Rs As Recordset
  3. Set Rs = Me.RecordsetClone
  4. If Rs.RecordCount > 0 Then
  5.     Set Rs = [frmOtpremnicaSub].Form.RecordsetClone
  6.     If Rs.RecordCount > 0 Then
  7.     Cancel = 0
  8.     Else
  9. If MsgBox("Niste upisali stavke racuna." _
  10. & vbCrLf & "Za brisanje pritisnite 'OK'" _
  11. & vbCrLf & "Za nastavak rada pritisnite 'Cancel'", vbOKCancel, "GRESKA!") = vbOK Then
  12.  
  13.     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
  14.     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  15.     GoTo Kraj
  16. Else
  17. DoCmd.CancelEvent
  18. End If
  19.     Cancel = 1
  20.     End If
  21. End If
  22. Kraj:
  23. End Sub
Pozdrav