SoloCodigo

Hola amigo....
Creo que te estas ahogando en un vaso de agua

La respuesta ya te la dieron y no te diste cuenta:

Lo que tienes que hacer es lo siguiente (Pseudocodigo), priemero necesita unas variables donde guardar tus valores, para restarlos y sumarlos.
Yo creo que si te servirá

Text1.text= 14.5

......
Dim Var1 As Integer
Var1= val(Text1.text)
c = Round(Var1)
.....

if Text1 > c then
  Var2=Text1-c
else
  Var2=c-Text1
end fi
....

if Var2 <= 0.2 then
    ... No haces nada
Text1=c
end if

if Var2 > .03 and Var2 <7 then
Text1=  Var1 - Var2 +  0.5
end if

if Var2 > .07  then
    ... No haces nada
Text1=c
end if

Tienen toda la razón soy un perfecto animal...  
Cuando empece a programar utilizaba mucho el DATA.

Llenaba de objetos mi formulario (Cuando jalaba datos de varias tablas era un caos) , por esa razón cuando deje de utilizarlos, ya solo me dedicaba a escribir sentencias y decí llamarlo "código puro". El cual es menos engorroso para mí.

Otra cosa, donde puedo encontrar un manual que me explica más la teoría que la práctica porque de verdad que estoy bien podrido, lo único me mantiene    programando es mi lógica la cual es bastante creativa y poco formal..... jejejeje

Bueno ya por último les agradesco la ayuda y el código queda de la siguiente manera, por mientras me conformo con que corra el sistema....
Más adelante buscaré más retos...!!
Bye


    Path = App.Path & "\bd1.mdb"
    Set BaseDatos = OpenDatabase(Path, False, False, "MS Access;PWD=edson")
    Set Rs = BaseDatos.OpenRecordset("Select * From escuela")

Manejo mucho este código simple que realiza la conexión a la BD sin ADO, es "código puro",    pero al agregarle una contraseña a la base de datos no logro hacer que este código la abra.
La neta no se que es lo que le falta, donde poner la instrucción del Password, o si se debe de escribir de otra forma....  En fin no tengo idea de como va..
Si alguién me puede ayudar lo agradeceré mucho...
El código es el siguiente....


Private Sub Text1_Change()

Set BaseDatos = OpenDatabase(App.Path & "\bd1.mdb")
'************************************************
'      Como validar una Contraseña de la BD ???
'      Set BaseDatos = OpenDatabase(Password = edson)       <----
'                                                                              Obviamente así no es
'************************************************
Set Rs = BaseDatos.OpenRecordset("Select * From escuela")
 
 With Rs
  Dim BCadenay, B As Variant
  If Rs.RecordCount > 0 Then
   List8.Clear
   List9.Clear
   List10.Clear
   List11.Clear
   List1.Clear
   Rs.MoveFirst
   BCadenay = Len(Text2.Text)
   While Not Rs.EOF
    cadenay = Mid(Rs(1), 1, Len(Text2.Text))
     If UCase(cadenay) Like UCase(Text2.Text) Then
      List1.AddItem "$"
      List8.AddItem Rs(0)
      List9.AddItem Rs(1)
      List10.AddItem Rs(4)
      List11.AddItem Rs(3)
     End If
    Rs.MoveNext
   Wend
  End If
 End With
End Sub