SoloCodigo

k tal amigo, en una tabla le tengo un campo k le puse de nombre numero, lo k necesito en ese campo es k por cada registro k grabe obtenga un numero secuencial, como podría hacer esto. gracias de antemano, sludos

k tal amigos resulta que estoy aprendiendo a programar y me recomendaron que empezara mejor con pascal, bueno tengo ya pascal k lo bajé de internet y según la version es 1.0.10. bueno necesito k me ayuden diciendome donde encuentro manuales en español y totalmente basico ya k no sé casi nada al respecto.
bueno de antemano muchas gracias y saludos

k tal amigos tengo una pc con dos particiones una winxp y otra fc1 pero tengo unos archivos k necesito pasar a linux como se puede hacer? y ya k estamos en el tema como se hace en viceversa.

Saludos

k tal amigos tengo un servidor de fedora core2, con una unidad de tape para backup, la muy buena se ha kedado trabada y no kiere salir, lo reinicie para k cuando levantara ella misma lo bote pero nada, solo hace el intento y se keda.

Alguién me puede decir si existe un codigo por ahi para expulsarla e intentar de esa forma y no tener k desarmarla.

Gracias de antemano y saludos,

k tal amigos, necesito su ayuda por favor.
este es parte del código k tengo donde uno dos variables pero no sé como unir 3 variables.
Private Sub CdmAceptar_Click()

Label13 = "Su Registro de esta jornada ha sido de " & Textcantidad
Label14 = "En un tiempo de " & Textestimadoh  
Label15 = "Facturas "
Label16 = "M/H "
ValidarCampos
End Sub

Label14 = "En un tiempo de " & Textestimadoh  'aki necesito adjuntar la otra variable k me da los minutos k se llama estimadom, además necesito que entre estimadoh y estimadom salgan dos puntos o tenga un espacio k no kede pegado, ya k lo k va a mostra va a ser un timpo en horas por ejm.
Además de esto que que al hacer otra validacion me traiga los datos nuevos ya k estoy observando que cuando le doy aceptar por primera ves me aparecen los datos, pero si trato ahi mismo de guardar otros datos se kedan los mismos anteriores, en pocas palabras no actualiza los labels13 y 14.
espero haberme explicado bien.

En un tiempo de 3:04 horas.
gracias de antemano y saludos para todos.

k ttal amigos tengo una duda, este codigo lo hice en el editor de visual basic osea en excell, se podrá pasar a basic este codigo?
Necesito me ayude porfavor y gracias de antemano.

Saludos y k Dios les bendiga,

Option Explicit


Private Sub CdmAceptar_Click()
ValidarCampos
End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub Combopersonal_Change()
If Len(Combopersonal.Text) = 12 Then
TextSinicial.SetFocus
End If
End Sub



Private Sub CdmTerminar_Click()
Unload UserForm
End Sub

Private Sub TextFecha_Change()
If Len(TextFecha.Text) = 10 Then
End If
End Sub

Private Sub Textcantidad_Change()
If Len(Textcantidad.Value) = 7 Then
End If
End Sub

Private Sub Textcantidad_Enter()
Textcantidad.Value = (Textsecuenciaf.Value - TextSinicial)
End Sub

Private Sub Textestimadoh_Enter()
If TextMinuto.Value < TextMinuto2.Value Then
    Textestimadoh.Value = (Texthora2.Value - Texthora.Value)
Else
    Textestimadoh.Value = (Texthora2.Value - Texthora.Value) - 1
End If
End Sub

Private Sub Textestimadom_Enter()
If TextMinuto.Value < TextMinuto2.Value Then
    Textestimadom.Value = (TextMinuto2.Value - TextMinuto.Value)
        If Textestimadom.Value <= 9 Then
            Textestimadom.Value = "0" & Textestimadom.Value
        End If
Else
    Textestimadom.Value = (60 - TextMinuto.Value) + TextMinuto2.Value
        If Textestimadom.Value <= 9 Then
            Textestimadom.Value = "0" & Textestimadom.Value
        End If
End If
End Sub

Private Sub TextFecha_Enter()
TextFecha.Value = Date
End Sub

Private Sub TextMinuto_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextMinuto.Value <= 9 Then
        TextMinuto.Value = "0" & TextMinuto.Value
    End If
End Sub

Private Sub TextMinuto2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextMinuto2.Value <= 9 Then
        TextMinuto2.Value = "0" & TextMinuto2.Value
    End If
End Sub

Private Sub Textsecuenciaf_Change()
If Len(Textsecuenciaf.Value) = 7 Then
Textcantidad.SetFocus
End If
End Sub

Private Sub Textestimadom_Change()
If Len(Textestimadom.Value) = 7 Then
Textsecuenciaf.SetFocus
End If
End Sub

Private Sub Textestimadoh_Change()
If Len(Textestimadoh.Value) = 7 Then
Textestimadom.SetFocus
End If
End Sub

Private Sub TextMinuto2_Change()
If Len(TextMinuto2.Value) = 7 Then
Textestimadoh.SetFocus
End If
End Sub

Private Sub Texthora2_Change()
If Len(Texthora2.Value) = 3 Then
TextMinuto2.SetFocus
End If
End Sub

'aki se coloca la hora de inicio 1
Private Sub Texthora_Change()

If Len(Texthora.Value) = 3 Then
TextMinuto.SetFocus
End If
End Sub

'aki se coloca el minuto 1
Private Sub Textminuto_Change()
If Len(TextMinuto.Value) = 3 Then
Texthora2.SetFocus
End If
End Sub


Private Sub TextSinicial_Change()
If Len(TextSinicial.Text) = 12 Then
Texthora.SetFocus
End If
End Sub


Private Sub UserForm_initialize()
    ActiveSheet.Range("b4").Activate
    'Buscar la primera fila sin
    Do While Not IsEmpty(ActiveCell)
      ActiveCell.Offset(1, 0).Activate
    Loop
End Sub

Private Sub ValidarCampos()

Dim Error As String
Dim ValorMensaje As Integer

    Error = "Error en los datos del formulario"
 
    If Len(Textsecuenciaf.Text) = 0 Then
       
        ValorMensaje = MsgBox("El campo Numero de Secuencia inicial está vacio", _
        vbOKOnly, Error)
       
        TextSinicial.SetFocus
    Else
       
        If Len(Textsecuenciaf.Text) = 0 Then
           
            ValorMensaje = MsgBox _
            ("El campo Secuencia final de serie está vacio", vbOKOnly, Error)
           
            Textsecuenciaf.SetFocus
        Else
With ActiveCell
.Value = Combopersonal
.Offset(0, 1).Value = TextSinicial
.Offset(0, 2).Value = Texthora
.Offset(0, 3).Value = ":"
.Offset(0, 4).Value = TextMinuto
.Offset(0, 5).Value = Texthora2
.Offset(0, 6).Value = ":"
.Offset(0, 7).Value = TextMinuto2
.Offset(0, 8).Value = Textestimadoh
.Offset(0, 9).Value = ":"
.Offset(0, 10).Value = Textestimadom
.Offset(0, 11).Value = Textsecuenciaf
.Offset(0, 12).Value = Textcantidad
.Offset(0, 13).Value = Combojornada
.Offset(0, 14).Value = TextFecha

           End With
   
           ActiveCell.Offset(1, 0).Activate
         
           BorrarFormulario
       End If
     End If
 End Sub



Private Sub BorrarFormulario()
    Combopersonal.Text = ""
    TextSinicial.Text = ""
Texthora.Text = ""
TextMinuto.Text = ""
Texthora2.Text = ""
TextMinuto2.Text = ""
Textestimadoh.Text = ""
Textestimadom.Text = ""
Textsecuenciaf.Text = ""
Textcantidad.Text = ""
Combojornada.Text = ""
TextFecha.Text = ""

End Sub

k tal amigos como puedo hacer para ver una base de datos.

lo que hago es lo siguiente pero no me permite

USE c:\directorio\nombre.extension IN 0 SHARED.

Les agradezco compartan sus conocimientos con este principiante.
 

k tal amigos, necesito me ayuden por favor estoy tratando de abrir una tabla con vf7 y me dice que no es una tabla, pero la tabla está perfecta, kisiera por favor compartieran sus valiosos conocimientos y me ayuden. gracia
 

que tal amigos tengo una pregunta para ver si me pueden ayudar con un codigo.
Resulta que tengo un informe en excell con formulas donde trabajo con varias cantidades. bueno el pequeño modulo consiste en tomar el textbox1 y el textbox2 y sumarlos en el textbox3 y al darle clip para validacion a las celdas seleccionadas la misma se copia pero el problema está que en la parte superior tengo una formula que sumas esas celdas, pero al validar el total que está en los textbox no lo suma. les copio el codigo para k lo observen.
Private Sub CommandButton1_Click()
ValidarCampos
End Sub

Private Sub CommandButton2_Click()
Unload Sumar
End Sub

Private Sub TextBox3_enter()

     TextBox3.Value = (-TextBox2.Value - TextBox1.Value)
       
       
End Sub




Private Sub ValidarCampos()

Dim Error As String
Dim ValorMensaje As Integer

    Error = "Error en los datos del formulario"
 
    If Len(TextBox1.Text) = 0 Then
       
        ValorMensaje = MsgBox("El campo Numero 1 está vacio", _
        vbOKOnly, Error)
       
        TextBox1.SetFocus
    Else
       
        If Len(TextBox2.Text) = 0 Then
           
            ValorMensaje = MsgBox _
            ("El campo numero 2 está vacio", vbOKOnly, Error)
           
            Textsbox2.SetFocus
        Else
       
With ActiveCell
.Value = TextBox3


           End With
   
           ActiveCell.Offset(1, 0).Activate
         
           BorrarFormulario
       End If
     End If
 End Sub
 Private Sub BorrarFormulario()
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    End Sub


bueno trataré de ser mas especifico pork pienso k no fui muy claro.
Tengo text1 y text2 que el total queda en el text3 al darle validar los campos los copia en las celdas pero no afecta en el total de la formula que es =SUMA(H5:H6)
pero si lo hago manual si.
Espero que sean tan amables or favor y me ayuden en esto.
Ah cabe señalar que soy principiante en esto.
 
Gracias

Un saludos para todos. Para empezar soy principiante en el area de programación he estado aprendiendo atraves de manuales y consultas. Estoy haciendo un modulo en el area de excell llamado frminventario donde capturo los datos de un inventario de activos cuando kiero usar un combox para desplegar una lista pero no doy como hacerlo, ejemplo kiero poner en ese combo un grupo de activos que cuando lo seleccione y al final al terminar de llenar la pantalla al darle aceptar se guarde en las celdas de excell. ya he trabajado con los texbox y me funcionan pero no doy como hacerlo con los combo, Les agradezco de antemano por su ayuda y si pueden pasarme un ejemplo del codigo seria mejor.
Adjunto una copia de lo k estoy haciendo verán k las variables son un monto pero estoy pensando cuando tengo definido bien como es restructurla para k no tenga tantas,

gracias