MsgBox voor query wanneer geen records

[scw]

Goedeavond,

Ik heb een query welke controleert of er dubbele records in een tabel zitten. Graag zou ik een MsgBox willen, voordat de query geopend wordt, met de melding indien er geen dubbele records zijn. Anders kan de query gewoon geopend worden in het scherm... Momenteel pas ik de volgende code toe, maar het werkt nog niet:

Private Sub cmdCheck_Click()
On Error GoTo ErrorHandler

    DoCmd.OpenQuery "qryDuplicaten", acViewNormal

    If Err = 0 Then
        Query!qryDuplicaten.Visible = True
    ElseIf Err.Number = 2501 Then
        MsgBox "Geen dubbele records gevonden.", vbInformation, "Duplicaten"
    Else
        MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    End If
End If
ExitHandler:
Exit Sub
ErrorHandler:
If Err = 2501 Then
    Resume ExitHandler
Else
    MsgBox Err.Description
    Resume ExitHandler
End If
End Sub

Wat moet ik veranderen om het wel te laten werken??

 

[OctaFish]

Je kan dit eens proberen:

Private Sub cmdCheck_Click()
    With CurrentDb.OpenRecordset("qryDuplicaten")
        If .RecordCount > 0 Then
            .Close
            DoCmd.OpenQuery "qryDuplicaten", acViewNormal
        Else
            MsgBox "Geen records vandaag..."
            .Close
        End If
    End With
End Sub

 

[Quatsch]

Ik snap niet zo goed waarom je je dit eerst afvraagt, dubbele records. Als je je tabellen goed opzet kan je toch geen dubbele records krijgen.

PS
leuke oplossing michel

 

[scw]

gelukt, het werkt!

Jah daarmee werkt het Octafish! Hartelijk dank!

@ Quatsch: het ging hier om een import gelinkt vanuit een excel-bestand, ik had eigenlijk dubbele orders moeten zeggen i.p.v. records.

Nogmaals dank,

scw :thumb: