Débipé le programme

Question

Salut, sur une feuille de saisie, on passe de zonne de saisie en zone de saisie par l'appuie de la touche entée (c'est déjà codé et ça marche). Le problème est que mon programme émet un bip sonore désagréable pourtant l'instruction Beep n'est pas présente.

KKun peut-il m'aider SVP ?

Merci de tout coeur.

cs_Crazyht · Answer

Donne le code on vera ce qu'on peux faire :)

A++

Crazyht :)

JeanEvudautre · Answer

Salut et d'abord merci d'avoir répondu !!!

Voila donc les sources commes tu me les a demandé.


Private Sub teSaisie_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Dim rcrdMax As ADODB.Recordset
    
     Set rcrdMax = New ADODB.Recordset
    
    Set rcrdMax = DataEnvironment1.cnACCESS.Execute("SELECT MAX(ID_LIBELLE) as NBINDEX FROM REF_LIBELLE WHERE ORDRE_TABLEAU < 100")
 
 If KeyCode = vbKeyReturn Then
        ' Si l'index est strictement inférieur à 16
        If Index < rcrdMax!NBINDEX Then
            ' On passe au suivant
            teSaisie(Index + 1).SetFocus
        Else
            ' Sinon on passe à la selection du type
            comboType.SetFocus
        End If
    End If
End Sub

cs_Cadbury · Answer

g le meme pb et ce serai bien que qqn qui sache koi faire y dize koi faire paske ce bip a chak fois c ...euh nrvant :)

bonne prog

Débipé le programme

3 réponses

Discussions similaires