spazio nello stack esaurito

[silvio75]

A rieccomi.........nman se vuoi rispondermi ti ringrazio ma se sono troppo pesante salutami e ti ringrazio lo stesso.
Ti spiego ho creato una maschera con il tuo aiuto dove ho una serie di prodotti per i quali controllo e scadenze. In questa maschera ho inserito anche una casella di testo con ricerca tramite lettere. Partivo innanzitutto cosi'

Option Compare Database

Public myString As String 'destinata al filtro
Public Function myquery() query fatta su tabella prodotti di magazzino
myquery = "*" & myString & "*"

End Function

Option Compare Database
Public myStringa As String 'destinata al filtro
Public Function myqueryf() query fatta su tabella farmaci e inserita come sottomaschera
myqueryf() = "*" & myStringa & "*"

End Function

La prima parte è della ricerca precedente dell'altra maschera, la seconda della nuova.

Ora sia facendole una in fila all'altra o facendo un altro modulo mi dice che lo spazio nello stack è esaurito ed in più non vedo i datti della sottomaschera.

Vorrei farle speculari
Grazie

[nman]

A rieccomi.........nman se vuoi rispondermi ........

Se ti rivolgi esclusivamente a me ti perdi le risposte di quelli che ne sanno più di me .......
-------------------------------------------------------------------
comunque veniamo al tuo problema che non ho capito
Hai postato un po di codice che non può funzionare
ho provato a riordinarlo e reinterpretarlo e sarei arrivato qui: (se ho interpretato bene)

Option Compare Database
Option Explicit

Public myString As String      'destinata al filtro
Public myStringa As String    'destinata al filtro

Public Function myquery()      'query fatta su tabella prodotti di magazzino
myquery = "*" & myString & "*"
End Function

Public Function myqueryf()    'query fatta su tabella farmaci e inserita come sottomaschera
myqueryf() = "*" & myStringa & "*"
End Function

Ma in effetti cosa vuoi fare ?????

Facci sapere qualche dettaglio pratico

.

[silvio75]

Praticamente come avevo fatto per il DB Magazzino. Ho fatto una tabella (farmacia), una maschera (farmacia) con dentro una sottomaschera SMfarmacia che prende i dati da una query (myquerif) secondo spezzone di codice, che mi serve per iniziare ad impostare una ricerca per lettere in una casella di testo da un campo chiamato principio attivo. Access subito mi blocca qui myqueryf() = "*" & myStringa & "*"
dicendomi che non c'e posto nello stack. Il codice successivo che metterei sarebbe questo

Private Sub Testo0_KeyUp(KeyCode As Integer, Shift As Integer)
Dim lung As Integer
lung = Len(myString)
If KeyCode = 46 Then myString = "": Me.Testo0.Value = ""


If KeyCode = 8 Then


If lung = 0 Then GoTo 100 ' se la lunghezza è 0 non serve intervento

If lung = 1 Then myString = "": GoTo 100 ' se la lunghezza è 1,

myString = Left$(myString, lung - 1): GoTo 100 'togliamo un carattere

End If
myString = myString & Chr$(KeyCode) ' aggiungiamo il carattere digitato


100 'fine della sub
Me.SMQuery1.Requery




ps questo codice è dell'altra maschera però



Debug.Print myString