leila
-
Modifié par BunoCS le 7/09/2015 à 16:59
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
7 sept. 2015 à 19:22
quelqu'un peut m'aider à corriger cette procédure svp et merci d'avance
Bonjour,
Public Sub Validation()
Dim UtlNomS As String = Me.TxtNomSiege.Text & " " & Me.TxtPrenomSiege.Text
Dim UtlProfilS As String = Me.TxtProfilSiege.Text
Dim codUtl As String = "select UtlCode from Utilisateur where UtlNomAbrege = '" & TxtProfilSiege.Text & "' "
If (Me.TxtProfilSiege.Text.Contains("\") = True) Then
cmd.CommandType = CommandType.Text
cmd.Connection = conn
For i = 0 To DGV.Rows.Count - 1
sql = "insert into Utilisateur (UtlNomAbrege, UtlNom) values (" & UtlProfilS & ", ' " & UtlNomS & "')"
sql += "insert into Droit (UtlCode, BrnCode, PrdCode,OpCode) values ('" & codUtl & "', '" & Me.DGV.Item(0, i).Value & "', '" & Me.DGV.Item(1, i).Value & "','" & Me.DGV.Item(2, i).Value & " ')"
Next
cmd.CommandText = sql
'Try
cmd.ExecuteNonQuery()
' Catch ex As Exception
MsgBox(sql)
' End Try
Else
MsgBox("Erreur! Profil incorrect, Ajouter \")
Me.TxtProfilSiege.Focus()
Me.TxtProfilSiege.Enabled = True
End If
End Sub
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 7 sept. 2015 à 19:22
Bonjour,
on peut déjà (au moins) se demander comment on pourrait passer le focus à un contrôle dont- la propriété Enabled serait à False (puisque l'on veut la mettre à True).
(entre autres "curiosités")....