Prikazi cijelu temu 15.02.2012 16:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Kako spriječiti zatvaranje forme bez podatka u subformi
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Unload(Cancel As Integer)
  2. Dim Rs As Recordset
  3.  
  4. Set Rs = Me.RecordsetClone
  5. If Rs.RecordCount > 0 Then
  6.     Set Rs = [ImeSubforme].Form.RecordsetClone
  7.     If Rs.RecordCount > 0 Then
  8.     Cancel = 0
  9.     Else
  10.     Cancel = 1
  11.     End If
  12. End If
  13. End Sub

Ovo ce ti raditi ako ti je glabna forma na dataentry inace neces moci izaci nikako kada udjes dok nesto ne napises.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.