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
| Option Compare Database
Private Sub Commande84_Click()
If IsNull(Machine) Or IsNull(Location) Or IsNull(Norm) Or IsNull(Bar_Diam) Or IsNull(Option10) Then 'Si un des champs du formulaire est nul, afficher un message d'erreur.
MsgBox "Please fill all manadatory fields." & vbCrLf & "Veuillez remplir tous les champs obligatoires."
Else
DoCmd.Requery (Single_Search_Rqst) ' Sinon, executer une requête et rafraichir le formulaire
Form.Refresh
If Results.ListCount = 0 Then 'Si pas de résultat dans la recherche, message d erreur
MsgBox "No result for your research. The bar diameter is probably too high for the selected norm. " & vbCrLf & "If you don't find the adapted machine, location, norm or option, please contact the identification team. " & vbCrLf & vbCrLf & "Aucun resultat pour votre recherche. Le diametre de barre est probablement trop eleve pour la norme sélectionnee." & vbCrLf & "Si vous ne trouvez pas la machine, l'emplacement, la norme ou l'option adaptes, veuillez contacter l'equipe d'identification."
End If
End If
End Sub
'Les sub qui suivent permettent de réinitialiser les listes déroulantes interdépendantes Location, Machine et Norm.
Private Sub Location_Change()
Form.Refresh
Norm.Value = ""
Option10.Value = ""
End Sub
Private Sub Machine_Change()
Form.Refresh
Norm.Value = ""
Location.Value = ""
Option10.Value = ""
End Sub
Private Sub Norm_Change()
Option10.Value = ""
End Sub |
Partager