Replies

Thanks

Thank.

I have more than one ceriteria, so how should I put together by DCount?

Should I put the code on “Search” button?

Thanks

Thanks

Is anyway to do without using Access User Security?

Thanks

Thanks! It works. …

Thank you so much much. It works.

But I still have question regarding the report name.

The report is open as preview after I send the email, how can report close after send the email?

Regards

But the report still open as preview after I send the email, how can report close after send the email.

Regards

Thank you so much. It works.

But I have another question regarding email body. I want three senentes and my contact information in the body with nice format as outlook. How can I do it? I know I have to use string, but I don’t what I should put in the “strMBody” to get what I want. Please see the following code:

Dim strMsgBody As String
strMBody =

DoCmd.SendObject acSendReport, , acFormatSNP, “”, , , “Test e-mail”, strMBody, False

If my report name is “Search Result Report,” what I should put for the space in the following code:

Reports!rptSomething.Caption

I putted “Reports!Search_Result_Report.Caption,” message pops up report is not exit. So what should I put for space????

Thanks

Regards

I use VBA code.

Thanks

I did check the spelling, everything is correct. On the below code, the second line is highlight with yellow:

Private Sub Search_Click()

If Forms![frmResult].Form.RecordsetClone.RecordCount = 0 Then
MsgBox “There is no data for this searching. Canceling …”

Else
DoCmd.OpenForm “frmResult”

End If

End Sub

Regards

Thanks. But I would like to confirm that I really do the correct. Should the query looks like the following:

Thanks

Thank you so much.

I am able to dispear subform when I click “clear” button. But subform is appear when I open the form, how can I solve it? Also even subform disappear but the space still stay. Is any way to disapper the extra space at the same time?

Thanks.

Regards

hi,

I really can’t find the “visible property” of the subform? Can you tell me more detail about it?

Please see below screen shot:

Thanks

Thanks.

What’s “sbfSomething?” Should I keep “sbf” or replace my form with everything? Below is my corrent code:

Private Sub Clear_Click()
Me.txtSearch = Null
Me.sbfSomething.Visible = False

End Sub

Private Sub Search_Click()
If IsNull(Me.MRN) Then
MsgBox “Please enter something to search for.”, vbExclamation
Me.MRN.SetFocus
Else
Me.Search.Form.Requery
Me.Search.Visible = True
End If

End Sub

Please help me state out errors, thanks!

Regards!