Conflit de code dans même application (vb)

Private Sub cmd_ajouter_Click()
'se référer aux commentaires sub p_afficher_frame2
p_afficher_frame2
'text_licence prend le focus
text_licence.SetFocus
'remettre les zones textes à blanc
p_blanc

text_nom.Visible = False
text_prenom.Visible = False
text_datnais.Visible = False
text_sexe.Visible = False

'créer un nouvel enregistrement
rs.AddNew
If rs.EOF Then rs.MoveLast

End Sub
Sub p_test_entree()

Const Alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZÜÄËÏÉÈÀÙabcdefghijklmnopqrstuvwxyzùéèàäëï-"

'verification du type de caractères saisi: alpha obligatoire
'déclaration et initialisation du pointeur a
Dim h As Integer
Dim Dum As String
Dim Rep As Long

Dum = "Caractère"
h = 0
'pointer a sur toute la longueur de la saisie à partir du premier caractère
For h = 1 To Len(Dum)
'si un ou plusieurs caractères saisis sont différents de A à Z alors
Rep = InStr(1, Alphabet, UCase(Trim(Mid(Dum, h, 1))), vbTextCompare)
If (Rep = 0) Then
'message
MsgBox "la saisie ne peut comporter que des lettres"
'remise à blanc et reprise du focus par text_prenom
Dum = ""

'sortir
Exit Sub
'fin de if
End If
'fin de la boucle a
Next h

End Sub

Sub text_licence_lostfocus()
If Screen.ActiveControl.Name = "cmd_annuler" Then Exit Sub
If Screen.ActiveControl.Name = "cmd_fermer" Then Exit Sub

'verification du type de caractères saisi: numérique obligatoire
'déclaration et initialisation du pointeur i
Dim i As Integer
'pointer i sur toute la longueur de la saisie à partir du premier caractère
For i = 1 To Len(text_licence.Text)
'si un ou plusieurs caractères saisis sont différents de 0 à 9 alors
  If UCase(Trim(Mid(text_licence.Text, i, 1))) Like "[!0-9]" Then
  'message
   MsgBox "la saisie ne peut comporter que des chiffres"
   'remise à blanc de text_licence
   text_licence.Text = ""
   'repositionner le focus sur text_licence
   text_licence.SetFocus
   'sortir de la boucle for
   Exit Sub
   'fin de if
   End If
   'fin de for
Next i


'si la zone texte de text_licence ne contient pas 15 caractère alors
If Len(text_licence) <> 15 Then
'message
MsgBox "la saisie de 15 caractères numérique  est obligatoire"
'remise à blanc de la zone texte et reprise du focus
text_licence.Text = ""
text_licence.SetFocus
'sortir du if
Exit Sub
'fin de if
End If

'le texte nom devient visible et prend le focus
text_nom.Visible = True
text_nom.SetFocus


End Sub



Sub text_nom_lostfocus()

'texte_nom en majuscules
text_nom.Text = UCase(text_nom.Text)

'verification du type de caractères saisi: alpha obligatoire

p_test_entree


'text_prenom devient visible et prend le focus
text_prenom.Visible = True
text_prenom.SetFocus

End Sub





Private Sub text_prenom_LostFocus()

'la premiere lettre du prénom en majuscule les autres en minuscules
'si c'est un prénom composé la première lettre de chaque prénom en maj les autres en min

'déclaration et initialisation du pointeur m
Dim m As Integer
m = 0

'dans la saisie, la première lette à partir de la gauche  est en majuscule
'et à partir de la deuxième lettre en minuscule
text_prenom = UCase(Left(text_prenom, 1)) & LCase(Mid(text_prenom, 2))
'si le pointeur repère un blanc " " un point "." ou un tiret "-"
If InStr(text_prenom, " ") > 0 Or InStr(text_prenom, "-") > 0 Or InStr(text_prenom, ".") > 0 Then
'le pointeur repère ou commence blanc,point ou tiret + le premier caractère alpha suivant
For m = 2 To Len(text_prenom)
'sélectionner le tiret le blanc ou le point
Select Case Mid(text_prenom, m, 1)
'dans le cas ou il s'agit d'un tiret d'un point ou d'un blanc
Case " ", "-", "."
'afficher le second prénom précédé d'un blanc avec le prochain caractère en majuscule et à partir du second en min
text_prenom = Trim(Left(text_prenom, m - 1)) & " " & UCase(Mid(text_prenom, m + 1, 1)) & Mid(text_prenom, m + 2)
'fin de select
End Select
'fin de la boucle m
Next m
'fin de if
End If

'verification du type de caractères saisi: alpha obligatoire
p_test_entree

text_datnais.Visible = True
text_datnais.SetFocus


End Sub

Private Sub text_datnais_LostFocus()
'saisir la date selon un format imposé
'si la saisie de la date n'est pas du format jj/mm/aa alors
   If (text_datnais Like "##/##/####") = False Then
   'message
MsgBox "Format valide = JJ/MM/AAAA "
'remise à blanc et reprise de focus par text_datnais
text_datnais = ""
text_datnais.SetFocus
'sortir
Exit Sub
'fin de if
End If

'text_sexe visible et prise de focus
text_sexe.Visible = True
text_sexe.SetFocus

End Sub


Private Sub text_sexe_LostFocus()
'verification du type de caractères saisi: alpha obligatoire
'déclaration et initialisation du pointeur e
Dim e As Integer
e = 0
'pointer e sur toute la longueur de la saisie à partir du premier caractère
For e = 1 To Len(text_sexe.Text)
'si un ou plusieurs caractères saisis sont différents de A à Z alors
If UCase(Trim(Mid(text_sexe.Text, e, 1))) Like "[!A-Z]" Then
'message
MsgBox "la saisie ne peut comporter que des lettres"
'remise à blanc et reprise du focus de text_sexe
text_sexe.Text = ""
text_sexe.SetFocus
'sortir
Exit Sub
'fin de if
End If
'fin de la boucle for
Next e
'si la longueur de la saisie est différente d'un caractère alors
'If Len(text_sexe) <> 1 Then
If (text_sexe.Text) = "F" Then
If (text_sexe.Text) = "M" Then
Else
MsgBox "saisie incorrecte : M ou F"

Exit Sub
End If
End If
'afficher le caractère en majuscule
text_sexe = UCase(text_sexe.Text)

End Sub

Private Sub cmd_modifier_Click()
rs.Edit
p_transfere_donnees_disque
rs.Update

'afficher la frame 2
Frame2.Visible = True
'toutes les zones textes sont invisibles sauf text_licence
text_nom.Visible = True
text_prenom.Visible = True
text_datnais.Visible = True
text_sexe.Visible = True
p_synchro_ecran

End Sub