Multiple Record Return Alert

#1 (**permalink**) 28-Jul-2006, 08:12 AM

I have a form that pulls up individual client records utilizing a
parameter query as it's Record Source. I want to open a MsgBox if more
than one client record is returned. I know that I can use the DCount
function and a field from the returned data (like the primary key) to
somehow trigger a MsgBox, but I just can't seem to get it to work.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/10434-multiple-record-return-alert.html

*

#2 (**permalink**) 28-Jul-2006, 08:13 AM

how about this:

'~~~~~~~~~~~~~~~~~~~
If Me.Recordset.RecordCount > 1 Then
msgbox Me.Recordset.RecordCount _
& " records were returned" _
, , "RecordCount"
End If
'~~~~~~~~~~~~~~~~~~~

Warm Regards,
Crystal
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10434
Microsoft Access MVP 2006

*
Have an awesome day

remote programming and training
strive4peace2006 at yahoo.com

*

ckendricks7@yahoo.com wrote:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10434
> I have a form that pulls up individual client records utilizing a
> parameter query as it's Record Source. I want to open a MsgBox if more
> than one client record is returned. I know that I can use the DCount
> function and a field from the returned data (like the primary key) to
> somehow trigger a MsgBox, but I just can't seem to get it to work.
>

#3 (**permalink**) 28-Jul-2006, 08:13 AM

I tried attaching this bit of code to the OnOpen event and also to the
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10434
OnLoad event of the form and neither worked ???

#4 (**permalink**) 28-Jul-2006, 08:13 AM

Hi Charles,

the code should go OnLoad...

remember, the conditions are such that you only see a
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10434
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10434
message if MORE than one record is returned...

try this for testing...

'~~~~~~~~~~~~~~
Private Sub Form_Load()
If Me.Recordset.RecordCount > 1 Then
MsgBox Me.Recordset.RecordCount _
& " records were returned" _
, , "RecordCount"
Else
MsgBox "one record was returned" _
, , "One record"
End If
End Sub
'~~~~~~~~~~~~~~`

Warm Regards,
Crystal
Microsoft Access MVP 2006

*
Have an awesome day

remote programming and training
strive4peace2006 at yahoo.com

*

charles.kendricks@charter.net wrote:
> I tried attaching this bit of code to the OnOpen event and also to the
> OnLoad event of the form and neither worked ???
>