Newsgroup: it.comp.appl.access
Titolo: da routine a funzione

Quesito un po' stupido ...
Mettendo insieme un po' di suggerimenti ho creato questa procedura per 
scorrere i records di una maschera a form continue con le frecce come se 
fosse un foglio dati.
Come potrei creare una funzione da poter riutilizzare nelle maschere che mi 
servono invece che riscrivere ogni volta tutto questo codice?
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim nome_form As String
nome_form = 
Screen.ActiveForm.Name
On Error Resume Next
  If KeyCode = 40 Then
        DoCmd.GoToRecord acDataForm, nome_form, acNext
  ElseIf KeyCode = 38 Then
        DoCmd.GoToRecord acDataForm, nome_form, acPrevious
  End If
End Sub
-- 
ciroteo
MC


Function fctrSpostati(frm as form, keyx as Integer)
   If KeyCode = 40 Then
         DoCmd.GoToRecord acDataForm, nome_form, acNext
   ElseIf KeyCode = 38 Then
         DoCmd.GoToRecord acDataForm, nome_form, acPrevious
   End If
end function
Poi nella maschera
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    call fctrSpostati(
screen.activeform.name
, keycode
end sub
dovrebbe andare
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:3Fene.13834$TR5....@news.edisontel.com...

ok, la function dove la salvo in un modulo a parte solo per le funzioni? 

 funzioni?
Sì


 ha scritto nel messaggio 
news:ePene.13837$TR5....@news.edisontel.com...

ok, fatto la valigia? il pallone sgonfialo e infilalo da qualche parte poi 
lo gonfiamo li ...

 parte poi lo gonfiamo li ...
Non ho avuto adesioni, ma solo un cazziatone dal similcrucco e allora ho
lasciato perdere.
Peccato, sai al Cisa non sarò relatore, ma sul campo lo sarei stato...
;-)


 parte poi lo gonfiamo li ...
Stamattina ho prenotato 3 pastiere ed babà e saranno pronte ven alle 7.00
quando parto.
la tua è in pole position



dai! questo sarebbe un gesto veramente gradito ...come nelle partite 
importanti ti porterò il gagliardetto della mia squadra  ... so che gradirai 
altrettanto!
;-)

 
quindi non si gioca più??? :(
... vabbè ci sfogheremo con il cibo!!! :D
Ciao
Nick

 Nick


 quello del proprio posto?
Ah portate anche qualche applicazione, mi sono sempre piaciuti i confronti.
il pc montano Axp


 ha scritto nel messaggio
news:d7jqvn$r9c$1...@hulme.interac.it...

In un Modulo inserisci:
Function TastiFrecce(KeyCode As Integer)
If KeyCode = 40 Then
DoCmd.GoToRecord acDataForm, 
Screen.ActiveForm.Name
, acNext
ElseIf KeyCode = 38 Then
DoCmd.GoToRecord acDataForm, 
Screen.ActiveForm.Name
, acPrevious
End If
End Function
Nelle maschere interessate con "Anteprima tasti" impostata a "Sì"
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Call TastiFrecce(KeyCode)
End Sub
Già l'ho provato e mi funziona
--
rgrds
SC

"Nick" <senz...@chedetesul.NG> ha scritto nel messaggio 
news:alfne.37360$795.1...@twister1.libero.it...

vabbè portane uno buono e basta ... 

 Sě
ATTENZIONE che portare fuori dalla Form funzioni che
usano un DOCMD č sempre da valutare bene prima di farlo.
Se non ha il focus non funziona.
Per fare una cosa fatta in modo piů flessibile senza
avere problemi sfrutta il movimento sul RecordsetClone
ed approfitta dell'aggiornamento del BookMark e la gestione
errori.
Saluti
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Non avrebbe lo stesso senso.
Non voglio ubriacarmi, voglio provare sapori di altre terre
Mi sa che un frequentatore che conosco drizzerà le orecchie...


 
Ciao
Nick