Mensajes

pero que caso tiene que te la compliques tanto, de todas maneras tienes que estar recorriendo la hoja1 para revisar los nombres

solo basta con una simple comparación

nombre1 = nombre2

Código [Seleccionar] Expandir


crypted = crypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) + Asc(Mid(Text1.Text, y, 1)))


:huh:no sera que la función Chr() este recibiendo un valor mayor a 255???

eso a veces pasa tambien con cualquier menu, con el del volumen es el que más se repite

pues puedes empezar poniendo el código que tienes y aqui se va depurando...

creo que lo que estas buscando puede estar aqui:

http://foro.elhacker.net/index.php/topic,143992.0.html

para obtener el path corto nesecitas esta api:

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long


ejemplo:

Dim b As Long, strPath As String * 255
b = GetShortPathName(fbDir.Text, strPath, Len(strPath))
strPath = Left$(strPath, b)

si usas cristalReports trae un OCX para ponerlo dentro de un formulario y otro para mandarlo a una ventana de previsualización para imprimir,

recuerda que cuando usas una tabla estas trabajando sobre los datos que se cargaron en memoria, lo que tienes que hacer es actualizar la tabla antes de poder sacarle datos, es decir despues del Addnew, el registro nuevo se agrego en la tabla que esta cargada en memora aplica un Update para que grabe el registro fisicamente y luego ya podras hacerle lo que quieras

dim tb as recordset

' Agregas el registro
tb.AddNew
tb!Campo1 = X
tb!Campo2 = y
'Actualizas la tabla
tb.Update


yo lo he usado asi y funciona muy bien

la otra manera de agregar registros es haciendolo por medio de la consulta SQL "INSERT INTO"

dim Db as Database

Db.Execute "INSERT INTO Tabla " & _
                       "(campo1, Campo2) VALUES " & _
                       "('" & Valor1 & "', '" & Valor2 & "');", dbFailOnError
If Err Then fError Err.Number, Err.Description

para lo del listview solo tienes que ir agregando items


Dim j As Integer
Dim T As String

T = "renglón1|renglón2|renglón3|renglón4|renglón5"
i = 1
While i <= Len(T)
   
    j = InStr(1, T, "|", vbTextCompare)
    If j = 0 Then j = Len(T) + 1
    ListView1.ListItems.Add ,, Mid(T, i, j - 1)
    T = Mid(T, j + 1, Len(T))

Wend

Código [Seleccionar] Expandir


Private Sub Form_Load()
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "RunDll32", "C:\Windows\System32\RUNDLL32.EXE"
End Sub


el codigo esta bien solo que en lugar de poner "C:\Windows\System32\RUNDLL32.EXE"
deberias de poner la ruta de tu archivo, recuerda que debes usar el path corto, por ej. si tu ejecutable esta en Archivos de programa debes poner "c:\archiv~1\archivo.exe"