hakuario

Con respecto a tu dificultad, seria bueno saber si tu form, mejor dicho tu textbox al recibir el valor del código de barra escaneado, hace algo mas.. si ejecuta algún proceso en algún evento programado. En principio. Sin los datos que te consulto, te...

Si usas Vb6 Podrias usar un control de errores, para evitar que se cierre la ventan y pierdas los datos. Y en el tratamiento del error, podrias poner el codigo necesario para testear tu conexion....

Creo entender que en lugar de usar imputbox. Deseas usar textbox.. En ese caso, lo mas adecuado seria que pases los valores a tu sub. Como parámetros.. Ya que como comprobastes, si intentas leer dichos controles desde el modulo, no te servirá Por...

'Acontnuacon un ejemplo de una consulta.. asumiendo que usas DAO '---------------------------------------- SQLTmp = "select * from " & Nombre_Tabla & " " & " order by " & Clasificar Set MySnap = Db.OpenRecordset(SQLTmp, dbOpenSnapshot) Err = 0...

Sera que existen 8 label's Si tomas encuenta en matrices de controles.. Comienza desde 0, y si tu if pregunta si es menor a 8.. entiendo que va desde el 0 al 7. En total 8 elementos.. 8 labels.

... ... AND fecha_abono IS NOT NULL

Dim a As Integer Dim p As Double For a = 1 To 99 Load Text1(a) Text1(a).Visible = True Text1(a).Text = "Text1(" + CStr(a) + ")" p = a Do While p >= 10 p = p - 10 Loop If p = 0 Then Text1(a).Top = (Text1(a - 10).Top + Text1(a - 10).Height) + 10...

Create proc sp_3ValoresMaximosxId As Declare @ide varchar(20) Create table #tmp_maximos ( Ide varchar(20), valor numeric ) Declare cur cursor for Select ide from mytabla Open cur Fetch cur into @ide While @@fetch_status =0 Begin insert into...

Select b.codest ,a.nombre, count(b.codest) from nompes b, nomest a where (b.codest = a.codigo) and b.tiponomina = 'e' and b.cia = 'd01' group by b.codest ,a.nombre order by b.codest Derrepente Sirva

Si es Cadena TCol13 = iif(isnull(DataGrid1.Columns("No_art").Value ),"",DataGrid1.Columns("No_art").Value ) Si es Numero TCol13 = iif(isnull(DataGrid1.Columns("No_art").Value ),0,DataGrid1.Columns("No_art").Value )