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 |