Gustav Brock
Gustav at cactus.dk
Fri Jun 22 06:17:56 CDT 2007
Hi Gale Try with: strSQL = "SELECT * FROM MyTable WHERE MyField = '" & Me!MyField.Value & "'" /gustav >>> galeper at gmail.com 21-06-2007 22:38 >>> Hi! After converting a 2003 db to 2007, I'm getting a "Type Mismatch" error in a field's BeforeUpdate code (the code checks to ensure the value hasn't already been used). The field is a text field, so the problem shouldn't be that its value is in quotes. Has anyone else experienced this or have any ideas? It worked fine before. Thank you very much (code below), Gale Dim strSQL As String strSQL = "SELECT * FROM MyTable WHERE MyField = " & Chr$(34) & Me!MyField & Chr$(34) Dim db As Database Set db = CurrentDb Dim rst As Recordset Set rst = db.OpenRecordset(strSQL) If Not (rst.EOF And rst.BOF) Then Cancel = True msgbox "This number has already been used.", etc. End If --