SoloCodigo

Hablando se entiende la gente. Perdona si mostré cierto enfado, porque mi frase en principio no daba pie para que se interpretase como tú lo hiciste. No obstante, aclarado el tema, me alegro de que coincidamos.  Un abrazo.

Esperemos que la mora sea transitoria, porque ayer mismo estuve conectado sin problemas.

Es claro que se trata de una cuestión de impago al nodo, pero esperemos lo solucionen porque bien se lo merecen.

Además de cuanto indica HurryCrack, cabe la posibilidad de que no hagas un .Update después de grabar los campos.

Y sobre todo, mi querida Graciela, esta cuestión no debieras haberla presentado en VBA, porque es de VB puro y duro...  ¿De acuerdo?

Saludos

Hola:

No tengo experiencia con Access 2002, pero supongo que del mismo modo que la referencia "Provider=Microsoft.Jet.OLEDB.3.51" era válida para Access 97 y hay que sustituirla por "Provider=Microsoft.Jet.OLEDB.4.0" para Access 2000, habrá que definir adecuadamente el proveedor para Access 2002.

Sólo es una opinión teórica, así que... ¡¡¡perdón si camino por delante del pendón!!!

Saludos

Hola Javi:

Eso tienes que hacerlo por código:

DECommand.CommandText = "Select * From Facturas where num_cliente = '" & clienteActual & "'"

y listo...   Saludos

Amigos Fernando y Miguel:

He encontrado estas dos aplicaciones que encriptan y desencriptan perfectamente:

La primera (CheshireCodifica.zip) está muy bien presentada y tiene la ventaja de que puedes al mismo tiempo comprimir y codificar el fichero; pero es bastante lenta, incluso sin comprimir.

La segunda (EncriptarDatostipoNuevo.zip) va a toda pastilla!!! Parece mentira que haciendo el proceso bit a bit (lógicamente el encriptado ha de hacerse así) pueda llevar esa marcha. Una base de datos de 30 Mb se la ha ventilado en 36 segundos!!! Y HE COMPROBADO QUE ES VALIDO EL FICHERO DESENCRIPTADO.

Me alegro de haberos dado la solución (espero...)

Supongo que lo que deseas es definir la anchura de las columnas...

Esto te lo resolverá:

___________________________

Dim aAncho

Private Sub Form_Load()

' Aquí parametrizas la anchura de las columnas que quieras visualizar; por ejemplo:
aAncho = Array(1350, 3700, 2030, 3000, 550, 2000)
   
End Sub



Private Sub DoInitialSettings()
Dim i%
   
FlexGrid1.Row = 0
FlexGrid1.ColAlignment(0) = 7
   
For i = 0 To FlexGrid1.Cols - 1

' Establece la anchura de la columna
FlexGrid1.ColWidth(i) = aAncho(i)

' Otros parámetros que puedan interesarte...
FlexGrid1.Col = i
FlexGrid1.CellFontSize = 14
FlexGrid1.CellAlignment = 4
       
Next i

FlexGrid1.ScrollTrack = True
FlexGrid1.CellTextStyle = flexTextInset
FlexGrid1.BorderStyle = flexBorderSingle
   
End Sub

__________________________

Saludos

A ver si te sirve:

Abre un FileList y define en sus propiedades:

FileList.Path = "MiRuta"
FileList.Pattern = "*.txt"
FileList.Visible = False

Open App.Path & "Datos.dat" For Output As #1

For n = 0 to FileList.ListCount - 1
     Write #1, FileList.List (n) & vbCrLf
Next n

Close #1

___________________

El fichero Datos.dat debe contener el nombre de todos los ficheros de extensión .txt que existan en el directorio definido como "MiRuta"

Saludos

Si lo que quieres hacer es un mailling a través de Crystal, la respuesta es afirmativa. No tienes nada más que definir los campos de cliente, dirección, cód. postal, población en formato agrupado como si fuera una etiqueta, y en la siguiente sección poner un campo suficientemente amplio para el cuerpo del documento...

Usalo así:

Dim cBuscar As String

cBuscar = "Id_Cliente like '" & text1.text & "'"   '  Aquí va una comilla simple encerrada entre dos comillas dobles, lo mismo que detrás de like debe ir una comilla simple precediendo a la doble...

Clientes.Recordset.Findfirst (cBuscar)

y seguro que te funcionará...

Vamos a ver:

Cuando cierras el reporte, cierras también el recordset con que has "alimentado" ese report, por ejemplo
 (dbData.rs.Close)

Bueno, pues no olvides liberar la memoria, para que limpie totalmente los datos que ocupan el dataReport:

Set dbData = Nothing

en otro caso ocurren esas cosas que tu cuentas, que no se actualiza el dataReport.

Saludos.

Hola: Yo uso algo parecido a esto:

(txtBusc.Text contiene la/las palabras que deben buscarse, introducidas mediante un textbox)

Private Sub txtBusc__KeyDown(KeyCode As Integer, Shift As Integer)

    Dim cBus As String, n As Integer
    Dim pBus As String, nSpa As Integer, aBus As Variant
    Dim cAnd As String
   
    If KeyCode = 13 Then
        If txtBusc.Text = "" Then
            Exit Sub
        End If
        pBus = Trim(txtBusc.Text)
        aBus = Array("", "", "", "", "", "", "", "", "")  ' Para anidar hasta 9 palabras, que creo son suficientes...
        nSpa = 0

        '  ATENCIÓN:  Preparo la SQL compleja:

        Do
            n = InStr(pBus, " ")
            If n = 0 Then
                aBus(nSpa) = pBus
                Exit Do
            End If
            aBus(nSpa) = Left(pBus, n - 1)
            pBus = Trim((Mid(pBus, n + 1)))
            nSpa = nSpa + 1
        Loop
        cBus = ""
        cAnd = ""
        For n = 0 To nSpa
            cBus = cBus & cAnd & "CampoName like '*" & aBus(n) & "*'"
            cAnd = " Or "   '  En los casos en que debe contener TODAS las palabras del textbox, sería: cAnd = " And "
        Next
        ' Miro a ver si algún registro cumple la condición
        dbData.Recordset.FindFirst (cBus)
        If dbData.Recordset.NoMatch Then
             msgbox("No se encuentra ningún caso.")
            Exit Sub
        End If

        '  Abro un recordset con los casos que cumplan la condición de búsqueda
        ' Aplico la SQL preparada

        DataBus.RecordSource = "Select * From Tabla1 Where " & cBus & " Order by CampoName"
        DatBus.Refresh

end If

End Sub