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 :
Voici le code du module
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
Quelqu'un pourrait-il m'aider s'il vous plait ?
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
Partager