Mensajes

si, hay, tenes un modulo de Cobein que publico aca mismo...y sino esta pagina:

Replace

saludos.

Hola, busca una tabla de caracteres UNICODE y listo, aca te pongo un ejemplo con caracteres arabes.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()

    Dim oFSO As Object
    Dim oTextStream As Object

    Dim vNombreArchivo As String
    Dim vCaracterUnicode As String
   
    vCaracterUnicode = ChrW(&H633) & ChrW(&H634) & ChrW(&H635) & ChrW(&H636) & ChrW(&H637) ' Aca te pongo unos caracteres arabes..
   
    vNombreArchivo = "C:\" & vCaracterUnicode & ".txt"
   
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oTextStream = oFSO.CreateTextFile(vNombreArchivo, True, True)
   
    oTextStream.Write "Holaaa"
    oTextStream.Close
   
    Set oFSO = Nothing
   
End Sub

yo cree el archivo con FSO, vos crealo con el Open normal si queres...

saludos.

si, le tendrias que dar al boton otra vez....digamos que te va validando por nivel...se puede hacer que te diga todos los que estan incompletos al dar click solo una vez, te tendrias que crear un string que se valla llenando en cada IF que entra...pero ya es otro trabajo...igualmente yo por lo menos lo que hago tambien es poner asteriscos rojos al lado del los campos obligatorios (como hacen la mayotria de los formularios de registro de las paginas web), o sea que aparte de tener la validacion tenemos los asteriscos que el usuario lo ve facilmente, y si el usuario con esa validacion y los asteriscos ya se olvida de llenar algun campo...entonces ya es medio tonto 

saludos.

supongamos que tiene 3 textbox, y hace esto:

Código (vb) [Seleccionar] Expandir


   If Text1.Text = "" Then
       MsgBox "Debe Completar el Text1...", vbExclamation
       Text1.SetFocus
       Exit Sub
   End If

   If Text2.Text = "" Then
       MsgBox "Debe Completar el Text2...", vbExclamation
       Text2.SetFocus
       Exit Sub
   End If

   If Text3.Text = "" Then
       MsgBox "Debe Completar el Text3...", vbExclamation
       Text3.SetFocus
       Exit Sub
   End If

los MsgBox son de ejemplo nomas...

sigueindo tu ejemplo Alex...si completa el primero entonces no entra por el primer IF y pasa al segundo...cuando vea el Text2 vacio entra por el segundo IF...posiciona el foco en el Text2...pero el Text3 ni lo valida porque ya encontro el Text2 vacio y sale del Sub...obviamente si se usa este metodo se tiene que poner los IF en orden a los campos que queremos chequear..porque si ponemos que valide primero el text3 antes que el text1 estaria mal...

saludos

Kal_El_00100 hay una clase de el guille que simula el ItemData del visual basic 6 en .NET...es solo una clase que por cada item guarda en la clase los datos para despues recurperarlos...mirate yo lo uso y anda de 10:

ItemData en .NET

saludos.

porfavor amigos ayudenme ..... mira adecuense a mi codigo, la verdad q lo q me falta es algo sencillo para ustedes ... tan solo me falta que el usuario quue hace un nuevo registro no deje campos en blanco ayudenmeeee plis 

Código [Seleccionar] Expandir


Private Sub cmdGuardar_Click()
Dim rs As New ADODB.Recordset
    If adoDatos.Recordset.RecordCount > 0 Then
        adoDatos.Recordset.MoveFirst
        rs.Open "LLAMADAS", cn, adOpenStatic, adLockOptimistic
        For i = 1 To adoDatos.Recordset.RecordCount
            rs.AddNew
            rs("cod_cliente") = adoDatos.Recordset("cod_cliente")
            rs("cod_tipo") = adoDatos.Recordset("cod_tipo")
            rs("llamadatipo") = adoDatos.Recordset("llamadatipo")
            rs("fecha") = Date
            rs("descripcion") = adoDatos.Recordset("descripcion")
            rs("cod_usuario") = adoDatos.Recordset("cod_usuario")
            rs.Update
            adoDatos.Recordset.MoveNext
        Next
        BorraRegistros "TEMPORAL_LLAMADAS", ""
        adoDatos.Refresh
        ModoEditar False
        MsgBox "El registro se guardó con éxito", , "TICOM S.R.L."
    End If
End Sub


eso es facil, tendrias que poner un chequeo antes de ejecutar el codigo que guarda los registros, algo asi lo haria yo.

Código (vb) [Seleccionar] Expandir


Private Sub cmdGuardar_Click()
    On Error GoTo ErrorInsertar
   
    If txtCodCliente.Text = "" Then
        MsgBox "Debe Ingresar un Codigo de Cliente", vbExclamation
        txtCodCliente.SetFocus
        Exit Sub
    End If
   
    If txtCodTipo.Text = "" Then
        MsgBox "Debe Ingresar un Tipo de Codigo", vbExclamation
        txtCodTipo.SetFocus
        Exit Sub
    End If
   
    Dim rs As ADODB.Recordset 'Declaras el objeto recordset
    Set rs = New ADODB.Recordset 'Creas el objeto recordset
   
    If adoDatos.Recordset.RecordCount > 0 Then
        adoDatos.Recordset.MoveFirst
        rs.Open "LLAMADAS", cn, adOpenStatic, adLockOptimistic
        For i = 1 To adoDatos.Recordset.RecordCount
            rs.AddNew
            rs("cod_cliente") = adoDatos.Recordset("cod_cliente")
            rs("cod_tipo") = adoDatos.Recordset("cod_tipo")
            rs("llamadatipo") = adoDatos.Recordset("llamadatipo")
            rs("fecha") = Date
            rs("descripcion") = adoDatos.Recordset("descripcion")
            rs("cod_usuario") = adoDatos.Recordset("cod_usuario")
            rs.Update
            adoDatos.Recordset.MoveNext
        Next
        BorraRegistros "TEMPORAL_LLAMADAS", ""
        adoDatos.Refresh
        ModoEditar False
        MsgBox "El registro se guardó con éxito", , "TICOM S.R.L."
    End If
   
    Exit Sub
   
ErrorInsertar:
    MsgBox "Se ha producido un error al ingresar los datos", vbCritical
End Sub

fijate que por cada campo que necesito chequear voy agregando un bloque IF...yo ahi puse 2 solamente , vos pones todos los que necesites chequear...

saludos.

Hola, facil, chequea que haya seleccionado algo en el combo, cuando no hay nada seleccionado el listindex es igual a -1...otra cosa..el contador ese esta demas...se puede hacer sin eso.

saludos.

[leliCabello]

Hola, leliCabello , cuando haces algo como "On Error GoTo ErrorSub" tambien tenes que crear la etiqueta, ahi solo la definiste, pero nunca la creaste, busca esto porque es de manual...aparte no es por ofender ni nada por el estilo, pero al codigo lo veo algo confuso...tendrias que definir arriba de todo la etiqueta y el pedazo de codigo que chequea el cliente debe ir antes de ingresar los registros, no tiene logica chequearlo despues de que ya ha sido ingresado, aparte si eso ocurre seguro te tira error porque no existe el codigo...tampoco hagas esto "As New" es por un tema de rendimiento y de posibles errores. mejor primero lo declaras con As y despues le haces el Set (como con cualquier objeto).

saludos.

una palabra...AppForge...

tenes que enumerarlas, podes con el metodo EnumKey de StdRegProv, eso es WMI, creo que con WSH no se puede enumerar...¿ igualmente porque no usas api's ? es lo mejor..