Visual basic ideas

IDEAS DE PROGRAMACION VISUAL BASIC

COMO INSERTAR UN INDICE A UN DOCUMENTO 2
COMO OBTENER DATOS EN UN DATAGRID 3
EJEMPLO DE COMO HACER MID(FUNCION EN VISUAL BASIC) EN CRYSTAL 3
COMO REEMPLAZAR EN ACCES UN CAMPO NUMERO CON UN 0 3
EJEMPLO PARA VALIDAR FECHAS CON UNA FUNCION 4
COMO CAPTURAR UNA RESPUESTA EN UN MSGBOX 5
EJEMPLO DE COMO INICIALIZAR UNA MSKFECHA 6
USAR CLAUSULA DISTINCTROWEN QUERY 6
COMO LEER LOS OBJETOS DE UN FORMULARIO 6
CODIGO PARA CREAR UNA BASE DE DATOS 7
CODIGO PARA VERIFICAR SI EXISTE TABLA 7
CODIGO PARA VERIFICAR SI EXISTE TABLA 8
COMO CHECAR QUE EXISTA UN CAMPO EN UNA TABLA 8
COMO CALCULAR EL TIEMPO QUE DURA UN PROCESO 13
EJEMPLO DE COMO LEER UN REGISTRO EN BD EXTERNA 14
EJEMPLO PARA VALIDAR UN SOLO PUNTO EN UN CAMPOS NUMERICOS 15
EJEMPLO DEQUERY DE UPDATE 16
COMO OBTENER EL ULTIMO DIA DEL MES 17
EJEMPLO DE CLAUSULA DIR PARA VERIFICAR SI UN ARCHIVO O FOLDER YA EXISTE 18
CODIGO PARA CREAR UN FOLDER 18
COMO SUMAR 1 DIA A UNA FECHA 19
FORMULA PARA OBTENER EL NOMBRE DEL DIA UNA FECHA EN CRYSTAL REPORT 20
GRABAR DATOS DE UNA TABLA A OTRA 20
PROCEDIMIENTO PARA CREAR UN MENU DE OPCIONES EN EL CUAL SE SUBRRAYA LA OPCION SELECCIONADA 21COMO INSERTAR UN INDICE A UN DOCUMENTO

En caso de error utilizar la opción editar campo ( se muestra con el botón derecho del Mouse) y marcar dentro de ella TOC , para que reconozca los titulos. Recordar que en caso de los encabezados, se debe indicar que el font es titulo1,titulo2,ect

COMO OBTENER DATOS EN UN DATAGRID

With DataGrid1
For a = 0 To .Columns.Count - 1
If.Columns(a).DataField = "CLAVE" Then clave = .Columns(a).Text
Next
End With

'Cuidado con esta sentencia si se escribe el campo diferente que como se escribio al conectarlo no lo reconoce, se debe buscar tal y como esta escrito a la hora de conectarlo, en mayusculas o minusculas segun sea.

EJEMPLO DE COMO HACER MID(FUNCION EN VISUAL BASIC) EN CRYSTAL

{SERV_CONSULTA.INDICACIONES}[1 TO 221]

COMO REEMPLAZAR EN ACCES UN CAMPO NUMERO CON UN 0

UTILIZA EL REEMPLAZAR DEL ACCESS Y BUSCAS ASI PARA REEMPLAZAR POR 0
[>%1234567890]

EJEMPLO PARA VALIDAR FECHAS CON UNA FUNCION

EN EL LOAD()
Mskfecha_Inic.Mask = "##/##/####"
Mskfecha_Inic.Text = "__/__/____"

Mskfecha_fin.Mask = "##/##/####"
Mskfecha_fin.Text = "__/__/____"
END IF

Dim Mskfecha As MaskEdBoxPrivate Sub Mskfecha_inic_Validate(Cancel As Boolean)
Set Mskfecha = Mskfecha_Inic
Cancel = Not FECHA_VALIDA
End Sub

Private Sub Mskfecha_fin_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set Mskfecha = Mskfecha_fin
If FECHA_VALIDA = True Then TxtCvePago.SetFocus
End If
End Sub

Private Sub Mskfecha_Inic_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set Mskfecha= Mskfecha_Inic
If FECHA_VALIDA = True Then Mskfecha_fin.SetFocus
End If
End Sub

Function FECHA_VALIDA() As Boolean
Dim Meses As Integer
FECHA_VALIDA = False

Meses = Val(Mid(Mskfecha.Text, 1, 2))
If Meses > 12 Then
MsgBox "Teclee un campo fecha mes/dia/año", 48, "Mensaje"
Exit Function
End If

If Not IsDate(Mskfecha) Then
MsgBox "Teclee un campo fecha mes/dia/año", 48,"Mensaje"
Mskfecha.Mask = "##/##/####"
Mskfecha.Text = "__/__/____"
Mskfecha.SetFocus
Else
FECHA_VALIDA = True
End If
End Function

COMO CAPTURAR UNA RESPUESTA EN UN MSGBOX

respuesta = MsgBox("El pago exacto fue aplicado la poliza ya esta saldada " & vbCrLf & " " & _
"¿Deseas cerrar este periodo, para poner candado en él " & vbCrLf & " " & _
" y no puedaser modificado, sin autorización ?", 48, "Mensaje")

If respuesta = vbYes Then

EJEMPLO DE COMO INICIALIZAR UNA MSKFECHA

MaskFechaPago.Mask = "##/##/####"
MaskFechaPago.Text = "__/__/____"

USAR CLAUSULA DISTINCTROW EN QUERY

Warning: esta clausula borra de las dos tablas si se hace un delete en cualquiera de las dos

'Strquery = "SELECT DISTINCTROW Far_Ajuste.Clave,...