RowSource in una sottomaschera

Question

Buon giorno a tutti,

è da qualche anno che non scrivo più codice [sempre a livello elementare] ma , attualmente, non riesco a risolvere una banalità:

il campo idArticolo della sottomaschera subfrmCaricoDettaglio non funziona con la property rowsource e il seguente codice VBA & SQL:

Dim iTesto As Integer

Dim stCD As String

Private Sub idArticolo_Change()

If iTesto = 27 Or iTesto = 37 Or iTesto = 38 Or iTesto = 39 Or iTesto = 40 Then

Exit Sub 

End If

stCD = Me.idArticolo.Text

Me.Articolo.RowSource = "SELECT IDArticolo, ArticoDescri FROM tblArticoli " _

                  & "WHERE ArticoDescri Like '\*" & stCD & "\*' ORDER BY ArticoDescri" 

Me.idArticolo.Dropdown

End Sub

Private Sub idArticolo_KeyDown(KeyCode As Integer, Shift As Integer)

iTesto = KeyCode

End Sub

Dovrebbe selezionare degli articoli in base alla stringa inserita ma, e qui sta il problema, mentre se creo una maschera a se stante di tblCarichiDettaglio, il codice funziona perfettamente, con tblCarichiDettaglio in versione sottomaschera, la combobox non funziona.

Grazie.

In allegato screenshot della maschera e della sottomaschera

Answer 1

ciao Alessandro,

vedi se come segue va meglio :

Private Sub idArticolo_Change()

If iTesto = 27 Or iTesto = 37 Or iTesto = 38 Or iTesto = 39 Or iTesto = 40 Then

Exit Sub 

End If

'stCD = Me.idArticolo.Text

With Me.idArticolo

If DCount("\*", "tblArticoli", "ArticoDescri='" & .Text & "'") = 0 Then 

.RowSource = "SELECT IDArticolo, ArticoDescri FROM tblArticoli " \_ 

                      & "WHERE ArticoDescri Like '\*" & Replace(.Text, "'", "''") & "\*' ORDER BY ArticoDescri" 

.Dropdown 

End If 

End With

'Me.idArticolo ' .RowSource "SELECT IDArticolo, ArticoDescri FROM tblArticoli"

End Sub

ciao, Sandro.

Answer 2

Ciao Carlo,

grazie per la risposta.

Allego il file.

Un caro saluto.

Answer 3

Scusami Karl, fra le varie prove fatte non mi sono avveduto: ciò che dici è corretto; in ogni caso mettendo idArticolo, la combobox non funziona correttamente.

Allego il file.

Grazie

Un caro saluto

Alessandro

Answer 4

Salve,

Me.Articolo.RowSource

non dovrebb'essere

Me.IdArticolo.RowSource

?

Se non è questo: Come si esprime "la combobox non funziona"? Cosa (non) succede?

Answer 5

Sembrerebbe che dovrebbe funzionare, quindi se non lo fa sarebbe necessario postare una copia del file, con alcuni record e sostituendo eventuali dati sensibili, per poter verificare che cosa accade realmente.