Bonjour a tous,
Je cherche a tester dans un premier temps un champ. Si le champ est non vide, je souhaiterais recopier la valeur du champ dans un autre. Voir ci-dessous le code VB que j'utilise.
Mon probleme doit se situer au niveau de mon critere de recherche. Le critere etant un numero d'affaire qui est un champ numerique (ex: 4501562323) et le champ Indice qui est alphabetique (A, B, C, etc)
Access me donne un message d'erreur Type incompatible et je ne vois pas trop ou est le probleme.
Si qq'un a une idee, je suis preneur...
D'avance merci.
@+++
Jay
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
22
23
24
25
26
27
28 Dim bds As Database, rst As Recordset Dim Critere As String Set bds = CurrentDb Set rst = bds.OpenRecordset("administratif", dbOpenDynaset) Critere = "[numéro d'affaire]=" & Me.Affaire & "" And "[indice affaire]='" & Me.Indice & "'" If DesignModLight <> "" Then rst.FindFirst Critere If rst.NoMatch Then MsgBox "Pas d'enregistrement trouvé " Else rst.Edit rst![Type de structure Medium] = Me.DesignModLight rst.Update rst.Close End If Set bds = Nothing End If
Partager