CARNET D'ADRESSE

Public Class LoginForm1
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim o As New ClassCarnet
        Dim ch As String = o.Chemin
        Dim db As String = o.DB
        o.cnstr(ch, db)
        o.Connection()
        Dim tbl As String = "MotPass"
        Dim sql As String = "select * from MotPass"
        o.Dts_Dta_Dtt_Create(tbl, sql)
        Dim i As Integer
        o.RowNber(i)
        o.txtbox(User, "Login", i)
        o.txtbox(Psw, "MotPass", i)
        If Me.UserTxt.Text <> "" And Me.PswTxt.Text <> "" Then ' 
            If UserTxt.Text = User.Text And PswTxt.Text = Psw.Text Then

                Me.Close()
                Form1.Show()
            Else
                MsgBox("Erreur, veuillez recommencer")
            End If
        Else
            MsgBox("Erreur, veuillez recommencer")
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
        Application.Exit()

    End Sub

    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        User.Hide()
        User.Clear()
        Psw.Hide()
    End Sub
End Class
'---------------------------------------------------------------------------------------------------------------------------
Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Public DB As String = "C_Adresse.mdb;"
    Public Chemin As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & Application.StartupPath & "\" & DB
    Public cn As New OleDbConnection
    Dim Cmd As New OleDbCommand
    Dim Dts As New DataSet
    Dim Dtt As New DataTable
    Dim rd As OleDbDataReader
    Dim Dta As New OleDbDataAdapter(Cmd)
    ' Déclaration Objet DataRow (ligne)
    Dim Dtrw As DataRow
    Dim Dtv As New DataView
    Dim sql As String
    Dim strcn As String
    Private CmdB As OleDbCommandBuilder
    'Numéro de la ligne en cours
    Dim RowNumber As Integer

    Private Sub connection(ByVal Chemin As String)
        Dim cn As New OleDbConnection
        cn.ConnectionString = Chemin
        Try
            'commande
            cn.Open() ' ouverture de la connxion
        Catch ex As Exception
            MsgBox(ex.Message)
            End ' quitter l'application
        End Try
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtRech.Visible = False
        Me.Btn_rech.Visible = False
        Me.Visible = False
        Me.Hide()
        Accueil.ShowDialog()
       
        Chemin = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & Application.StartupPath & "\" & DB

        cn.ConnectionString = Chemin

        Try
            'commande
            cn.Open() ' ouverture de la connxion
        Catch ex As Exception
            MsgBox(ex.Message)
            End ' quitter l'application
        End Try
       'Initialisation de l'instruction SQL
        sql = "SELECT * FROM Carnet"
        'Instancer un objet Commande & connexion de l'objet Command
        Cmd = New OleDbCommand(sql, cn)
        Cmd.CommandText = sql
        Cmd.Connection = cn
        'Instancer un objet Adapter
        Dta = New OleDbDataAdapter(Cmd)
        'Avec l'aide de la propriété Fill du DataAdapter charger leDataset()
        Dta.Fill(Dts, "Carnet")
        'Mettre dans un Objet DataTable une table du DataSet
        Dtt = Dts.Tables("Carnet")
        Dtv = Dts.Tables("Carnet").DefaultView
        Dtv.AllowEdit = True
        DataGridView1.DataSource = Dtv
        If RowNumber < 0 Then Exit Sub
        ''Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
        If RowNumber > Dtt.Rows.Count - 1 Then Exit Sub
        'Dtt.Rows(Numéro de lignes).Item( Nom de colonne) donne
        Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
        Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
        Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
        Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
        Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
        Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
        Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
        Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél") '
        Me.Btn_Aj.Enabled = False
        '-------------------------
        With Me.DataGridView1
            'Une ligne sur 2 en bleue
            .RowsDefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Blue
            'Interdir la selection de plusieurs cellules
            .MultiSelect = True
            'Empeche la saisie dans les cellules (en faite, le permet par
            'programmation)
            .EditMode = DataGridViewEditMode.EditProgrammatically
        End With
        'Gestion des en-têtes de colonne
        With DataGridView1.ColumnHeadersDefaultCellStyle '
            .BackColor = Color.Red 'ça marche pas!!??
            .ForeColor = Color.Blue
            .Font = New Font(DataGridView1.Font, FontStyle.Italic) ' en gras
        End With
       
        ''--------------------------
        'Dim cn1 As New OleDbConnection(Chemin)
        'Dim rd1 As OleDbDataReader
        'Dim sql1 As String
        'Try
        '    cn1.Open()
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try
        'sql1 = "SELECT Carnet.Carnet_NomPren FROM Carnet GROUP BY Carnet.Carnet_NomPren "
        ''Instancer un objet Commande & connexion de l'objet Command
        'Dim Cmd1 As New OleDbCommand()
        'Cmd1 = cn1.CreateCommand
        'Cmd1.CommandText = sql1
        'Cmd1.Connection = cn1
        'rd1 = Cmd1.ExecuteReader()
        'Do While rd1.Read()
        '    txtRech1.Items.Add(rd1.GetValue(0)) '
        'Loop
        'rd1.Close()
        'cn1.Close()
        '------------------------------

        cn.Close()

    End Sub
    Private Sub BtnDébut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDébut.Click
        RowNumber = 0 'pour la première.


        Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
        Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
        Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
        Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
        Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
        Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
        Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
        Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
    End Sub
    Private Sub BtnSuiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuiv.Click
        '---------------------------------
       

        If RowNumber >= 0 And RowNumber < Dtt.Rows.Count - 1 Then ''
            RowNumber += 1
            'incrémente le numéro de la ligne en cours puis on affiche.
            Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
            Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
            Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
            Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
            Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
            Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
            Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
            Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
        End If
    End Sub
    Private Sub BtnPécéd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPécéd.Click
        If RowNumber > 0 And RowNumber <= Dtt.Rows.Count - 1 Then 'RowNumber >= 0
            RowNumber -= 1 'pour la précédente.

            Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
            Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
            Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
            Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
            Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
            Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
            Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
            Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
        End If
    End Sub

    Private Sub BtnFin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFin.Click
        RowNumber = Dtt.Rows.Count - 1 'pour la dernière.

        Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
        Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
        Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
        Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
        Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
        Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
        Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
        Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
    End Sub

    
    Private Sub Btn_Aj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Aj.Click

        Try
            Dtrw = Dts.Tables("Carnet").NewRow()
            'Modifier les valeurs des champs en récupérant le contenu
            'des(TextBox)
            Dtrw("Carnet_ref") = Me.Carnet_ref.Text
            Dtrw("Carnet_NomPren") = Me.Carnet_NomPren.Text '
            Dtrw("Carnet_DateNaiss") = Me.Carnet_DateNaiss.Text
            Dtrw("Carnet_Adresse") = Me.Carnet_Adresse.Text
            Dtrw("Carnet_Ville") = Me.Carnet_Ville.Text
            Dtrw("Carnet_CP") = Me.Carnet_CP.Text '
            Dtrw("Carnet_Pays") = Me.Carnet_Pays.Text
            Dtrw("Carnet_Tél") = Me.Carnet_Tél.Text
            Dts.Tables("Carnet").Rows.Add(Dtrw)
            CmdB = New OleDbCommandBuilder(Dta) 'Pour modifier les valeurs changées dans le DataAdapter
            Dta.Update(Dts, "Carnet") 'Mise à jour
            'On vide le DataSet et on le 'recharge' de nouveau.
            Dts.Clear()
            Dta.Fill(Dts, "Carnet")
            Dtt = Dts.Tables("Carnet")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Btn_Modif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Modif.Click
        ' Extraire l'enregistrement courant
        '------------------
      
        '---------------------
        Dtrw = Dts.Tables("Carnet").Rows(RowNumber)
        'Modifier les valeurs des champs en récupérant le contenu
        'des(TextBox)
        Dtrw("Carnet_ref") = Me.Carnet_ref.Text
        Dtrw("Carnet_NomPren") = Me.Carnet_NomPren.Text '
        Dtrw("Carnet_DateNaiss") = Me.Carnet_DateNaiss.Text
        Dtrw("Carnet_Adresse") = Me.Carnet_Adresse.Text
        Dtrw("Carnet_Ville") = Me.Carnet_Ville.Text
        Dtrw("Carnet_CP") = Me.Carnet_CP.Text '
        Dtrw("Carnet_Pays") = Me.Carnet_Pays.Text
        Dtrw("Carnet_Tél") = Me.Carnet_Tél.Text

        'Pour modifier les valeurs changées dans le DataAdapter
        CmdB = New OleDbCommandBuilder(Dta)
        'Mise à jour
        Dta.Update(Dts, "Carnet")
        'On vide le DataSet et on le 'recharge' de nouveau.
        Dts.Clear()
        Dta.Fill(Dts, "Carnet")
        Dtt = Dts.Tables("Carnet")
    End Sub

    Private Sub Btn_Eff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Eff.Click
        Dtrw = Dts.Tables("Carnet").NewRow()
        'Modifier les valeurs des champs en récupérant le contenu
        'des(TextBox)

        'Effacer l''enregistrement en cours:
        Dts.Tables("Carnet").Rows(RowNumber).Delete()
        'Pour modifier les valeurs changées dans le DataAdapter
        CmdB = New OleDbCommandBuilder(Dta)
       
        Dtrw("Carnet_ref") = Me.Carnet_ref.Text
        Dtrw("Carnet_NomPren") = Me.Carnet_NomPren.Text '
        Dtrw("Carnet_DateNaiss") = Me.Carnet_DateNaiss.Text
        Dtrw("Carnet_Adresse") = Me.Carnet_Adresse.Text
        Dtrw("Carnet_Ville") = Me.Carnet_Ville.Text
        Dtrw("Carnet_CP") = Me.Carnet_CP.Text '
        Dtrw("Carnet_Pays") = Me.Carnet_Pays.Text
        Dtrw("Carnet_Tél") = Me.Carnet_Tél.Text

        'Mise à jour
        Dta.Update(Dts, "Carnet")
        'On vide le DataSet et on le 'recharge' de nouveau.
        Dts.Clear()
        Dta.Fill(Dts, "Carnet")
        Dtt = Dts.Tables("Carnet")
    End Sub
   

    Private Sub Btn_rech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_rech.Click
        Btn_rech.Enabled = True
        BtnNouv.Enabled = False
        Btn_Aj.Enabled = False


        If Btn_rech.Text = "Recherche" Then
            Btn_rech.Text = "Annuler"
            'on vide le DataSet pour le charger avec
            'les données de la recherche
            Dts.Clear()

            If CheckNomPren.Checked = True Then
                Me.txtRech.Visible = True
                Me.Btn_rech.Visible = True
                'recherche par caractere quelque soit sa place dans le mots
                'sql = "SELECT * FROM Carnet WHERE Carnet_NomPren LIKE '%" & txtRech.Text & "%';"
                'Recherche de mots commencant par les 1erés lettres 
                sql = "SELECT * FROM Carnet WHERE Carnet_NomPren LIKE '" & txtRech.Text & "%';"
                Cmd = New OleDbCommand(sql)
                Dta = New OleDbDataAdapter(Cmd)
                Cmd.Connection() = cn
                Dta.Fill(Dts, "Carnet")
                Dtt = Dts.Tables("Carnet")
                Dtv = Dts.Tables("Carnet").DefaultView
                Dtv.AllowEdit = True
                'si aucunes données existent pour ce nom alors
                If RowNumber > Dtt.Rows.Count - 1 Then
                    MsgBox("Il n'existe aucunes données pour le nomPrenom  !Données inexistantes...", MsgBoxStyle.Exclamation)
                    If MsgBoxResult.Ok Then
                        Btn_rech.Text = "Recherche"
                        CheckNomPren.Checked = False
                        Me.txtRech.Text = ""
                        Me.txtRech.Focus()
                    End If
                    Exit Sub

                Else

                    'sinon afichage des données dans la Datagrid
                    'et les textbox

                    DataGridView1.DataSource = Dtv
                    Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
                    Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
                    Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
                    Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
                    Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
                    Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
                    Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
                    Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
                    Btn_Modif.Enabled = True
                    Btn_Eff.Enabled = True

                    BtnDébut.Enabled = True
                    BtnSuiv.Enabled = True
                    BtnPécéd.Enabled = True
                    BtnFin.Enabled = True

                End If

            ElseIf CheckVille.Checked = True Then
                Me.txtRech.Visible = True
                Me.txtRech.Text = ""
                Me.Btn_rech.Visible = True
                'création de la requête,exécution de la commande,
                'remplissage du DataAdapter,du DataSet et de la DataTable
                sql = "select * from Carnet where Carnet_Ville = '" & txtRech.Text & "'"
                Cmd = New OleDbCommand(sql)
                Dta = New OleDbDataAdapter(Cmd)
                Cmd.Connection() = cn
                Dta.Fill(Dts, "Carnet")
                Dtt = Dts.Tables("Carnet")
                Dtt = Dts.Tables("Carnet")
                Dtv = Dts.Tables("Carnet").DefaultView
                Dtv.AllowEdit = True
                '---------------------------------------


                'si aucunes données existent pour ce nom alors
                If RowNumber > Dtt.Rows.Count - 1 Then


                    MessageBox.Show("Il n'existe aucunes données pour la ville " & txtRech.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    If MsgBoxResult.Ok Then
                        Me.Btn_rech.Text = "Recherche"
                        Me.CheckVille.Checked = False
                        Me.txtRech.Text = ""
                        Me.txtRech.Focus()
                    End If
                    'Exit Sub

                Else

                    'sinon afichage des données dans la Datagrid
                    'et les textbox
                    DataGridView1.DataSource = Dtv
                    Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
                    Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
                    Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
                    Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
                    Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
                    Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
                    Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
                    Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")

                    Btn_Modif.Enabled = True
                    Btn_Eff.Enabled = True

                    BtnDébut.Enabled = True
                    BtnSuiv.Enabled = True
                    BtnPécéd.Enabled = True
                    BtnFin.Enabled = True

                End If
            ElseIf Me.CheckNomPren.Checked = False And Me.CheckVille.Checked = False Then
                'aucune case n'est cochées donc
                Me.txtRech.Visible = False
                Me.Btn_rech.Visible = False
                Btn_rech.Text = "Annuler"
                MsgBox("clicker sur le bouton de Annuler pour revenir au début!, Erreur...", MsgBoxStyle.Information, "Clicker encore")
                If MsgBoxResult.Ok Then
                    Me.Btn_rech.Text = "Recherche"
                End If
            End If
        ElseIf Me.Btn_rech.Text = "Annuler" Then
            Btn_rech.Text = "Recherche"
            Me.Btn_Aj.Enabled = True
            Me.BtnNouv.Enabled = True
            'initialisation des contrôle pour une recherche
            Me.txtRech.Text = ""
            Me.CheckNomPren.Checked = False
            Me.CheckVille.Checked = False

            'on vide le DataSet pour le charger avec
            'toutes les données de la table

            Dts.Clear()
            sql = "select * from Carnet "
            Cmd = New OleDbCommand(sql)
            Dta = New OleDbDataAdapter(Cmd)
            Cmd.Connection() = cn
            Dta.Fill(Dts, "Carnet")
            Dtt = Dts.Tables("Carnet")
            Dtv = Dts.Tables("Carnet").DefaultView
            Dtv.AllowEdit = True
            DataGridView1.DataSource = Dtv
            If RowNumber < 0 Then Exit Sub
            ''Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
            If RowNumber > Dtt.Rows.Count - 1 Then Exit Sub
            Me.DataGridView1.DataSource = Dtv
            Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
            Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
            Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
            Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
            Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
            Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
            Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
            Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
            '--------------------------
            Btn_rech.Text = "Recherche"
            ' vider le datagridview
            'Me.DataGridView1.Rows.Clear()
        End If


    End Sub

                '------------------------------

   

    Private Sub BtnNouv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNouv.Click

        If BtnNouv.Text = "Nouveau" Then

            Dim tb() As TextBox = {Carnet_ref, Carnet_NomPren, Carnet_DateNaiss, Carnet_Adresse, _
                                 Carnet_Ville, Carnet_CP, Carnet_Pays, Carnet_Tél}
            Dim x As Byte
            For x = 1 To 7
                tb(x).Text = ""
            Next
            Me.BtnNouv.Text = "Annuler"
            Me.Btn_Aj.Enabled = True
        Else
            If RowNumber > Dtt.Rows.Count - 1 Then

                Btn_Aj.Enabled = False
                BtnNouv.Text = "Ajouter"

            Else

                'aller au début du fichier
                RowNumber = 0
                If RowNumber < 0 Then Exit Sub
                ''Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
                If RowNumber > Dtt.Rows.Count - 1 Then Exit Sub
                ' Dtt.Rows(Numéro de lignes).Item( Nom de colonne) donne
                Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
                Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
                Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") ' 
                Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") ' 
                Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
                Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") ' 
                Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") ' 
                Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
                Me.BtnNouv.Text = "Nouveau"
                Me.Btn_Aj.Enabled = False
            End If
        End If
    End Sub

    Private Sub CheckNomPren_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckNomPren.CheckedChanged
        Me.txtRech.Visible = True
        Me.Btn_rech.Visible = True
    End Sub

    Private Sub CheckVille_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckVille.CheckedChanged
        Me.txtRech.Visible = True
        Me.Btn_rech.Visible = True
    End Sub

    
   
    Private Sub Btn_rech_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_rech.Click

    End Sub

    Private Sub txtRech_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRech.TextChanged

    End Sub
End Class

Télécharger le zip

08 octobre 2008 16:37:12 :

petite mise à jour car erreur de mise en ligne

12 octobre 2008 21:57:42 :

Refaire un zip car certain trouve ke le zip n'est pas accessible

24 octobre 2008 03:41:37 :

Le module de recherche a été remanié et permet une recherche par caractére. le login est opérationnel.Le formulaire principal a son look plus tendance.

24 octobre 2008 03:55:28 :

Mise à jour du module de recherche qui peut s'executer par le début des lettres d'un mots. Le login est opérationnel. Le design du formulaire principal est plus tendance.