Bonjour le Forum,
Bonjour @+Thierry,
Juste un petit message pour te dire que je suis parvenu a résoudre le problème N° 2 du message précédent voila le code que tu avais créé :
Private Sub CheckingDevis()
Dim i As Integer
With Me
For i = 1 To UBound(Devis)
If UCase(CStr(.CbxDevis.Value)) = UCase(CStr(Devis(i, 2))) Then
MsgBox "Attention le devis numéro " & .CbxDevis.Value & " existe déjà dans la base"
End If
Next i
End With
End Sub
Je l'ai transformé comme ça :
Private Sub CheckingDevis()
Dim i As Integer
With Me
For i = 1 To UBound(Devis)
If UCase(CStr(.CbxDevis.Value)) = UCase(CStr(Devis(i, 2))) Then
MsgBox "Attention le devis numéro " & .CbxDevis.Value & " existe déjà dans la base"
End If
If UCase(CStr(.CbxDevis.Value)) = UCase(CStr(Devis(i, 2))) Then
CbxDevis.Value = ""
End If
Next i
End With
End Sub
Je progresse, je progresse mais à cette vitesse la je serais grabataire avant d'avoir atteint le quart de ton nivo, il ne m'a falut que 3 a 4 heures pour arriver a ce résultat
) lol
Mais ce n'ai pas ca qui va m'arreter !!!!!!!!!!
Par contre je n'ai pas la moindre idée pour résoudre le probleme d'affichage du format date dans l'onglet "devis" ni pour résoudre le cas 1
1) lorsque l'on est en visualisation/modification de Devis et que l'on remonte un devis on voit apparaitre la date dans "TxbDate" du formulaire
est il possible d'obtenir ca quand on est en mode Création sans avoir à le taper.
Merci encore pour ton aide
bonne journée ,
Bon week-end,
A+
Jocelyn