[VBA] - Trasferimento dati su più maschere

[aerith9]

Buongiorno a tutti!
sto effettuando un DB x la gestione dell'Inventario e vorrei automatizzarlo il più possibile. mi spiego:
ho due tabelle: bene, che contiene tutte le info sul bene, e assegnatario, che contiene info sulla persona a cui viene affidato il bene.
il mio intento è qll d trasferire l'id del bene tra le due maschere. ho creato questa query SQL,ma m da errore e non capisco il motivo:

Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")

strSql = " SELECT Bene_Id_num" _
& " FROM Bene" _
& " WHERE Bene_Etichetta_num = 14"

rs.Open strSql, con

il debug indica:

Errore di run-time '-2147217913 (80040e07)':
Tipi di dati non corrispondenti nell'espressione criterio.

Selezionandomi poi la riga rs.Open strSql, con


Grazie a chi riuscirà a salvarmi!

[oregon]

Sicuro che il campo Bene_Etichetta_num sia un "tipo numerico" e non una stringa?

Prova introducendo i singoli apici

& " WHERE Bene_Etichetta_num = '14' "

[aerith9]

grazie mille sei un genio

ma ora come faccio a prendere l'id e metterlo in una textbox? :master:

[oregon]

Originariamente inviato da aerith9
grazie mille sei un genio

No ... basta leggere l'errore "Tipi di dati non corrispondenti"

ma ora come faccio a prendere l'id e metterlo in una textbox? :master:

Dato che hai ottenuto il recordset rs, utilizza una riga

Text1.text = rs.fields("Bene_Id_num")

[aerith9]

Ho provato ma mi da errore di run-time 3021...