Alberto
03 de Marzo del 2010

Hola buen dia, una consulta, tomo el siguiente codigo de una pagina de internet y lo Inserte en una frm, y la duda es, que codigo puedo colocarle para evfitar que marca error Cuando La base de datos esta vacia

Private Sub Form_Load ()
  GrdDataGrid.DataSource Set = datPrimaryRS.Recordset ( "ChildCMD "). UnderlyingValue
  Si rs.BOF O rs.EOF = True Then
Exit Sub
End If

End Sub

Private Sub Form_Resize ()
  On Error Resume Next
   'Esto cambiara el tamaño de la Cuadrícula al cambiar el tamaño del formulario
  = grdDataGrid.Width Me.ScaleWidth
  = grdDataGrid.Height Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height
End Sub

Private Sub Form_Unload (Cancel As Integer)
  Screen.MousePointer = vbDefault
End Sub

Private Sub datPrimaryRS_Error (ByVal ErrorNumber As Long, Description As String, ByVal scode As Long, Source As String, ByVal ArchivoDeAyuda As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
   'Aquí es donde Puede colocar el código de control de errores
   'Si Desea pasar por alto los errores, marque como comentario la siguiente línea
   'Detectarlos Desea Si, agregue código aquí para controlarlos
   "MsgBox " evento de error de datos hit err: "& Descripción
  
  Si rs.BOF O rs.EOF = True Then
Exit Sub
End If

  
End Sub

Private Sub datPrimaryRS_MoveComplete (adReason As ADODB.EventReasonEnum, perror As ADODB.Error, adStatus Como pRecordset ADODB.EventStatusEnum, As ADODB.Recordset),
   'Esto mostrara la Posición de registro para este reales de registros
  datPrimaryRS.Caption = "Record: " & CStr (datPrimaryRS.Recordset.AbsolutePosition)
End Sub

Private Sub datPrimaryRS_WillChangeRecord (adReason As ADODB.EventReasonEnum, cRecords As Long, adStatus Como pRecordset ADODB.EventStatusEnum, As ADODB.Recordset),
   'Aquí se Coloca el código de validación
   'Se llama este evento Cuando Ocurre la siguiente acción
  BCancel As Boolean

  Seleccione adReason asunto
  AdRsnAddNew asunto
  AdRsnClose asunto
  AdRsnDelete asunto
  AdRsnFirstChange asunto
  AdRsnMove asunto
  AdRsnRequery asunto
  AdRsnResynch asunto
  AdRsnUndoAddNew asunto
  AdRsnUndoDelete asunto
  AdRsnUndoUpdate asunto
  AdRsnUpdate asunto
  End Select

  Entonces, si bCancel adStatus = adStatusCancel
End Sub

Private Sub cmdAdd_Click ()
  On Error GoTo AddErr
  datPrimaryRS.Recordset.AddNew
  Exit Sub
AddErr:
  MsgBox Err.Description
End Sub

Private Sub cmdDelete_Click ()
  On Error GoTo DeleteErr
  Con datPrimaryRS.Recordset
    . Eliminar
    . MoveNext
    Si. EOF Then. MoveLast
  End With
  Exit Sub
DeleteErr:
  MsgBox Err.Description
End Sub

Private Sub cmdRefresh_Click ()
   'Esto sólo es Necesario en aplicaciones multiusuario
  On Error GoTo RefreshErr
  datPrimaryRS.Refresh
  GrdDataGrid.DataSource Set = datPrimaryRS.Recordset ( "ChildCMD "). UnderlyingValue
  Exit Sub
RefreshErr:
  MsgBox Err.Description
End Sub

Private Sub cmdUpdate_Click ()
  On Error GoTo UpdateErr
  adAffectAll datPrimaryRS.Recordset.UpdateBatch
  Exit Sub
UpdateErr:
  MsgBox Err.Description
End Sub

Private Sub cmdClose_Click ()
    'Esto sólo es Necesario en aplicaciones multiusuario
  On Error GoTo RefreshErr
  datPrimaryRS.Refresh
  GrdDataGrid.DataSource Set = datPrimaryRS.Recordset ( "ChildCMD "). UnderlyingValue
  Unload Me
  Exit Sub
RefreshErr:
  MsgBox Err.Description
 End Sub

samsoft
03 de Marzo del 2010

EN EL INICIO DEL NBOTON PONLE

ON ERROR GOTO ERR1

CODIGO QUE QUEIRAS

AL FINAL ANTES DEL ENDSUB LE PONES
:ERR1

MSGBOX("LA BDD ESTA VACIA")

OSINO
CARAG UNA DE LAS TABLAS Y VERIFCA SI TIENE REGISTROS SINO NO LE PASAS Y YA