Ikke åbne form HVIS ingen data

vises = åbnes self ;)

Lav noget i retningen af!~)

dim antal as integer
antal = DCount("*", "forespørgslens navn")
if antal = 0 then
msgbox
else
docmd.openform
endif

Faktisk kan man også gøre som du foreslår, nemlig at teste om der er records at vise i Open event rutinen, noget a.la.

Private Sub Form_Open(Cancel As Integer)
    If Me.Count = 0 Then
        Cancel = True
    End If
End Sub

Sorry, forget that, please. :-(

Jeg huskede forkert mht. brugen af Me.Count property.

Okay, nu har jeg undersøgt det lidt mere, og det eneste jeg kan tilbyde er en variation over det svar som spg allerede har givet. Det er lidt kode man kan lægge i Open event:

Private Sub Form_Open(Cancel As Integer)
    If DCount("*", Me.Recordset.Name) = 0 Then
        Cancel = True
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)

If Me.RecordsetClone.RecordCount = 0 Then Cancel = True

End Sub

For pokker da -- selvfølgelig... 10000 tak.

På formen der skal åbnes.....

Private Sub Form_Open(Cancel As Integer)
'Åbn ikke form hvis ingen records - plus kode på cmd der kalder formen
     
    If Me.RecordsetClone.RecordCount = 0 Then Cancel = True
   
End Sub

.....og på den cmd der kalder formen....


Private Sub cmdCallfrmFindPDAuBruger_Click()
    On Error GoTo ErrHandler
    Dim sFormular As String
   
        sFormular = "frmFindPDAuBruger"
   
        DoCmd.Close
   
        DoCmd.OpenForm sFormular, acNormal, , , acFormReadOnly, acWindowNormal
   
    Exit Sub
   
    'hvis ingen records annuller åbning af form
    If Form_frmPDAdataUBruger.RecordsetClone.RecordCount = 0 Then Cancel = True
   
   
ErrHandler:
' Err_Handler er nødvendig da form kun åbnes hvis der er nogen records.
' Hvis der ikke er oprettet ErrHandler og der ikke er ledige tider => RunTime Error
  If Err = 2501 Then
   
    MsgBox "Alle enheder er tilknyttet til en bruger.", vbInformation, "Alt OK!"
   
    DoCmd.OpenForm "frmMenu", acNormal, , , acFormEdit, acWindowNormal
   
    Exit Sub
 
  Else
   
    MsgBox Err & vbNewLine & Err.Description
   
  End If
   
End Sub

Takker for hjælpen...
Giver terry de fleste af p spg. håber det er ok :)

hehe og så er jeg også tumpet.. ROFL er selvfølgelig IKKE nødvendigt at oprette en string .....

kan jo bare skrive
DoCmd.OpenForm 2frmFindPDAuBruger", acNormal, , , acFormReadOnly, acWindowNormal

i stedet for
DoCmd.OpenForm sFormular, acNormal, , , acFormReadOnly, acWindowNormal

He's a champ!~)

Jeg ved terry's løsning lyder besnærende, og han har jo også fået point for den, men jeg tror ikke du har testet den, for jeg kan ikke få den til at virke. Den vil, i hvert fald nogen gange, kun returnere en RecordCount på 0, selvom den underliggende forespørgsel faktisk vil returnere data. Hvorfor ved jeg ikke, men jeg har som sagt testet det. I mit tilfælde skal en underliggende forespørgsel returnere 1 række, men kun hvis jeg bruger DCount funktionen, vil den også vise det. Dvs. du kan risikere, at din form ikke vil blive vist, selv om der faktisk er rows at vise.

Hmm.. jeg må vist give en halv undskyldning. Jeg havde sat postsættypen til Snapshot. Det var derfor det ikke virkede. I øvrigt kan man også bruge me.recordset.recordcount i stedet for me.recordsetclone.recordcount, men det er vist bare en detalje.

Okay, fuld undskyldning herfra, terry, for nu virker det også med Snapshot. For pokker da! I nat gjorde det altså ikke... Honestly!

thanks Susanne

and no need for apologies kjulius.

Using Dcount can also fail if your not carefull. Lets say you open the form with a filter criteria.
For example: DoCmd.OpenForm "SomeFormOrOther, , , "ID = 12345678"

If the criteria wasnt included in your DCount then it wouldnt work, in this case .RecordCount would always work.