vba - registros - dcount access ejemplos

DCount con 2 criterios

Question

Estoy usando DCount para ayudar a mostrar un mensaje de error si los datos indican un error. Lo tengo trabajando con un criterio donde un número es igual a otro número. Ahora quería agregar otro criterio allí donde otro campo, ReturnDate (este campo es Texto, no Fecha / Hora) es igual a un guión (-). Simplemente no estoy seguro de cómo formatearlo. Tengo esto:

If DCount("*", "CrewTable", "KitNumber=" & _
  Me.AssignKit.Value And "ReturnDate=" & _
  "-") > 0 Then
  Cancel = True
  MsgBox "Kit is already assigned!"
  AssignKit = ""
  AssignKit.SetFocus
Else
...

El error aparece con un ''Tipo Mistmatch'' y el depurador resalta toda la declaración de ''If -> Then'' y tiene un error al señalar la línea con el guión en las comillas.

Answer 1

Es más fácil solucionar los errores DCount cuando almacena su opción Criteria en una variable de cadena.

Dim strCriteria As String
strCriteria = "ReturnDate=''-'' AND KitNumber=" & Me.AssignKit.Value
Debug.Print strCriteria
If DCount("*", "CrewTable", strCriteria) > 0 Then

Si hubiera utilizado este enfoque, Access lo habría alertado sobre el hecho de que el código original que creó la cadena Criteria no era válido. Eso debería aclarar que el problema no se debía a la condición If , y tampoco era exactamente un problema de DCount ... era un problema con la concatenación de cadenas.

Answer 2

If DCount("*", "CrewTable", "ReturnDate=''-'' AND KitNumber=" & _
          Me.AssignKit.Value) > 0 Then

Answer 3

Me.AssignKit.Value & " And ReturnDate=" & _