[VB6] Pulsanti indipendenti

[postmaster1]

Salve a tutti ho un piccolo problema ma per me è immenso...
ho creato con l'aiuto della creazione guidata deiform uno che mi eliminasse determinati record il problema ora èche per muovermi avanti ed indietro tra i record devo usare le freccie laterali poste sul controllo data ed è orrendo da vedersi ho inserito anche io manualmente dei pulsanti ma il problema e che quando arriva all'ultimo redord mi da unmessaggio di errore invece che un msgbox...

potete aiutarmi?

questo è il codice chemi ha generato la pagina in automatico

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
  'Posizione in cui inserire il codice per la gestione degli errori
  'Per ignorare gli errori, impostare come commento la riga seguente
  'Per intercettare gli errori, inserire il codice per la gestione degli errori in questa posizione
  MsgBox "Data error event hit err:" & Description
End Sub

Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  'Visualizza la posizione del record corrente per questo gruppo di record
  datPrimaryRS.Caption = "Immobile: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub

Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  'Posizione in cui inserire il codice per la convalida
  'L'evento viene richiamato in seguito alle seguenti azioni
  Dim bCancel As Boolean

  Select Case adReason
  Case adRsnAddNew
  Case adRsnClose
  Case adRsnDelete
  Case adRsnFirstChange
  Case adRsnMove
  Case adRsnRequery
  Case adRsnResynch
  Case adRsnUndoAddNew
  Case adRsnUndoDelete
  Case adRsnUndoUpdate
  Case adRsnUpdate
  End Select

  If bCancel Then adStatus = adStatusCancel
End Sub

grazie a tutti

[raffaeu]

Io non uso il Wizard ...

Hai un pulsante cmdMoveUltimo
con una routine che ne gestisce il click

Il tuo RecordSet si chiama ObjRS

Sub cmdMoveUltimo_Click()

If ObjRS.EOF Then
   Exit Sub
End If
ObjRS.MoveNext
End Sub

[MMarzia]

linguagio e versione anche nel titolo, come da regolamento

[postmaster1]

grazie raffaeu domani provo e ti faccio sapere

Scusami tanto mmarzia la metto sempre la versione nel titolo ma stavolta mi è proprio passato di mente

[MMarzia]

Originariamente inviato da postmaster1
Scusami tanto mmarzia la metto sempre la versione nel titolo ma stavolta mi è proprio passato di mente

ok ma ora me la dici?

[postmaster1]

la versine è visual basic 6