Bonjour à tous,

Je fais une application en vb.net 2010, et voici le problème :

J'utilise un TextBox dans lequel je saisi le numéro de la semaine.
Au moment où je presse la touche entrée il doit appeler le module me permettant de :
  • donner la valeur d'un champs correspondant au Début Semaine au contrôle DateTimePicker (dtpDebutSemaine)
  • donner la valeur d'un champs correspondant à la Fin de Semaine au contrôle DateTimePicker (dtpFinSemaine)

ex: si je saisie 7 puis Entrer alors :
  • dtpDebutSemaine = 10/2/2014
  • dtpFinSemaine = 14/2/2014

Ceci fonctionne très bien quand le code se trouve directement dans la procédure, mais dès lors que je le copie dans un module et que j'appelle se module dans ma procédure il ne réagi plus.

Voici le code de la procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub txtNoCalendarSemaine_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNoCalendarSemaine.KeyDown, txtNoCalendarSemaine.TextChanged
        'Private Sub txtNoCalendarSemaine_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtNoCalendarSemaine.TextChanged
        If e.KeyCode = Keys.Enter Then
            Call noSemaine(sender, e)
            MsgBox("Touche Entrer Pressée")
        End If
    End Sub
Voici le code du module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Module modNoSem
    Public Sub noSemaine(ByVal sender As Object, ByVal e As KeyEventArgs)
        Dim semaineDebut As String = frmBReeducateur.dtpDebut.Text
        Dim SemaineFin As String = frmBReeducateur.dtpFin.Text
        Dim noSemaine As Integer = Val(frmBReeducateur.txtNoCalendarSemaine.Text)
 
        'Création de la requête sql
        secondSQL = "select dateDebutSem, dateFinSem from semaine where noSemaine LIKE '" & noSemaine & "%'"
 
        dta = New OleDbDataAdapter(secondSQL, con)
 
        dta.Fill(dts, "semaine")
        dtt = dts.Tables("semaine")
        dta.Dispose()
 
        If e.KeyCode = Keys.Enter Then
            For i = 0 To dts.Tables(2).Rows.Count - 1
                semaineDebut = dts.Tables(2).Rows(i).Item(0)
                SemaineFin = dts.Tables(2).Rows(i).Item(1)
            Next
        End If
    End Sub
End Module
Quelqu'un pourrait-il m'aider s'il vous plait ?