Discussion :

[Didier77]

Bonjour,Aprés avoir un programme qui extrait une chaine de caractere
je voudrais placer cette chaine dans un autre champ(access).
Je ne voit pas trop comment faire en VB
si quelqu'un peut m'aider

[Didier77]

J'ai pensé à faire sa

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Function HouseN(ByVal Hsn As String)
 
Dim Requete As String
 
Requete = "UPDATE Data2 SET HOUSE_NO_1 = Hsn"
 
CurrentDb.CreateQueryDef("Query", [UPDATE Data2 SET HOUSE_NO_1 = Hsn]) = Query
DoCmd.OpenQuery (Query)
CurrentDb.QueryDefs.Delete "Query"
 
 
 
End Function

[Didier77]

En fait le code ne marche pas donc j'ai essayé sa:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Function HouseN(ByVal Hsn As String)
 
Dim Requete As String
 
Requete = "UPDATE Data2 SET HOUSE_NO_1 = Hsn"
 
DoCmd.RunSQL "Requete"
 
 
End Function

Mais j'ai une erreur qui me dit si j'ai bien compris
que Access ne peut pas executer le code VB et executer une
requete en meme temps (Run-Time error 2486)
je sais plus kooi faire

[Delbeke]

De toute façon VB ou VBA,ta requete est mal orthographiée
verifie les quotes

Code :

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

1
2
3
4
5
6
 
Private Function HouseN(ByVal Hsn As String)
  Dim Requete As String
  Requete = "UPDATE Data2 SET HOUSE_NO_1 = '" & Hsn & '
  DoCmd.RunSQL Requete
End Function