Autor
|
Tema: buscar registros en excel con vb (Leído 15,092 veces)
|
oscardiaz
Desconectado
Mensajes: 21
|
Buenas Sres. Busque y busque y solo encontre algo como esto :
Private Sub Command1_Click() Dim nro As Integer nro = Val(InputBox("Introduce el Nº")) Data1.Recordset.FindFirst "Nº=" & nro If Data1.Recordset.NoMatch Then MsgBox "El Nº: " & nro & " No está en la Base de Datos", vbExclamation, "Búsquedas de Nº" End If End Sub
Se puede buscar un registro de una tabla excel directamente del form q estoy trabajando sin nececidad de tener q usar "Val(InputBox("...."))"
Gracias
|
|
|
En línea
|
|
|
|
seba123neo
|
Hoal, ¿¿ estas trabajando en VBA ?? no entendi que estas usando,no sera Access ??
saludos.
|
|
|
En línea
|
|
|
|
oscardiaz
Desconectado
Mensajes: 21
|
vb6 y con una tabla en excel. Quiero hacer algo así como cuando se introduce un nombre y contraseña y el programa los busca en una base de datos. Tengo dos campos "Nº" y "Sección" y dos textbox. En un textbox escribir el nro. y q el otro muestre el registro asociado.
|
|
|
En línea
|
|
|
|
oscardiaz
Desconectado
Mensajes: 21
|
El código que escribí arriba sirve bien pero debo ingresar el nro. en un inputbox q aparece y es esto lo que quiero evitar.
|
|
|
En línea
|
|
|
|
oscardiaz
Desconectado
Mensajes: 21
|
Bueno el asunto es q quiero sumar los registros correspondientes a la sección de varios alambres y queria hacer la busqueda un poco más rapida.... La cosa es q cuando empecé a sumar secciones el resultado fue algo inesperado... y no se cual puede ser el error, Código :
Private Sub Command2_Click()
Dim S As Single 'Sección Dim n As Single 'Nº Conductores Dim ST As Single 'Sección Total S = Text2.Text n = Text3.Text ST = S * n Label4.Caption = ST + Val(Label4)
End Sub
Y el resultado en el Label tiene demsiados decimales y la suma no es la correcta, hay variaciones de un nuero y los decimales no son los q deverían. Alguna ayudita plis
|
|
|
En línea
|
|
|
|
seba123neo
|
pone que valores le estas poniendo y que valor te da la suma, asi vemos que esta mal...
|
|
|
En línea
|
|
|
|
oscardiaz
Desconectado
Mensajes: 21
|
Son valores con cuatro decimales (aquí mm2)
AWG mm2
1 42,4000 2 33,6000 3 26,7000 4 21,2000 5 16,8000 6 13,3000 7 10,5000 8 8,3700 9 6,6300 ......
y por ej al escojer solo el primer valor 42,4000 en el label sale 42,4000015258. Si a este le sumo el segundo 33,6000 deberia arrojar por lo menos 79,00000152 pero arroja 75,5999984741, etc. (como hago para mostrar el form aquí ,je)
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
No entiendo ... 42+33 = 75 .. más los decimales da "75,algo" ... como dices que debería de dar por lo menos 79? El código que escribí arriba sirve bien pero debo ingresar el nro. en un inputbox q aparece y es esto lo que quiero evitar.
No lo pongas en un input, pasalo como valor directamente Saludos
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
oscardiaz
Desconectado
Mensajes: 21
|
Perdón dí vuelta el 6.. tienes razón... Bueno la cuestión es que el resultado no lo entrega con cuatro decimales y me entrega 9 o 10 de estos siendo q yo le ingreso los numeros de la tabla q tienen solo 4.
|
|
|
En línea
|
|
|
|
oscardiaz
Desconectado
Mensajes: 21
|
Usé lo sgte. pero tampoco lo consigo:
Label4.Caption = Format((ST + Val(Label4)), "0,000")
|
|
|
En línea
|
|
|
|
|
|