Appeler un module via un TextBox avec Bouton Entrer

Version imprimable

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:

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:

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 ?

12/02/2014, 16h13
Kropernic

Dans ton module, tu accèdes à tes contrôles en faisant quelque de ce genre MaForm.MonDateTimePicker.Value = la_valeur_qui_va_bien.

Du coup, l'instance de la form utilisé n'est probablement pas la bonne.

Passe ton formulaire en paramètre à ton module et utilise ce paramètre pour accéder à tes DateTimePicker's. Cela devrait allez mieux.

Bonjour,

Il vaut mieux utiliser des paramètres qui servent plus directement et faire une méthode qui sera utilisable depuis n'importe quelle fenêtre.

Code:

1
2
3
4
5
6
7
    Public Sub noSemaine(ByVal NoCalendarSemaine As Integer, ByRef dtpDebut As DateTimePicker, ByRef dtpFin As DateTimePicker)
        ' recherche des dates de la semaine
        '...
        '...
        dtpDebut.Text = ' ...
        dtpFin.Text = ' ...
    End Sub

Et l'appel
Avec "dtpDebut" et "dtpFin" qui sont des DateTimePicker

Code:

1
2
3
4
5
6
7
8
    Private Sub txtNoCalendarSemaine_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            Dim NumSemaine As Integer
            If Integer.TryParse(txtNoCalendarSemaine.Text, NumSemaine) Then
                noSemaine(NumSemaine, dtpDebut, dtpFin)
            End If
        End If
    End Sub

12/02/2014, 22h51
nadong

Merci à vous pour vos réponses.

Pour le moment aucune réaction non plus.
Pourquoi as-tu déclaré noCalendarSemaine dans le module et numSemaine dans le formulaire ?
Que dois-je en faire ?

PS : as-tu volontairement supprimer ma requête ?

Merci d'avance

Citation:

Envoyé par nadong

Pour le moment aucune réaction non plus.
PS : as-tu volontairement supprimer ma requête ?

Les points de suspensions représentent la suite de ton code ( ta requête, ...) qui renseigneront tes DateTimePicker, à toi de compléter (je n'ai pas ta BDD pour tester)

Citation:

Envoyé par nadong

Pourquoi as-tu déclaré noCalendarSemaine dans le module et numSemaine dans le formulaire ?
Que dois-je en faire ?

Ce sont des noms de variables arbitraires afin de pouvoir travailler. Tu peux les nommer comme tu veux

Citation:

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

Teste avec le code en dur pour voir le résultat avant de mettre ta requête
J'ai donné le même nom de semaine que celle que tu utilises pour ta requête afin que tu puisses mieux suivre (attention, c'est le même nom que ta méthode, cela peut porter à confusion)
Code:

1 2 3 4 5 6 7 8 9 Public Sub noSemaine(ByVal NoSemaine As Integer, ByRef dtpDebut As DateTimePicker, ByRef dtpFin As DateTimePicker) ' recherche des dates de la semaine ' Création de la requête sql Dim secondSQL As String = "select dateDebutSem, dateFinSem from semaine where noSemaine LIKE '" & noSemaine & "%'" '... '... dtpDebut.Text = "10/2/2014" ' pour tester que cela fonctionne ; ensuite remplacer le code de date en dur par le résultat de ta requête dtpFin.Text = "16/2/2014" ' pour tester que cela fonctionne ; ensuite remplacer le code de date en dur par le résultat de ta requête End Sub
S'il y a une erreur indique le message.
[Edit]Pourquoi utiliser like sur "noSemaine" ?
Sinon tu peux utiliser des string en paramètre et mettre à jour les DateTimePicker après l'appel de ta méthode. Il existe plusieurs solutions.[/Edit]

Au fait il vaut mieux utiliser les requettes paramétrées : Voir Tuto ou Faq.