Los códigos en access dejan de funcionar luego de guardar el diseño y volver a abrir la aplicación

Saludos el problema exactamente es el siguiente, hice una aplicación access la hice en mi casa y trabaja perfecto, el problema es que cuando lo llevo al trabajo los códigos que le coloque no trabajan, como solución borre los códigos y copie y pegue todo en una nueva base de datos, luego escribe los códigos nuevamente en la BD y trabajo perfecto, cuando creí que el problema estaba resuelto guarde y al abrir de nuevo la BD los códigos dejaron de funcionar de nuevo; los códigos son:

(este esta en el propio formulario)

Private Sub Comando223_Click()
Me.NUMERO_DE_EXPEDIENTE = Texto215 + 1
End Sub

(este esta en un boton)

Private Sub Form_Current()
Form!Comando202.SetFocus
If (Me![NUMERO DE EXPEDIENTE]) > 0 Then
Me.[Comando223].Visible = False
Else
Me.[Comando223].Visible = True
End If
End Sub

Espero me puedan ayudar porque no tengo idea de cual sea el problema, ya probé en otras maquinas y el problema persiste