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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Dim res As Recordset
Set db = CurrentDb()
Set res = db.OpenRecordset("SELECT Type_Client, Secteur, ConnuClient, ConnuClient2, Etat, SécuritéRèglementation, Amortissement FROM Lancements Where Lancements!NumLancement = " & Me.NumLancement_Texte & " ;")
' ===== On récupère les valeurs des cases à cocher et on affecte la bonne case =====
If res!Type_Client = "Equipementier" Then
Me.Choix_Type_Client.Value = 1
Else
Me.Choix_Type_Client.Value = 2
End If
If res!Secteur = "Engine" Then
Me.Secteur.Value = 1
Else
Me.Secteur.Value = 2
End If
If res!ConnuClient = 0 Then
Me.ConnuClient.Value = 2
Else
Me.ConnuClient.Value = 1
End If
If res!ConnuClient2 = 0 Then
Me.ConnuClient2.Value = 2
Else
Me.ConnuClient2.Value = 1
End If
If res!Etat = "Rangé" Then
Me.Etat.Value = 1
Else
Me.Etat.Value = 2
End If
If res!SécuritéRèglementation = 1 Then
Me.SecuriteRèglementation.Value = 1
Else
Me.SecuriteRèglementation.Value = 2
End If
If res!Amortissement = 1 Then
Me.chkAmortissement.Value = 1
Else
Me.chkAmortissement.Value = 2
End If
Select Case Me.chkAmortissement.Value
Case 1
Me!Durée_Estimée_texte.Enabled = True
Me!Rondelle_Amo_Piece_Texte.Enabled = True
Me!Nombre_pieces_Totales_Texte.Enabled = True
Case 2
Me!Durée_Estimée_texte.Enabled = False
Me!Rondelle_Amo_Piece_Texte.Enabled = False
Me!Nombre_pieces_Totales_Texte.Enabled = False
End Select |
Partager