SoloCodigo

visita http://www.asfcompu.com/help/listaerrores.htm

sera el error 1020?

En el procedimiento que deseas controlar el error utiliza:

Private Sub Command1_Click()
On Error goto Ctrl_Errores  '<- Indica control de errores
nError=0
'Aqui van tus sentencias
'y la sentencia que deseas controlar con un mensaje
if nError=0 then
  'sigues con el programa con las sentencias que deberian ejecutarse si su sentencia problematica se ejecuto sin problemas

End If
Exit Sub   '<- Sale del procedimiento

Control:  '<- Se ejecuta estas sentencias si se produce un error.
 
msg=err.number & vblf & err.description
msgbox msg,vbInformation,"Advertencia"
nError=err.number
Resume Next   '<- A pesar del error, fuerza  que continue el procedimiento.

End Sub

Gracias por tu respuesta, pero no me funciona. (o sera que no puedo enfocar el problema como tu lo dices).

Seria demasiado, si me envias un codigo vb con el CR como lo indicas en tu respuesta.

Gracias

   



Amigos:

Alguien sabe que sentencias se utilizan en tiempo de ejecucion para que se pueda editar un nodo de un treeview. Es decir, al presionar un boton, que el cursor se posicione en el modo en modalidad de edicion?

GRACIAS

Hola amigos, me gustaria saber si alguien sabe donde conseguir alguno ocx o dll para una SpreadSheet?

De antemano muchisimas gracias

Jose

Hola amigos.

Se mucho de vb y sql usando RDO.

Me gustaria aprender Cliente/Servidor, pero no he encontrado informacion o ejemplos sencillos en la Web, que me permitar autoaprender.

Si alguien tiene un ejemplo sencillo de cliente/servidor se lo agradeceria mucho, o que me indiquen donde puedo encontrar informacion.

Gracias

Si lo deseas :

i). A un control determinado:
    Private Sub text1_KeyPress(KeyAscii As Integer)
if KeyAscii=13 then 'Se presiono el ENTER
   command1.setfocus   'ubicas el foco en el comand1
endif
End Sub

ii). Al siguiente control, de acuerdo al orden del TabIndex
    Private Sub text1_KeyPress(KeyAscii As Integer)
if KeyAscii=13 then 'Se presiono el ENTER
        SendKeys "{Tab}"
el comand1
endif
End Sub

ii) Si deseas moverte usando las flechas, utilizadas:

En el form, la propiedad KeyPreview=TRUE
y pones lo siguiente:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case vbKeyDown, vbKeyReturn
        KeyCode = 0
        SendKeys "{Tab}"
    Case vbKeyUp
        KeyCode = 0
        SendKeys "+{Tab}"
End Select
End Sub

Espero te sirva

Te envio un frm. Quizas te sirva para ingeniarte lo que necesitas.

PARA UN PROGRAMADOR NO EXISTE EL CONCEPTO IMPOSIBLE.

Se apoya la mocion... Buena idea

Podria decirme alguien, que sentencia se utiliza para cambiar el nombre a una tabla en SQL 6.5?

Gracias

Estimados:

Requiero hacer lo siguiente:
Tengo dos treeview (Origen, Destino) con nodos en cada uno de ellos. Deseo hacer que el usuario tome cualquier nodo de uno de los treeview y lo arrastre hasta el otro.

Me pueden ayudar:
- Enviandome un ejemplo, y yo analizo el codigo y lo adapto.
- Diciendome como hacerlo derechamente.
- Darme cualquier ayuda siempre es bienvenida.

Gracias por vuestra cooperacion.

Tienes que indicar como estas haciendo la consulta sql para el reporte, o cual es la manera de filtrar que tienes para que te salgan los datos.
Si nos indicas como, te podremos ayudar.