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