Discussion :

[kaze78]

Bonjour,

Alors j'ai une table "Geol" avec les champs "De" "à" "Couche" "Type_de_forage"
Les champs De à et couche sont rempli à partir du formulaire grace à un recordset type dynaset avec une boucle, mais ca n'a pas d'importance pour après, il faut juste savoir que les champs De et à c'est une profondeur au format centimètrique donc tout les cm il y a un enregistrement :

Exemple :
De 0 à 0,01 couche XXX
De 0,01 à 0,02 couche XXX


J'ai un formulaire avec 3 zones de texte, De à et Type_de_forage
Je souhaite editer ma table Geol donc précédement concue en ajoutant Le type_de_forage que je souhaite entre les valeurs De et à que j'aurais saisie dans les zones de texte.

Exemple :
J'entre "De" 12,53 "à" 65,80 "Type_de_forage" Forage1
en appuyant sur mon bouton Il me selectionne tout les enregistrements entre 12,53 et 65,80 et ajoute Forage1 dans le champ "Type_de_forage"

Il faut de plus obligatoirement que cela puisse écraser des données prééxistantes si le champ est initialement rempli par quelque chose.

J'ai fais ca :

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
17
18
19
20
21
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("Geol", dbOpenTable)
'tant que le champ à ne prend pas la valeur de la zone de texte De du formulaire
While Not oRst.Fields("à").Value = "Me.Texte347"
  'Passe en mode modification
  oRst.Edit
' Ajoute au champ Type_de_forage la valeur de la zone de liste déroulante For11
  oRst.Fields("Type_de_forage").Value = Me.For11
  'Met à Jour
  oRst.Update
  'Passe au suivant
  oRst.MoveNext
Wend
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing

Et il me renvoie l'erreur : Enregistrement en cours, tout en surlignant

Code :

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

While Not oRst.Fields("à").Value = "Me.Texte347"

Merci d'avance de votre aide !

[kaze78]

J'ai trouvé tout seul !

Désolé pour le sujet pour rien du coup.

C'était une erreur de syntaxe plutot simple :

Code :

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

While Not oRst.Fields("à") = Me.Texte347 + 0.5