El grupo al cual envías entradas es un grupo Usenet. Si envías mensajes a este grupo, cualquier usuario de Internet podrá ver tu dirección de correo electrónico
gracias, mi problema es el siguiente tengo120 cuadros de texto en un formulario, unos cuadros están en blanco, otros con la letra N y otros con la letra S quisiera poner otros dos cuadros de textos que me cuenten cuatas S hay y otro cuantas N hay ¿es posible?. sudos y gracias anticipadas
Sí esos cuadros de texto no tienen ningún origen, tendrás que recorrerlos todos, revisar lo que tienen e ir actualizando los cuadros de texto donde muestras la cuenta, según lo que tengan.
On 8 nov, 15:59, "Patxi Sanz" <patxisanz[ARROBA]yahoo[PUNTO]es> wrote:
> Hola Domingos:
> Sí esos cuadros de texto no tienen ningún origen, tendrás que recorrerlos > todos, revisar lo que tienen e ir actualizando los cuadros de texto donde > muestras la cuenta, según lo que tengan.
Hola Patxi ya hacia bastate tiempo que no nos encontrabos, saludos No no tienen origen lo que necesito Patxi en que cuando ponga los otros dos cuadros me cuente cuantas S y en el otro cuadro cuantas N, cual es la formula, Gracias anticipadas
Y para el que cuenta las N, es lo mismo, pero cambiando las "S" por "N".
Claro que la expresión que puedes construir va a ser demasiado larga, y tal vez Access no te la permita. Con código sería algo parecido:
Function CuentaS() As Long Dim contador As Long
If Nz(Texto1, "") = "S" Then contador = contador + 1 If Nz(Texto2, "") = "S" Then contador = contador + 1 ... If Nz(Texto120, "") = "S" Then contador = contador + 1
CuentaS = contador End Function
Y para las "N", lo mismo pero cambiando las "S" por "N".
Aunque dependiendo de los nombres que hayas dado a los cuadros de texto, puedes crear un bucle. Por ejemplo, si los cuadros de texto se llaman como he puesto, Texto1, Texto2, ..., puedes hacer algo así:
Function CuentaS() As Long Dim contador As Long Dim num As Long
For num = 1 To 120 If Nz(Me.Controls("Texto" & num), "") = "S" Then contador = contador + 1 Next
> Y para el que cuenta las N, es lo mismo, pero cambiando las "S" por "N".
> Claro que la expresión que puedes construir va a ser demasiado larga, y tal > vez Access no te la permita. Con código sería algo parecido:
> Function CuentaS() As Long > Dim contador As Long
> If Nz(Texto1, "") = "S" Then contador = contador + 1 > If Nz(Texto2, "") = "S" Then contador = contador + 1 > ... > If Nz(Texto120, "") = "S" Then contador = contador + 1
> CuentaS = contador > End Function
> Y para las "N", lo mismo pero cambiando las "S" por "N".
> Aunque dependiendo de los nombres que hayas dado a los cuadros de texto, > puedes crear un bucle. Por ejemplo, si los cuadros de texto se llaman como > he puesto, Texto1, Texto2, ..., puedes hacer algo así:
> Function CuentaS() As Long > Dim contador As Long > Dim num As Long
> For num = 1 To 120 > If Nz(Me.Controls("Texto" & num), "") = "S" Then contador = contador > + 1 > Next
> > Y para el que cuenta las N, es lo mismo, pero cambiando las "S" por "N".
> > Claro que la expresión que puedes construir va a ser demasiado larga, y tal > > vez Access no te la permita. Con código sería algo parecido:
> > Function CuentaS() As Long > > Dim contador As Long
> > If Nz(Texto1, "") = "S" Then contador = contador + 1 > > If Nz(Texto2, "") = "S" Then contador = contador + 1 > > ... > > If Nz(Texto120, "") = "S" Then contador = contador + 1
> > CuentaS = contador > > End Function
> > Y para las "N", lo mismo pero cambiando las "S" por "N".
> > Aunque dependiendo de los nombres que hayas dado a los cuadros de texto, > > puedes crear un bucle. Por ejemplo, si los cuadros de texto se llaman como > > he puesto, Texto1, Texto2, ..., puedes hacer algo así:
> > Function CuentaS() As Long > > Dim contador As Long > > Dim num As Long
> > For num = 1 To 120 > > If Nz(Me.Controls("Texto" & num), "") = "S" Then contador = contador > > + 1 > > Next
hola Patxi gracias por la rapidez, voy a intentar los tres metodos, cuando me preguntaste que si tenia origen dijo no equivocadamente si sitenen ejm l1, l2 l3, ect hata l120 pero creo que el ejemplo es el mismo que si no tuviera, me imagino que sera poner la formula como codigo en origen de destino, te mantendré informado y gracias
Buenos dias Patxi, hoy me he puesto a realizar las pruebas y me he perdido como te decia he creado un cuadro de texto para las "S" pero no sé donde tengo que poner el codigo, disculpamé por favor mi ignorancia. saludos
Buenos dias Patxi y perdon por la tardanza no he estado en casa, mi pregunta es en que evento del formulario y como se crea la Fuction, porque cuando he intentado ponerla en origen del control del cuadro no me sale la llamada a abrir codigo, solo macro y la la siguite pero modulo nó. gracias por tu paciencia, de momento lo tengo resuelto con los 96 campos que me dejo la consulta gracias
Si tienes Access 2007, teniendo abierto el formulario en vista diseño, ve al ribbon Diseño -> Herramientas -> Ver código.
En versiones anteriores, creo recordar que estaba en el menú Herramientas -> Código, o Ver -> Código.
Una vez selecciones la opción, se abrirá el editor de VBA con el módulo asociado al formulario. Si no hay tienes otros eventos en VBA, ni has estado enredando con él, tendrás una "página" casi en blanco, con sólo una línea:
Option Compare Database
Justo debajo de esa línea (o dejando una en blanco de separación), es donde puedes empezar a escribir tu función.
Tienes más info sobre VBA en la ayuda de Access y en el curso de Olaz:
> Si tienes Access 2007, teniendo abierto el formulario en vista diseño, ve al > ribbon Diseño -> Herramientas -> Ver código.
> En versiones anteriores, creo recordar que estaba en el menú Herramientas -> > Código, o Ver -> Código.
> Una vez selecciones la opción, se abrirá el editor de VBA con el módulo > asociado al formulario. Si no hay tienes otros eventos en VBA, ni has estado > enredando con él, tendrás una "página" casi en blanco, con sólo una línea:
> Option Compare Database
> Justo debajo de esa línea (o dejando una en blanco de separación), es donde > puedes empezar a escribir tu función.
> Tienes más info sobre VBA en la ayuda de Access y en el curso de Olaz:
Buenos dias leida todas la instrucciones tengo access 2.003 de momento, pero ya mismoestoy investigado por la linea marcada, gracias muchas gracias por la ayuda, no sé que seria de nosotros sin vosotros. no creo que tarde yo mucho en volver a dar la lata con alguna cosa nueva. Saludos
|
