Discussion :

[Slackk]

Bonjour,

Alors j'aurai besoin d'aide pour corriger mes erreurs dans l'application que j'ai développé. Je n'arrive pas à trouver la solution et je deviens fou !! lol

Voici mes problèmes :
- Lors du lancement deux fenetres s'ouvre j'aimerais qu'une seule s'ouvre ( ajoutEmp)

- Impossible d'ajouter un employé
- Problème dans la combobox de la fenêtre ajoutEmp

Et si vous trouvez d'autres problèmes aussi merci de me le signaler svp.

Mon appli est dans le fichier joint.

[chrismonoye]

Bonsoir,
déjà deux remarques :
dans Application.myapp, tu appelles un form en écran de démarrage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<SplashScreen>frmAjoutAgence</SplashScreen>

ce qui explique son apparition dans l'attente du chargement du formulaire principal.
Par ailleurs tu affiches deux fois le même formulaire avec, par exemple frmConsultationService.Show() et me.show dans son load.

[Slackk]

Merci j'avais pas vu !!

Sinon il me reste le gros problème d'ajouter un employé dans la base. je bloque la dessus peux tu m'aider ?

J'ai un problème dans cette fonction lorsque je veux ajouter un employé ou bien faire une modif dans la fenêtre consultation employé :

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
Module Module1
    Dim objConnection As OleDbConnection
    Dim objCommand As OleDbCommand
    Dim objDataReader As OleDbDataReader
 
    'Fonction de recherche d'un élément dans un ListVIew
    Public Function RechercheValeur(ByVal ListView As ListView, ByVal Item As String, ByVal NumSubItem As Integer, ByVal Nbele As Integer) As Integer
        Dim Resultat, I As Integer
        Dim Trouve As Boolean
 
        Resultat = -1
        I = 0
        Trouve = False
        Do While (Trouve = False And I < Nbele)
            If Item = ListView.Items(I).SubItems(NumSubItem).Text Then
                Trouve = True
                Resultat = I
            Else
                I = I + 1
            End If
        Loop
 
        Return Resultat
 
    End Function

[nah666]

Je pense que beaucoup sont prets à t'aider mais il faut que tu sois plus précis dans tes questions.

Tu as un problème dans ta méthode : Lequel ?

[Slackk]

Bonjour,

Alors c'est bon il me semble avoir réglé le problème de l'ajout d'employé mais il me reste le soucis de pouvoir modifier les informations de l'employé dans la fenêtre consultation employé.

Lorsqu'on lance l'appli, aller dans consultation employé (dans les onglets), faire une modif dans un champs et ensuite clic sur modifier informations. A ce moment il me renvoie un erreur et je ne comprends pas d'ou ça vient. Et il me renvoie à la methode que j'ai ecrite juste au dessus.