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