comunicazione maschera sottomaschera

[lupoezechiele]

ciauz,
ho i lseguente problem:
Maschera principale " M_ordini"
Sottomaschera "elenco ordine" all'interno di M_ordini .
elenco_ordine è in visualizzazione foglio dati.
se tramite pulsante su M_ordini assegno il valore
elenco_ordine!Prodotto="latte" va tutto bene mi inserisce il valore nella sottomaschera ma poi non riesco in nessun modo a far passare la sottomaschera al record successivo. o mi dice che l'oggetto non aperto o mi sposta al record successivo della maschera principale

help please

[Mychy]

Tu stai parlando di VBA per access, ti consiglio di specificarlo sempre.

Naturalmente hai già provato con:

DoCmd.GoToRecord tipooggetto,nomeoggetto,record

[lupoezechiele]

scusa davo per scontato che mi avresti risposto tu ricollegandoti
all'altro post!
cmq si ho provato con docmd ma dice che non riesce a trovare il tipo di oggetto. Mi puoi scrivere come definire esattmente la stringa
forse sbaglio qlcs! mi specifichi anche Dim perfavore

grazie
p.s dovreste aggiungere lo smile "so solo smanettone!"

:bubu:

[Mychy]

Avevo qualcosa del genere, ora l'ho ritrovato :gren:

DoCmd.GoToControl "nomesottomaschera"
DoCmd.GoToRecord , , acNewRec

Il dim serve per dichiarare le variabili
Dim nomevariabile as tipo
Dim varNome as string
Dice che la variabile varNome deve essere considerata come una stringa

[lupoezechiele]

e per Mychy ippip hurrà!
perfetto funziona ora provo a riagganciarmi
al famoso EOF di cui mi avevi gia illuminato
spero di riuscire a cavarmela
così non disturbo più
però considera che sono zappa
ergo ti chiamerò!
graziuz
ciauz

:adhone:

[lupoezechiele]

...appunto
ora devo dire che deve prendere i valori del primo record della sottomaschera li devo inviare ad altra tabella
mi funziona tutto ok con il codice che mi hai dato l'altro giorno,
ma si ferma al primo record !
io devo eseguire un loop fino alla fine dei record (con EOF??)

DoCmd.GoToControl "SottomascheraTelenco"
DoCmd.GoToRecord , , acFirst
Set dbs = CurrentDb

Set rst1 = dbs.OpenRecordset("consegnato") 'destinazione
Do Until SottomascheraTelenco.EOF ' NON GLI PIACE GRANKé QUESTO
rst1.AddNew
rst1.fornitore = SottomascheraTelenco!fornitore
rst1.Data = Data
rst1.Prodotto = SottomascheraTelenco!Prodotto
rst1.Quantità = SottomascheraTelenco!Quantità
rst1.magazzino = SottomascheraTelenco!magazzino
rst1.Update

DoCmd.GoToControl "SottomascheraTelenco"
DoCmd.GoToRecord , , acNext
Loop

rst1.Close

credo che Do until .eof valga solo per tabelle e non per maschere?

[lupoezechiele]

ciao mychy
e lo so avvolte ritornano
non so se ti ricordi de problemi progetto che trattavo quindi ho riaperto lo stesso post:

ora sempre sul genere ho un problema simile:
ho la mia benedetta maschera "M1" con sottomaschera "SM1" in visualizzazzione tabella ed in più ora ho una maschera popup "popup"
con pulsante su "M1" apro "popup" dove ho tre campi testo che una volta compilati devo rispedire ad "SM1" ma non riesco a linkare alla mia "SM1"

COD:
Private Sub Comando20_Click() ' è il pulsante su popup
If CasellaCombinata4 = "" Then GoTo line2 Else GoTo line1
line1:
Forms![Produzione Cucina]![Sottomaschera prodotti sostitutivi].Prodotto = CasellaCombinata4.Value
line2:
End Sub

lo so che è sbagliato così , l'ho messo solo per darti un idea!

[lupoezechiele]

bèh bravi mente tutti siete a sciare io qua a macinare codice!!!:metallica :zamm:
mmh scherzo!

allora io ho fatto un passo avanti ma son sempre bloccato:
Private Sub Comando20_Click()
modificaprod1 = CasellaCombinata4.Value
modificaquan1 = Testo6
DoCmd.SelectObject acForm, "Produzione Cucina", False
DoCmd.GoToControl "Sottomaschera prodotti sostitutivi"
DoCmd.GoToRecord , , acNewRec
[Sottomaschera prodotti sostitutivi]!Prodotto = modificaprod1

ora fino ad acnewrec funziona ma non ne vuole sapere di dare il valore [Sottomaschera prodotti sostitutivi]!Prodotto non riesce a trovare il campo, ho pure provato a rinominare la Sottomaschera senza spazi ma nulla!

[Mychy]

Form_nomesottomaschera.nomecaselladitesto.value=va lore

es:

Form_subfatture.Testo40.Value = Form_subfatture.Testo38.Value

[lupoezechiele]

non ho avuto un minuto per verificare !
ma son sicuro che funzionerà!
grazie mille
in caso non mancherò di stressarti again