Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - spostare record a piacimento in una maschera
Forum - Visual Basic 6 - spostare record a piacimento in una maschera

Avatar
damirella (Normal User)
Newbie


Messaggi: 16
Iscritto: 20/01/2011

Segnala al moderatore
Postato alle 10:35
Venerdė, 22/02/2013
Salve č da un po' che non venivo da queste parti e mi fa piacere che questo sito sia ulteriormente cresciuto!

Il Mio problema č il seguente


Qualche anima gentile mi sa risolvere il problema?

Vorrei Odinare dei record in una maschera access popolata con dei dati senza utilizzare filtri o query ma spostare ir ecord sopra o sotto tramite 2 tasti (gių o su)

ringrazio anticipatamente:d


damirella ha allegato un file: spostarerecordapiacimentoinaccess.jpg (68387 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da damirella il 23/02/2013 alle 9:06
PM Quote
Avatar
ampeg (Normal User)
Pro


Messaggi: 124
Iscritto: 21/04/2011

Segnala al moderatore
Postato alle 13:01
Venerdė, 22/02/2013
non conosco Access e le sue maschere e me ne sono sempre tenuto alla dovuta distanza
ma se la maschera in questione č in binding con la tabella puoi solo ripopolarla tramite query
se non lo č, da VBA penso si possano spostare i valori tra le text ma non servirebbe a nulla se poi non salvi il tutto in un campo apposito per mantenere l'ordinamento ma in ogni caso dovrai ripopolare sempre da query...

i recordset hanno una posizione fisica nel db che dovrebbe gestire solo il db e non l'utente altrimenti non avrebbe senso usare un database

PM Quote
Avatar
damirella (Normal User)
Newbie


Messaggi: 16
Iscritto: 20/01/2011

Segnala al moderatore
Postato alle 15:37
Venerdė, 22/02/2013
Grazie cmq per l'interessamento:k:

PM Quote
Avatar
damirella (Normal User)
Newbie


Messaggi: 16
Iscritto: 20/01/2011

Segnala al moderatore
Postato alle 15:40
Venerdė, 22/02/2013
grazie ho risolto

Ho creato due pulsanti "freccia su" e "freccia gių" nel corpo a fianco di
ogni record.

Lo scopo č che premendo esempio "freccia su" di un record questo si sposti
su di una posizione e sposti in gių di una posizione il record precedente


'dove appcont č un campo numerico della tabella "Dettagliordini". Il
Me.AppCont viene incrementato in automatico all'inserimento di ogni nuovo
record tramite la seguente routine sull'evento "prima di inserire" della
form:

Me.AppCont = Nz(DMax("[APPCONT]", "[DETTAGLIORDINI]"), 0) + 1



Esempio codice freccia su:

Private Sub frecciaSU_Click()
On Error GoTo Err_frecciaSU_Click

Me.AppCont = Me.AppCont - 1
DoCmd.GoToRecord , , acPrevious
Me.AppCont = Me.AppCont + 1

Dim strsql As String
strsql = "SELECT * FROM tuatabella ORDER BY tuatabella.APPCONT;"
Me.RecordSource = strsql

Err_frecciaSU_Click:
Select Case Err.Number
Case 2499, 2105
MsgBox "Impossibile eseguire l'operazione"
Me.AppCont = Me.AppCont + 1
Exit sub
Case Else
MsgBox Err.Description
Exit sub
End Select
End Sub

Ultima modifica effettuata da damirella il 23/02/2013 alle 9:04
PM Quote