Discussion :

[sbouchaibi]

Re Bonjour,

Voici mon problème,

j'ai deux tables banque et virement.
- Table banque contient les champs suivants : ..., ..., nombanque, codebanque, ...
- Table Virement contient : ..., ..., ..., ..., nombanque, codebanque, ...

J'ai crée un formulaire lié à la table virement, sauf que je veux une fois écris dans la zone de texte nombanque, cherche le codebanque équivalant dans la deuxième table et l'insérer auto dans la zone de texte codebanque de mon formulaire.

Bon j'ai utilisé le code suivant et ca marche pas :




Option Compare Database
Option Explicit
Dim db As Database
Dim rs As Recordset

Private Sub cmdtest_Click()

banque.SetFocus
ch = banque.Text
ch1 = "'" & ch & "'"
Dim sql
Set db = OpenDatabase("c:\Odvirement.mdb")
sql = "select * from banque where [nombanque]= " & ch1
Set rs = db.OpenRecordset(sql)
If rs.EOF Then
MsgBox ("Code Banque introuvable !")
Else
rs.MoveFirst
[cmopte] = rs("cmopte")
End If

End Sub

Quelqu'un peut m'aider ? et Merci d'avance ...

NB. Le champ nombanque est texte tandis que le champ codebanque est numérique.

[sbouchaibi]

Youpi, j'ai trouvé la solution :


banque.SetFocus
Dim ch
Dim ch1

ch = banque.Text
ch1 = "'" & ch & "'"

Dim sql

Set db = OpenDatabase("c:\Odvirement.mdb")
sql = "select * from banque where [banque]= " & ch1
Set rs = db.OpenRecordset(sql)

If rs.EOF Then
MsgBox ("Code Banque introuvable !")
Else
rs.MoveFirst
[cmopte] = rs("numbq")
'[ville] = rs("ville 1")
End If


problème résolu

@+

[Muhad'hib]

Salut,

Quelques remarques :

- Merci d'utiliser les balises de code pour la lisibilité de ton sujet
- Tu devrais déclarer complétement tes variables (Dim Sql as String)
- Si la base en cours est c:\Odvirement.mdb, remplace

Code :

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

Set db = OpenDatabase("c:\Odvirement.mdb")

par

Code :

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

Set db = currentdb

- Je remplacerai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ch
Dim ch1
 
ch = banque.Text
ch1 = "'" & ch & "'"
 
Dim sql
 
Set db = OpenDatabase("c:\Odvirement.mdb")
sql = "select * from banque where [banque]= " & ch1
Set rs = db.OpenRecordset(sql)

par

Code :

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

1
2
3
4
 
 
sql = "select * from banque where [banque]= """ & Me.banque & """;"
Set rs = currentdb.OpenRecordset(sql)

Le résultat sera le même, mais avec un code plus propre (du moins à mon avis )

[sbouchaibi]

Merci,

Changement réalisé avec succée.