Numero Aleatorio
Publicado por Ad (33 intervenciones) el 03/07/2020 22:25:09
Amigos,
Espero me puedan ayudar con esta funcion
el problema es que cada que abro el formulario hago el cambio en el control siempre empieza con el mismo numero, por ejemplo 288 cada que lo abro y si lo genero dos veces la segunda vez me da 367 y esta bien, pero cierro el formulario y cuando lo vuelvo a genera me da 367 y así cada que abro el formulario siempre comienza con el mismo numero que se quedo y la idea es que siempre me de un numero diferente, que puedo hacer para que siempre sea diferente.
Saludos. . .
Espero me puedan ayudar con esta funcion
1
2
3
4
5
6
7
8
9
10
11
Private Sub Proyecto_Change()
If Me.Proyecto = "Interno" Then
Dim NroPedido As String
NroPedido = Int((100 - 500 + 100) * Rnd + 500)
Me.Pedido = "P-" & NroPedido
End Sub
el problema es que cada que abro el formulario hago el cambio en el control siempre empieza con el mismo numero, por ejemplo 288 cada que lo abro y si lo genero dos veces la segunda vez me da 367 y esta bien, pero cierro el formulario y cuando lo vuelvo a genera me da 367 y así cada que abro el formulario siempre comienza con el mismo numero que se quedo y la idea es que siempre me de un numero diferente, que puedo hacer para que siempre sea diferente.
Saludos. . .
Valora esta pregunta
0