Discussion :

[Nounours1]

Bonsoir à tous,

J'ai téléchargé la version express de WINDEV afin de l'étudier, pouvez-vous me donner un exemple pour transformer ce code écrit en VBA Access, il vérifie avant la mise à jour si ce numéro n'existe pas( clé primaire), si "oui" on envoie un message à l'utilisateur puis le champ de saisie s'efface pour taper une bonne valeur.
en bref il ne peut pas y avoir de doublon possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub National_BeforeUpdate(Cancel As Integer)
If DCount("*", "TROUPEAU", "[Dixchiffres]='" & Me.DixChiffres & "'") > 0 Then
         MsgBox "Cet animal existe déjà dans la base de donnée.", , "Saisie d'un doublon"
      Me.Undo
    Cancel = True
   End If
  End Sub

Merci d'avance

[EDM-TAHITI]

Hello,
Je vais faire très théorique, car tu donnes peu d'information sur ton problème sauf à connaitre une clé existante....
Alors, je suppose que tu as un fichier [TROUPEAU] et qu'il possède un identifiant unique (IDTROUPEAU)...
Mais dans le code fourni par VBA, apparement, c'est un identifiant d'un animal, donc, à rajouter dans le fichier [TROUPEAU] un [IDANIMAL] qui sera lui aussi unique (je sais, pour les puristes, j'ai deux ID uniques, mais bon...)
Et donc, lorsque tu tapes l'identifiant de l'animal dans un champs de saisie, il faut faire cela en sortie de champs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
si saisie_idanimal.. modifie = vrai alors
     // on recherche dan sla base si cela existe
     hrecherche(troupeau, idanimal, saisie_idanimal)
     si htrouve(troupeau) alors
         // et oui! il existe le bougre
         info("L'identifiant  que vous saisissez est déjà présent dans la base")
         // vide le champs
         saisie_idanimal = ""
         // on enleve la modification
         saisie_idanimal..modifie = faux
         // reprend la saisie sur le champs
         reprisesaisie(saisie_idanimal)     
     // fin du si htrouve
     fin
// fin de si modifie
fin

Voilà, rien de compliqué en soit, mais je t'invite à bien suivre l'autoformation de windev, au risque pour toi d'être déçu par le produit... Il est très puissant et sa facilité d'utilisation ne doit pas cacher le temps à passer à le découvrir...

[Nounours1]

Merci beaucoup mon Ami,
Je vais suivre tes conseils, très bon logiciel mais pas simple pour démarrer avec.

Dans la version express on peut transformer le code VBA en codage Windev ?
Sinon dans la version 15 c'est possible ?

@ bientôt

[klbsjpolp]

Dans la version express on peut transformer le code VBA en codage Windev ?

À priori, presque. Il y a une fonction d'importation de code vb 6 dans Fichier >> Importer. Mais cela ne fonctionne que très partiellement et le vba et Windev sont tellement différent que la meilleur solution serait surement de reprendre à 0 avec les bons concepts de programmation.

[Jannus]

Dans la version express on peut transformer le code VBA en codage Windev ?

C'est certainement la plus mauvaise manière d'aborder WinDev.

WinDev est particulier et le W-Langage également.
Je suis très tenté de dire qu'il y a un "mode de pensée WinDev".
Donc, il faut "oublier" ses acquits et apprendre WinDev pour WinDev et développer en WinDev et non "traduire" du VB (ou autre) en WinDev.

Bien sûr cela ne vaut pas pour les traitements usuels comme, par exemple, les conditions, les boucles, etc.

Il est très important notamment d'apprendre à se servir de l'aide et d'avoir une bonne idée des fonctions proposées (voir ce message http://www.developpez.net/forums/d28...p/#post5043004)

[EDM-TAHITI]

Hello,
Lorsque tu dis

Je vais suivre tes conseils, très bon logiciel mais pas simple pour démarrer avec.

Il faut bien se rendre compte que Windev est facile quand on a des bases de programmation, même de très bonnes bases. Mais sans base, voire en deçà, et quelque soit le produit, tout est très dur... et rapidement

[Nounours1]

Excusez moi du retard, merci à vous tous pour vos réponses.



@+