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