DCount Function not working

[rcerda]

I have a DCount function counts the value of receipts which may have the same number, but it does not work. It does not bring the number counted. So for instance if I am entering a new receipt, and i ask how many it found it brings a number > 0 which is wrong. So in my VBA code I ask if the number is greater than zero then do something else do something else. But since the value it passes is always incorrect the algorithm does not work.

If DCount("[Guía_de_Recepción]", "Recepcionesausensi", "[Guía_de_Recepción] = " & [Guía_de_Recepción] & " ") > 0 Then

The thing is, this same code works in another form perfect. So I do not know what is the issue.

Thank you so much

[ranman256]

no brackets for the form object,
and if it is a text field, you need quotes around it:

DCount("[Guía_de_Recepción]", "Recepcionesausensi", "[Guía_de_Recepción] = '" & me.Guía_de_Recepción & "'")

if numeric ,its:
DCount("[Guía_de_Recepción]", "Recepcionesausensi", "[Guía_de_Recepción] = " & me.Guía_de_Recepción )

IS Guía_de_Recepción a form object?

[rcerda]

Yes it is a Form Object. I have tried both ways and it does not work.
I am also trying with a DLookup which also works and it just nothing. I do not know what else to do at the moment to get it to work. I have put MsgBoxex to look at the values and it gives me the wrong values. ufff !!

[Gicu]

Can you upload a sample db so we could have a look?

[NTC]

In the form where it does not work; double check & be sure you do not have, by coincidence or accident, any control with the same name as any of the parameters of the function

[rcerda]

Everything looks good so I really do not know. Now I am trying with DLookup which does basically the same. Here is the code:

Option Compare Database
Private Sub adnewrecord_Click()
On Error Resume Next
Dim Recepcionesausensi As Database
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim GuiaCheck As String
CheckForEmpty
If CheckForEmpty = False Then
Response = MsgBox("Por favor ingrese todos los campos Aqui" & vbCrLf, vbOKOnly) = vbOK
ClearControlFormatting

Else

GuiaCheck = DLookup("Recepcionesausensi.[Guia de Recepción]", "Recepcionesausensi", "Recepcionesausensi.[Guía de Recepción] = '" & Forms.frmsinglerecord![Guía de Recepción] & "'")
If Not IsNull(GuiaCheck) Then


Response = MsgBox("Ya existe un registro igual en su tabla. De igual forma quiere guardarlo ?:-" & vbCrLf, vbYesNo + vbExclamation)
If Response = vbYes Then
Set rst = CurrentDb.OpenRecordset("Recepcionesausensi")
With rst
rst.addNew
rstRecepcionesausensi![Guía_de_Recepción] = Me.[Guía_de_Recepción].Value
rstRecepcionesausensi![Status] = Me.Status.Value
rstRecepcionesausensi![Fecha] = Me.Fecha.Value
rstRecepcionesausensi![Fecha de Entrega] = Me.Fecha_de_Entrega.Value
rstRecepcionesausensi![Cantidad] = Me.Cantidad.Value
rstRecepcionesausensi![Marca] = Me.Marca.Value
rstRecepcionesausensi![Nºde Serie] = Me.Nº_de_Serie.Value
rstRecepcionesausensi![HP] = Me.HP.Value
rstRecepcionesausensi![RPM] = Me.RPM.Value
rstRecepcionesausensi![Volts] = Me.Volts.Value
rstRecepcionesausensi![AMP] = Me.AMP.Value
rstRecepcionesausensi![Hz] = Me.Hz.Value
rstRecepcionesausensi![Parte] = Me.Parte.Value
rstRecepcionesausensi![Detalles] = Me.Detalles.Value
rstRecepcionesausensi.Update
rstRecepcionesausensi.Close
Set rstRecepcionesausensi = Nothing
End With
MsgBox ("Su registro fue incorporado con éxito " & vbOKOnly)
DoCmd.GoToRecord , , acNewRec
Else
DoCmd.RunCommand acCmdUndo


End If
Else
Set rst = CurrentDb.OpenRecordset("Recepcionesausensi")
With rst
rst.addNew
rstRecepcionesausensi![Guía_de_Recepción] = Me.[Guía_de_Recepción].Value
rstRecepcionesausensi![Status] = Me.Status.Value
rstRecepcionesausensi![Fecha] = Me.Fecha.Value
rstRecepcionesausensi![Fecha de Entrega] = Me.Fecha_de_Entrega.Value
rstRecepcionesausensi![Cantidad] = Me.Cantidad.Value
rstRecepcionesausensi![Marca] = Me.Marca.Value
rstRecepcionesausensi![Nºde Serie] = Me.Nº_de_Serie.Value
rstRecepcionesausensi![HP] = Me.HP.Value
rstRecepcionesausensi![RPM] = Me.RPM.Value
rstRecepcionesausensi![Volts] = Me.Volts.Value
rstRecepcionesausensi![AMP] = Me.AMP.Value
rstRecepcionesausensi![Hz] = Me.Hz.Value
rstRecepcionesausensi![Parte] = Me.Parte.Value
rstRecepcionesausensi![Detalles] = Me.Detalles.Value
rstRecepcionesausensi.Update
rstRecepcionesausensi.Close
Set rstRecepcionesausensi = Nothing
End With
MsgBox ("Su registro fue incorporado con éxito" & vbOKOnly)
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

Thank you

[rcerda]

Unfortunatelly DLookup does not work either.