Newsgroup: it.comp.appl.access
Titolo: Pulsante per Aprire Maschera con aggiunta record

Salve a tutti, vorrei un aiuto se possibile a risolvere questo (credo)
piccolo quesito...Dunque io vorrei che su clic di un pulsante mi si
aprisse la mascheraAnagrafica posizionandosi su un record nuovo avendo
pero la possibilità di scorrere all'indietro i record già inseriti.
Attualmente ho usato questo comando
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
 che funziona però mi va al nuovo record ma non vedo i precedenti.
Ho provato con questi comando
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord,,AcNewRec
Ma mi da errore dicendo "Impossibile passare al record specificato"
Mi aiutate? Grazie
Fabio

Ciao, sul pulsante che richiama la maschera "Anagr..." scrivi in questo modo 
sostituendo "tuocomando" con il nome del pulsante:
On Error GoTo Err_"tuocomando"_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MascheraAnagrafica"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_"tuocomando"_Click:
    Exit Sub
Err_"tuocomando"_Click:
    MsgBox Err.Description
    Resume Exit_Comando0_Click
poi sul evento "su apertura" della maschera "MascheraAnagrafica" scrivi, 
sostituendo "maschera1" con il nome della maschera dove c è il pulsante di 
prima:
Private Sub Form_Open(Cancel As Integer)
If IsLoaded("maschera1") = True Then
DoCmd.GoToRecord , , acNewRec
End If
End Sub
per ultima cosa ti dovresti copiare il codice globale da un DB di esempio 
che ha ACCESS stesso e riportarlo sul tuo DB. Oppure crea un modulo 
chiamandolo "Codice globale" e ci srivi:
Function IsLoaded(ByVal strFormName As String) As Integer
 ' Returns True if the specified form is open in Form view or Datasheet 
view.
    Const conObjStateClosed = 0
    Const conDesignView = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 
conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
End Function
Spero di esserti stato di aiuto
MRB 


Provo e eventualmente ti faccio sapere Grazie!!
Fabio

 - Mostra testo citato -
Allora funziona, però , siccome la "Maschera Angrafica" viene aperta
anche in fase di modifica dati, cioè mi spiego meglio,
cerco tra i 345 record seleziono quello dove devo effettuare delle
modifiche e mi si apre la mascheraAnagrafica, quindi essendoci il
comando di aggiunta record, mi filtra 2 record, quello che io cerco ed
uno vuoto pronto per essere inserito i dati, come si ovvia a questo
problema? Non dirmi che devo creare un altra maschera perchè ltrimenti
resto con la soluzione che ti ho detto in apertura.
Grazie e Ciao
Fabio

 Ma mi da errore dicendo "Impossibile passare al record specificato"
Se solo usi
DoCmd.OpenForm stDocName, , , stLinkCriteria
o anche se apri la maschera dalla finestra database puoi andare
ad un nuovo record con i pulsanti di navigazione?
Se no controlla se la proprietą "Consenti aggiunti" č impostata a Sģ.
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 - Mostra testo citato -
 Sì ci posso andare, ma se uso soltanto
DoCmd.OpenForm stDocName, , , stLinkCriteria
mi si posiziona sul primo record....poi dopo premendo i pulsanti di
navigazione (credo ti riferisci a quelli in basso accanto al numerino
del record) mi scorre tutti i record...e ovviamente mi va anche su uno
nuovo
Fabio

 nuovo
Prova con
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord acForm, stDocName, acNewRec


 ha scritto nel messaggio 
news:e8f1028f-9800-4116...@j32g2000yqn.googlegroups.com...
On 6 Dic, 14:20, 
uomo...@hotmail.it
 wrote:
---cut---
Allora funziona, però , siccome la "Maschera Angrafica" viene aperta
anche in fase di modifica dati, cioè mi spiego meglio,
cerco tra i 345 record seleziono quello dove devo effettuare delle
modifiche e mi si apre la mascheraAnagrafica, quindi essendoci il
comando di aggiunta record, mi filtra 2 record, quello che io cerco ed
uno vuoto pronto per essere inserito i dati, come si ovvia a questo
problema? Non dirmi che devo creare un altra maschera perchè ltrimenti
resto con la soluzione che ti ho detto in apertura.
Nel codice che hai postato nel tuo primo post devi indicare a gotorecord, 
che vuoi passare ad un nuovo record nella for che va ad apri, indi per cui:
DoCmd.OpenForm stDocName, , , stLinkCriteria
----
docmd.gotorecord,stDocName,acnewrec
----
Grazie e Ciao
Fabio
-- 
Ciao
Geppo 

 ha scritto nel messaggionews:e8f1028f-9800-4116...@j32g2000yqn.googlegroups.com...

Bhe ho fatto come avete scritto ma mi da lo stesso errore "Impossibile
passare al record richiesto"
Private Sub EntraInserisci_Click()
On Error GoTo Err_EntraInserisci_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MAnagrafica"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.GoToRecord , stDocName, acNewRec
Exit_EntraInserisci_Click:
    Exit Sub
Err_EntraInserisci_Click:
    MsgBox Err.Description
    Resume Exit_EntraInserisci_Click
End Sub
Questa è la routine....ma appunto da errore. Cosa altro devo fare?
Grazie comunque per l'attenzione a risolvere questo problema.

 ha scritto nel messaggio 
news:82cefbea-ed10-4ce5...@d32g2000yqe.googlegroups.com...
On 6 Dic, 15:28, "geppo" <c...@tin.it.invalid> wrote:
---cut---
Bhe ho fatto come avete scritto ma mi da lo stesso errore "Impossibile
passare al record richiesto"
Private Sub EntraInserisci_Click()
On Error GoTo Err_EntraInserisci_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MAnagrafica"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
'===============
forms(stDocName).allowadditions = true
'===============
    DoCmd.GoToRecord , stDocName, acNewRec
Exit_EntraInserisci_Click:
    Exit Sub
Err_EntraInserisci_Click:
    MsgBox Err.Description
    Resume Exit_EntraInserisci_Click
End Sub
Questa è la routine....ma appunto da errore. Cosa altro devo fare?
Grazie comunque per l'attenzione a risolvere questo problema.
prego
-- 
Ciao
Geppo 

 ha scritto nel messaggionews:82cefbea-ed10-4ce5...@d32g2000yqe.googlegroups.com...

Adesso la routine è questa:Private Sub EntraInserisci_Click()
On Error GoTo Err_EntraInserisci_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "MAnagrafica"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Forms(stDocName).AllowAdditions = True
    DoCmd.GoToRecord , stDocName, acNewRec
Exit_EntraInserisci_Click:
    Exit Sub
Err_EntraInserisci_Click:
    MsgBox Err.Description
    Resume Exit_EntraInserisci_Click
End Sub
Ma il risultato è lo stesso......"Impossibile passare al record
specificato"
Dove è l'errore?

 ha scritto nel messaggio 
news:4a488962-77ae-4d0e...@33g2000yqm.googlegroups.com...
---cut---
Ma il risultato è lo stesso......"Impossibile passare al record
specificato"
Dove è l'errore?
ma quando apri la form riesci a spostarti manualmente sul nuovo record?
-- 
Ciao
Geppo 

 Geppo
Dopo che mi ha data quel messaggio....NO non riesco,  ci riesco
tramite un pulsante creato da me in autocomposizione...spostamento tra
record...

 ha scritto nel messaggio 
news:ca218794-4a3c-4c9a...@d23g2000yqc.googlegroups.com...


se vuoi/puoi postare una copia del db si da un occhiata.
-- 
Ciao
Geppo 

 ha scritto nel messaggionews:ca218794-4a3c-4c9a...@d23g2000yqc.googlegroups.com...

Purtroppo, non posso postarlo, cmq Grazie...ho utilizzato il sistema
iniziale, non vedrò i record precedentemente inseriti, ma non è poi
così importante.
Grazie ancora a tutti coloro che si sono adoperati nel rispondere.
Ciao Fabio

 wrote:
Purtroppo, non posso postarlo, cmq Grazie...ho utilizzato il sistema
iniziale, non vedrň i record precedentemente inseriti, ma non č poi
cosě importante.
Peccato perchč a questo punto ero prorpio curisoso....comunque l'importante 
e che in qualche modo ti funziona.
Grazie ancora a tutti coloro che si sono adoperati nel rispondere.
prego
