BarryMK
4 strings are enough
- Local time
- Today, 21:22
- Joined
- Oct 15, 2002
- Messages
- 1,350
I've just converted the front end of my dog stray database from 97 to 2003. Everything looks the same so far but the following code that sets the form caption opening on a filter from command buttons on my switchboard no longer works. Instead of text showing in the caption, I get one of those irritating blank squares for each letter. Anyone else had this problem?
Command button code from Switchboard
On Current event on data form
Command button code from Switchboard
Code:
'CURRENT SEIZED DOGS
Private Sub cmdCurrentSeized_Click()
On Error GoTo Err_cmdCurrentSeized_Click
Dim stDocName As String
stDocName = "frmAllStrayDetails"
DoCmd.SetWarnings (False)
DoCmd.Close acForm, "frmAdminSwitchboard"
DoCmd.OpenForm stDocName
[COLOR="red"] DoCmd.ApplyFilter , "Not IsNull(StrayRef) And Closed = No"[/COLOR]
Forms![frmAllStrayDetails]![Pix].SetFocus
DoCmd.SetWarnings (True)
Exit_cmdCurrentSeized_Click:
Exit Sub
Err_cmdCurrentSeized_Click:
MsgBox Err.Description
Resume Exit_cmdCurrentSeized_Click
End Sub
On Current event on data form
Code:
Select Case Me.Filter
[COLOR="Red"]Case "Not IsNull(StrayRef) And Closed = NO"[/COLOR]
Me.Caption = "Current seized dogs"
End Select