Discussion :

[Jay45]

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

[micniv]

si Me.affaire est numérique alos tu as un guillemt en trop ci dessous

Code :

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

Critere = "[numéro d'affaire]=" & Me.Affaire & "" And "[indice affaire]='" & Me.Indice & "'"