Access - estructura de repeticiones de bucle

   
Vista:

estructura de repeticiones de bucle

Publicado por roberto (1 intervención) el 13/09/2012 23:17:06
tengo una base de datos de un control de registros de ganado, quisiera poder que cuando anote el numero de registro del animal el cual tengo que anotar quien es el padre que me pueda generar un bucle que si existe el numero del padre me asigne el numero del padre de ese registro o sea el abuelo y asi consecutivamente hasta que ya no haya decendencia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

estructura de repeticiones de bucle

Publicado por deneg_nhj (349 intervenciones) el 17/09/2012 21:31:49
Lo siguiente lo estoy escribiendo de memoria, por favor verifica la sintaxis y espero que te sea de utilidad.





1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function fObtHistoria ( nClave  as Long )  as string
Dim strAscendecia as string
Dim sAsc as long
dim sResult as string
 
sAsc  = nz(dlookup ("Padre", "tbGanado", "ClaveGanado =  " & nClave),0)
sResult = sAsc
 
While sAsc  <> 0
 
     sAsc  = nz(dlookup ("Padre", "tbGanado", "ClaveGanado =  " & nClave),0)
 sResult  = sResult & ", " & sAsc
 
wend
 
fObtHistoria  = trim(sResult  )




www.sgh.com.mx
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar