hakuario

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.

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...

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 )

.Text1(i).Text = iif(isnull(rs(i)),"",rs(i))

Evento Click de primer checkbox Check2.value = Check1.Value

Rs.Open "SELECT consecutivo,buque,barcaza, toneladas,zarpa,tm FROM CARGUE Where pagina = " & Val(restaurar.Label26) & " order by idcargue ASC", cn, adOpenStatic, adLockOptimistic Sin paréntesis.

Según entiendo, ¿Resultado es la sumatoria de la divisiones? 'Codigo en CmdCalcular dim dSuma as double dim iNumeroArriba as integer,iNumeroAbajo as integer,iContador as integer iNumeroArriba = val(txt1.text) iNumeroAbajo = val(txt2.text) dSuma = 0...

dim conec as Adodb.Connection set conec = New Adodb.Connection conec.open "Select * from tu_tabla"...... Intenta con esto.!