Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2019
    Messaggi
    10

    spazio nello stack esaurito

    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

  2. #2
    Utente di HTML.it L'avatar di nman
    Registrato dal
    Jan 2011
    residenza
    Milano
    Messaggi
    1,294
    Quote Originariamente inviata da silvio75 Visualizza il messaggio
    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)
    codice:
    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

    .

  3. #3
    Utente di HTML.it
    Registrato dal
    Apr 2019
    Messaggi
    10
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2019 vBulletin Solutions, Inc. All rights reserved.