[kon73]

Καλησπέρα,

Παρουσιάζω μια προσωπική μου συνάρτηση παραγωγής τυχαίων αριθμών και παίρνει απλά την Minimum (Ελάχιστη) και Maximum (Μέγιστη) τιμή.

Ενώ αν θέλουμε να την περάσουμε σε SQL ερώτημα αλλάζουμε λίγο την Randomize βάζοντας και το DumField παράμετρο
και η μία στήλη θα είναι οι τυχαίοι αριθμοί πχ η στήλη ας λέγεται (FieldRand) θα βάλουμε στην συνάρτηση και το DumField οπότε έχουμε Πχ για εύρος τυχαίων αριθμών από 10 έως 20 "Select Field1, Field2, Randomize(10,20,[Field1]) as FieldRand From Table1"

Public Function Randomize(Min, Max As Integer) As Integer

    Randomize = Int((Max - Min + 1) * Rnd + Min)

End Function



'Για SQL Ερώτημα



Public Function Randomize(Min, Max As Integer, DumField ) As Integer

    Randomize = Int((Max - Min + 1) * Rnd + Min)

End Function