ERROR DE SINTAXIS
Publicado por oemor (1 intervención) el 28/01/2019 21:19:05
Public Function AutoNumericoAleatorio(strTabla As String, strCampo As String, lngMinimo As Long, lngMaximo As Long, clave As String, areasub As String) As Long
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim lngNuevo As Long, _rst As DAO.Recordset, _
' EL ERROR ME LO MARCA EN EL SELECT AL ABRIR EL RS BAJO 2 CRITERIOS.
Set rst = CurrentDb.OpenRecordset("select * from RESULTADOS_EVALUACION WHERE CLAVE_EVALUACION = " & clave & " And SUBAREA = " & areasub & " ", dbOpenDynaset)
If Not (rst.EOF And rst.BOF) Then
Do
' genero un valor aleatoriamente dentro del rango
lngNuevo = Int((lngMaximo - lngMinimo + 1) * Rnd + lngMinimo)
' verifico si existe en la tabla bajo los criterios del recordset
rst.FindFirst strCampo & " = " & lngNuevo
If rst.NoMatch Then' si no existe lo devuelvo y salgo del bucle
AutoNumericoAleatorio = lngNuevoExit Do
End If
' si existe lo intento de nuevo
Loop Until 0 = 1Else
' si no hay registros genero un valor aleatoriamente dentro del rando indicado
AutoNumericoAleatorio = Int((lngMaximo - lngMinimo + 1) * Rnd + lngMinimo)
End If
end function
Valora esta pregunta
0
