Hola santafesino_lagunero,
necesitaría muchos más datos para contestar adecuadamente a tu pregunta:
- ¿Usas o debes usar código VBA?
- ¿La comprobación se hace a través de un botón?
- ¿Has de comprobar que no se repitan valores ente unos cuadros de texto y otros?
- etc...
En adelanto te pongo un pequeño código con una de las mil maneras de resolver tu dilema.
Yo me he creado un formulario con 4 cuadros te texto (numero1,...,numero4) y he creado un botón al que le he agregado el siguiente código:
Código:
Private Sub BuscarAciertos_Click()
Dim db As Database
Dim SQLText As String
Dim rst As DAO.Recordset
Dim contador As Integer
Set db = CurrentDb()
contador = 0
SQLText = " SELECT * FROM Numeros" _
& " WHERE Numero = " & Me![numero1]
Set rst = db.OpenRecordset(SQLText, dbReadOnly)
If Not (rst.BOF And rst.EOF) Then
contador = contador + 1
End If
SQLText = " SELECT * FROM Numeros" _
& " WHERE Numero = " & Me![numero2]
Set rst = db.OpenRecordset(SQLText, dbReadOnly)
If Not (rst.BOF And rst.EOF) Then
contador = contador + 1
End If
SQLText = " SELECT * FROM Numeros" _
& " WHERE Numero = " & Me![numero3]
Set rst = db.OpenRecordset(SQLText, dbReadOnly)
If Not (rst.BOF And rst.EOF) Then
contador = contador + 1
End If
SQLText = " SELECT * FROM Numeros" _
& " WHERE Numero = " & Me![numero4]
Set rst = db.OpenRecordset(SQLText, dbReadOnly)
If Not (rst.BOF And rst.EOF) Then
contador = contador + 1
End If
MsgBox ("Aciertos: " & contador)
End Sub
Éste código no comprueba que los valores de los cuadros sean idénticos, además se podría hacer con un For pero sería algo más complejo.
Para dar una respuesta adecuada a tu solicitud, tendrías que dar más datos (entre ellos los conocimientos que tienes/deberías tener).
De todos modos, si es por un tema de estudios, imagino que debes tener tanto la información como los medios para resolver tu dilema... pero no me quiero meter donde no me llaman.
Espero que mi código te sirva de pista, pero insisto en que hay que modificarlo para añadirle muchas cosas (como resetear las variables, controlar errores, etc)
Un saludo