[VB] Aiuto per cosa banalissima :((

[frinkia]

Problema di Visual Basic su Access (Office 2000)

Ho urgenza di risolvere un problema ma non capisco veramente cosa possa essere. Ho fatto una sola applicazione in VBA, non piccola, parecchio tempo fa, e forse ho la memoria annebbiata.. o forse sono solo stanco. Unica cosa: il prog in questione girava su Access 97.

Sta di fatto che non riesco a capire che problema possa avere questo codice.. sembra che ci sia qualcosa di concettuale di sbagliato.. non lo so Aiutatemi..

Ho bisogno di agganciarmi a un evento, fare una select sul DB e aggiornare un altro campo della maschera in base al risultato della select. Insomma una cosa banalissima, che ho gia' fatto 80000 volte; ho preso il mio vecchio programma che funziona perfettamente, ho copiato la sintassi pari pari e mi da un errore - "tipo non corrispondente"- totalmente insensato.

Il pezzo di codice e' il seguente e mi vergogno quasi a postarlo:

Public Function CAP_of_Localita(my_localita As String)

    Dim my_query As String
    Dim my_recordset As Recordset
    
    my_query = "SELECT CAP from dati_localita WHERE nome_comune = '" & my_localita & "';"
    Set my_recordset = CurrentDb.OpenRecordset(my_query)
    
    my_recordset.Close

End Function

Ora, sulla riga set my_recordset = .. mi da' errore.. e non si capisce perche' !!!

Se c'e` qualcuno che mi sa dare un motivo.. aiuto.

[riky78]

prova a togliere il ; in fondo alla query

[frinkia]

Il fatto che ci sia dipende dal fatto che originariamente era senza.. ho provato quello come ultimo tentativo disperato

Grazie cmq per il tentativo

[maxetere]

La prima cosa che mi viene in mente è che se ti capita una città come L'Aquila l'apostrofo rende la tua select così:

SELECT CAP from dati_localita WHERE nome_comune = 'L'Aquila'

quindi 'L'Aquila' la prende come campo 'L' (qui finisce la stringa) e Aquila' non sa cos'è perchè è dopo l'istruzione e si incazza.

quindi devi mettere il doppio apice all'interno della stringa:

my_localita = Replace(my_localita, "'", "''")
my_query = "SELECT CAP from dati_localita WHERE nome_comune = '" & my_localita & "';"

non so se questo risolve i tuoi problemi ma è sicuramente uno dei problemi che incontrerai più avanti

[frinkia]

UP

[elfocaotico]

Prova così

my_query = "SELECT CAP from dati_localita WHERE nome_comune = " & "'" & my_localita & "'" & ";"

(Considera che l'ho fatt oal volo e non posso testare :tongue: )

Oppure gestisci il valore di my_localita in un oggetto così non ti dovrebbe sicuramente rompere...

Ad esempio my_localita è un campo testo (per esempio)


my_query = "SELECT CAP from dati_localita WHERE nome_comune = 'my_localita.text ';"


Sta a te scegliere il tipo di oggetto.

Cià Fri