[vb6] Beep

[tomhead]

Ho inserito Beep nel codice da non sento alcun suono. Devo impostare qualcosa dal pannello di controllo?

[junx]

mostra il codice

[tomhead]

Private Function esArticolo(codice As long) As String
On Error GoTo errore
Dim rs As New ADODB.Recordset
    rs.Open "SELECT * from prodotti WHERE codice = " & codice, db, adOpenForwardOnly, adLockReadOnly
    If Not rs.EOF Then
        codiceArticolo = codice & " - ARTICOLO INESISTENTE"
        Beep
        DoEvents
    End If
    rs.Close
    Set rs = Nothing
    Exit Function
errore:
    codiceArticolo = codice & " - ARTICOLO INESISTENTE"
    Beep
    DoEvents
End Function

è una funziona che se:
il record che cerco non esiste mi (dovrebbe) fare il beep. In entrambi icasi restituisce una stringa.

[junx]

If Not rs.EOF Then

Prova a sostituirlo con

If rs.BOF And rs.EOF Then

fammi sapere!
Ciao.