Elimina record corrente!

[Silvano Cervelli]

Cliccando su un pulsante (che risiede su una maschera ),
voglio eliminare il record attualmente corrente nella sottomaschera

Database: Ditte
Tabella: Ditte (origini record di Cerca)
ID Ditta: campo contatore della Tabella Ditte
Query: Cerca (origine record di SottoCerca)
Maschera: Cerca
Sottomaschera: SottoCerca

Ho provato cosě:

Dim curecord As Long
Dim sSQL As String
curecord = Form_SottoCerca.CurrentRecord

sSQL = "DELETE FROM Ditte WHERE [ID Ditta] =" & curecord & ";"
DoCmd.RunSQL sSQL--------(in alternativa: Me.Execute sSQL)

Non funziona come devo fare??
Grazie. Ciao.

[Roberto da casa]

"Silvano Cervelli" <cer...@microelettra.it> ha scritto nel messaggio
news:zujJ6.28945$UW4.1...@news.infostrada.it...

> Cliccando su un pulsante (che risiede su una maschera ),
> voglio eliminare il record attualmente corrente nella sottomaschera
>
> Database: Ditte
> Tabella: Ditte (origini record di Cerca)
> ID Ditta: campo contatore della Tabella Ditte
> Query: Cerca (origine record di SottoCerca)
> Maschera: Cerca
> Sottomaschera: SottoCerca
>

> Ho provato così:

>
> Dim curecord As Long
> Dim sSQL As String
> curecord = Form_SottoCerca.CurrentRecord
>
> sSQL = "DELETE FROM Ditte WHERE [ID Ditta] =" & curecord & ";"
> DoCmd.RunSQL sSQL--------(in alternativa: Me.Execute sSQL)
>
> Non funziona come devo fare??
> Grazie. Ciao.
>

Una curiosità: c'è un motivo valido per cui il pulsante di comando lo metti
nella maschera principale anziché nella sottomaschera??
Anche perché, per pigiare il pulsante di comando posto sulla maschera
principale, la sottomaschera perde il fuoco e penso che non si possa più
parlare di record corrente della sottomaschera: vorrei sbagliarmi, però....
Se poi il motivo per cui non metti il pulsante di comando nella
sottomaschera è dovuto al fatto che la sottomaschera ha una visualizzazione
Foglio dati e pertanto non può visualizzare un pulsante di controllo,
visualizza la sottomaschera a Maschere continue.

--
Roberto

---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

[Silvano Cervelli]

"Roberto da casa" <r.ma...@libero.it> ha scritto nel messaggio
news:6OlJ6.29930$UW4.1...@news.infostrada.it...

Se lo mettessi nella sottomaschera funzionerebbe quella robaccia che ho
scritto?
Comunque sia per motivi estetici che funzionali (ho una sorta di barra con
una serie di pulsanti
nella maschera principale) sarebbe opportuno metterli tutti in sieme.
C'è una soluzione?
Grazie Grazie

[Roberto da casa]

"Silvano Cervelli" <cer...@microelettra.it> ha scritto nel messaggio

news:KGzJ6.286$VR4....@news.infostrada.it...

>
> "Roberto da casa" <r.ma...@libero.it> ha scritto nel messaggio
> news:6OlJ6.29930$UW4.1...@news.infostrada.it...
> >
> > "Silvano Cervelli" <cer...@microelettra.it> ha scritto nel messaggio
> > news:zujJ6.28945$UW4.1...@news.infostrada.it...
> > > Cliccando su un pulsante (che risiede su una maschera ),
> > > voglio eliminare il record attualmente corrente nella sottomaschera
> > >
> > > Database: Ditte
> > > Tabella: Ditte (origini record di Cerca)
> > > ID Ditta: campo contatore della Tabella Ditte
> > > Query: Cerca (origine record di SottoCerca)
> > > Maschera: Cerca
> > > Sottomaschera: SottoCerca
> > >

> > > Ho provato cosě:

> > >
> > > Dim curecord As Long
> > > Dim sSQL As String
> > > curecord = Form_SottoCerca.CurrentRecord
> > >
> > > sSQL = "DELETE FROM Ditte WHERE [ID Ditta] =" & curecord & ";"
> > > DoCmd.RunSQL sSQL--------(in alternativa: Me.Execute sSQL)
> > >
> > > Non funziona come devo fare??
> > > Grazie. Ciao.
> > >
> >

> > Una curiositŕ: c'č un motivo valido per cui il pulsante di comando lo

> metti
> > nella maschera principale anziché nella sottomaschera??
> > Anche perché, per pigiare il pulsante di comando posto sulla maschera

> > principale, la sottomaschera perde il fuoco e penso che non si possa piů

> > parlare di record corrente della sottomaschera: vorrei sbagliarmi,

> perň....

> > Se poi il motivo per cui non metti il pulsante di comando nella

> > sottomaschera č dovuto al fatto che la sottomaschera ha una
> visualizzazione
> > Foglio dati e pertanto non puň visualizzare un pulsante di controllo,

> > visualizza la sottomaschera a Maschere continue.
> >
> Se lo mettessi nella sottomaschera funzionerebbe quella robaccia che ho
> scritto?
> Comunque sia per motivi estetici che funzionali (ho una sorta di barra con
> una serie di pulsanti
> nella maschera principale) sarebbe opportuno metterli tutti in sieme.

> C'č una soluzione?
> Grazie Grazie
>

Ipotizziamo che, dopo aver selezionato un record nella sottomaschera, tu lo
voglia canellare pigiando un pulsante che si trova nella maschera
principale.
Ipotizziamo che il controllo sottomaschera ( attenzione, il controllo
sottomaschera e non la sottomaschera) contenuto nella maschera principale si
chiami Pippo.
Prova a fare cosě: a fronte dell'evento "Su clic" del pulsante di comando
genera il seguente codice VBA:

Me!Pippo.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Facci sapere se funziona.

[Silvano Cervelli]

> Prova a fare cosě: a fronte dell'evento "Su clic" del pulsante di comando
> genera il seguente codice VBA:
>
> Me!Pippo.SetFocus
> DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
> DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
>
> Facci sapere se funziona.
>

Funziona!!
ma allora tutte quelle menate DAO e SQL a che servono?
Ciao Grazie.