Search results

Thanks Much!!!

How do I include output column to my query? I'm trying to have the Between Dates from "Q_Completed_By_Date1" added to my report "R_CompletedByDate" so the report shows the dates entered in criteria parameter.

Hi everyone! So my query looks up between dates, I enter "Start date" and "End date" and this works. I would like those 2 dates to come up on my report that look at this query. I might be real simple to do but been trying and can't get it. Thanks in advance!!!

TY I got to figure out where I messed up at. I name your file GASMAN!!!

I can't get this right. it's not working for me.:unsure:

You are amazing man. Thank You so much! Let me try it...

Form_test I need to filter by Reviewer and by type of encounter, you can use Q_incomplete as source too

Sub RequeryForm() Dim strSQL As String strSQL = "" If Len("" & Me!cboTypeOfEncounter) > 0 Then strSQL = "[Type Of Encounter] = '" & Me!cboTypeOfEncounter & "'" End If If Len("" & Me!cboReviewer) > 0 Then If Len(strSQL) > 0 Then strSQL = strSQL & "And" End If strSQL = strSQL...

This is what I get:

I get this

I Ctrl + G put my cursor in immediate window then F5

Not getting nothing from Debug.Print

If I do Debug.print it ask to choose a macro

Unbound and Row source: SELECT DISTINCT T_Encounter.Type_Of_Encounter FROM T_Encounter ORDER BY T_Encounter.Type_Of_Encounter;

HI I created combo boxes on my form to select what I want to filter and I used the following: Sub RequeryForm() Dim strSQL As String strSQL = "" If Len("" & Me!cboTypeOfEncounter) > 0 Then strSQL = "[Type Of Encounter] = '" & Me!cboTypeOfEncounter & "'" End If If Len("" & Me!cboReviewer)...

Thanks it worked that is exactly what I needed to do. Thanks so much!

Private Sub Form_Error(DataErr As Integer, Response As Integer) Const ERR_DUPLICATE_INDEX_VALUE = 3022 Dim strMsg As String If DataErr = ERR_DUPLICATE_INDEX_VALUE Then strMsg = "This record cannot be added to the database." & vbCrLf strMsg = strMsg & "It would...

This doesn't clear my field