Valeur par defaut
Bonjour a tous,
Je souhaiterais pouvoir continuer a naviguer sur le formulaire sans que j'ai ce message d'erreur:
La ou j'ai des formules de conversion en colonnes 19/20/21/22, et que je n'ai pas remplit mes colonnes 17 et 18 car je n'ai pas obtenu de postions, il faudrait mettre par défaut quand je clique sur le bouton RECORD ou MODIFY les valeurs en:
- latitude DD (colonne21): 00.000000°
- longitude DD (colonne22): 000.000000°
- latitude DDM (colonne19): 00°0.0000'
- longitude DDM (colonne20) : 000°00.0000'
En vous remerciant,
A+
bonjour benji77,
si je l'ai bien compris
TextBox7 = ListBox1.List(row_number, 16)
TextBox8 = ListBox1.List(row_number, 17)
If Not IsError(ListBox1.List(row_number, 18)) Then TextBox9 = ListBox1.List(row_number, 18) Else TextBox9 = "00°0.0000'"
If Not IsError(ListBox1.List(row_number, 19)) Then TextBox10 = ListBox1.List(row_number, 19) Else TextBox10 = "000°00.0000'"
If Not IsError(ListBox1.List(row_number, 20)) Then TextBox11 = ListBox1.List(row_number, 20) Else TextBox11 = "00.000000°"
If Not IsError(ListBox1.List(row_number, 21)) Then TextBox12 = ListBox1.List(row_number, 21) Else TextBox12 = " 000.000000°"
TextBox13 = ListBox1.List(row_number, 22)
TextBox14 = ListBox1.List(row_number, 23)Bonjour BsAlv,
Je pense que oui, c'est avoir un format dans ces textbox meme si je ne rentre pas de valeurs en textbox 7 et 8 si j'enregistre ou modifie.
Ou dois je placer ta function? Extract_data_in_listbox
En te remerciant,
A+
je n'ai pas lu tout, mais je suppose partout où vous avez ce problème dépendant de la situation, vous faites quelque chose pareil.
Ok, ca marche et pour afficher les valeurs par défaut si je ne rentre rien dans les textbox 7/8, est ce cela le code ?
If (ListBox1.List(row_number, 16)) Then TextBox7 = ListBox1.List(row_number, 16) Else TextBox7 = "00°00'00.00"""
If (ListBox1.List(row_number, 17)) Then TextBox8 = ListBox1.List(row_number, 17) Else TextBox8 = "000°00'00.00"""A+