Mensajes

para el option button debes agregar el componente Microsoft Forms 2.0 ("FM20.dll"), el optionButton que sale lo puedes poner como transparente, y para el Frame no sé jejeje!!! 

pues te podemos ayudar, solo dinos, que tipo de Base de datos es, cuales son los campos y si ya tienes código ponlo, para ver donde esta el error

bueno despues de una larga ausencia me puse a revisar tu código y ya encontre el problema, el problema es que cuando abres el archivo se trae un "enter", lo que hay que hacer es quitarle ese entrer al final de la cadena de texto:

Código [Seleccionar] Expandir



Private Sub OKButton_Click()
    On Local Error GoTo fin
    Label1.Visible = False
    Text1.Visible = False
    okButton.Visible = False
    CancelButton.Visible = False
    Label2.Visible = True
   
    MaxText = Len(Form1.Texto.Text)
    MaxPass = Len(Text1.Text)
    y = 1
   
    Decrypted = ""
    If Right(Form1.Texto.Text, 2) = vbCrLf Then
        Form1.Texto.Text = Left(Form1.Texto.Text, Len(Form1.Texto.Text) - 2)
        MaxPass = MaxPass - 2
        MaxText = MaxText - 2
    End If
   
    For x = 1 To MaxText
          Decrypted = Decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - (Asc(Mid(Text1.Text, y, 1)) / 2))
       y = y + 1
       If y >= MaxPass Then y = 1
       
    Next x
    Form1.Texto.Text = Decrypted
    Unload Me
fin:
   If Err Then MsgBox Err.Description
    On Local Error GoTo 0

    Unload Me
End Sub



también falta desactivar el control de errores al final de cada procedimiento

Código [Seleccionar] Expandir


fin:

--->   If Err Then MsgBox Err.Description
    On Local Error GoTo 0 <---

    Unload Me
End Sub



este código es el que va en el Form3

primero tendías que abrir el Txt, luego separarlo en campos para pasarlo a la BD, y por ultimo solo guardalos en la BD. usa la boncito de "búscar" que viene en la parte de arriba, ya hay ejemplos de como abrir BD's y archivos y de funciones de texto

bueno para el pasar los datos al MsFlexGrid yo lo haría así:

Código [Seleccionar] Expandir



dim Columna as long, Renglon as Long

Columna = 0
renglon = 0

for renglon = 0 to ListNtt.ListCount
      Msflex1.Rows = reglon +1
      msFlex1.Row = renglon
      msFlex1.Text = listNTT.List(renglon)
next Renglon





para buscar la texto en por columnas tendrías que poner 2 "FOR" para recorrer el MSFlex y puedes usar la función InStr

Código [Seleccionar] Expandir


dim Renglon as Long, Columna as Long
Dim Salir as Boolean

salir = false

for renglon = 0 to MSflex1.Rows
   For Columna = 0 to MSFlex1.Cols
             msflex1.col = columna
             msFlex1.Row = Renglon
             if inStr(msFlex1.Text , "E") <> 0 then ' Aqui pones el valor a búscar
                 ' Lo encontro
                  salir = True
                  exit for
              end if

   next Columna

   if salir then exit for

next Renglon



espero te sirva....

eso es facil

Código [Seleccionar] Expandir



Private Sub Nombre_KeyPress(KeyAscii As Integer)

   If KeyAscii = 13 Then
        Nom = Nombre.text
        Unload Me
        FrmPreg1.Show
   End If
End Sub


pues asi como moverlo no se si se pueda, lo que se me ocurre esque cuando hagas click sobre alguna celda del primer Flex hagas un filtrado de registros de los otros 2 flex

 lo que puedes hacer es crear una instancia de un form

Código [Seleccionar] Expandir


Sub Main()
    Dim x As Form
    Set x = New Form1
    x.Show
end sub



en este caso el proyecto tiene un form "Form1" y lo que hago es crear una nueva instancia de ese form

  que no se hace con MoveNext

Código [Seleccionar] Expandir


Adodc1.Recordset.MoveNext



mira este es parte de un código de una de mis aplicaciones creo que es lo que estabas buscando, el Inet usa el estado "icResponseCompleted" para saber como va la carga/descarga de un archivo

Código [Seleccionar] Expandir




Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData As Variant 'acá almacenamos los datos
    Dim prog As Double, filesize As Long, contenttype As String
   
    On Local Error GoTo linea1
    Select Case State
        Case icError ' 11
              ' En caso de error, devuelve ResponseCode y ResponseInfo.
            vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
        Case icResponseCompleted
            Dim bDone As Boolean: bDone = False
            Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Establecemos el Max del = a al tamaño del archivo
            ProgressBar1.Max = filesize
            contenttype = Inet1.GetHeader("Content-type")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open App.Path & "\" & nArchivo For Binary Access Write As #1

            ' Leemos de a 1 Kbytes. El segundo parámetro indica  el tipo de fichero. Tipo texto o tipo Binario, en este caso _
            binario
            vtData = Inet1.GetChunk(1024, icByteArray)

            DoEvents
            'Si el tamaño del fichero es 0 ponemos bDone en True para que no entre en el bucle
            If Len(vtData) = 0 Then bDone = True

            Do While Not bDone
                'Almacenamos en un array el contenido del archivo
                tempArray = vtData
                'Escribimos el archivo en disco
                Put #1, , tempArray
                'Aumentamos la barra
                ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2
                prog = (ProgressBar1.Value + Len(vtData) * 2) / 1000000
                lblDescarga.Caption = "Descargando: " & Format(prog, "0.00") & "MB de " & Format(filesize / 1000000, "0.00") & "MB"
                               
                ' Leemos de pedazos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
                DoEvents
                If Len(vtData) = 0 Then bDone = True
            Loop
            completo = bDone
            Close #1
            ProgressBar1.Value = 0
    End Select
    Exit Sub
linea1:
    MsgBox "Error al conectarse al servidor" & vbCrLf & vbCrLf & Err.Number & vbCrLf & Err.Description, vbInformation + vbOKOnly, App.EXEName
    completo = True
    On Local Error GoTo 0

End Sub