More apostrophes!!

[Anthony Speiser]

The following causes errors on my forms when the record contains an
apostrophe:

Private Sub Combo2_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ownername] = '" & Me![Combo2] & "'"
Me.Bookmark = rs.Bookmark
End Sub



what changes do i need to make?


tia

 

[kingston via AccessMonster.com]

Will your data contain double quotation marks? If not, try:

rs.FindFirst "[ownername] = """ & Me![Combo2] & """"

The following causes errors on my forms when the record contains an
apostrophe:

Private Sub Combo2_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ownername] = '" & Me![Combo2] & "'"
Me.Bookmark = rs.Bookmark
End Sub

what changes do i need to make?

tia

 

[Anthony Speiser]

Thanks!!

did the trick


tony

Will your data contain double quotation marks? If not, try:

rs.FindFirst "[ownername] = """ & Me![Combo2] & """"

The following causes errors on my forms when the record contains an
apostrophe:

Private Sub Combo2_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ownername] = '" & Me![Combo2] & "'"
Me.Bookmark = rs.Bookmark
End Sub

what changes do i need to make?

tia

 

[Powderfinger]

I always get rid of single quotes in the database.

Private Sub ownername_AfterUpdate()
If Not IsNull(Me.ownername) Then
Me.ownername= Replace(Me.ownername, "'", "")
End If
End Sub

If you allow them then everytime you pass a filter into a form or report it
will bite you.

 

[Douglas J. Steele]

I suspect that that will lead to dissatisfied customers complaining that
their name shows up as OReilly, rather than O'Reilly.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

I always get rid of single quotes in the database.

Private Sub ownername_AfterUpdate()
If Not IsNull(Me.ownername) Then
Me.ownername= Replace(Me.ownername, "'", "")
End If
End Sub

If you allow them then everytime you pass a filter into a form or report
it
will bite you.

The following causes errors on my forms when the record contains an
apostrophe:

Private Sub Combo2_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ownername] = '" & Me![Combo2] & "'"
Me.Bookmark = rs.Bookmark
End Sub



what changes do i need to make?


tia

 

[Tom Lake]

I suspect that that will lead to dissatisfied customers complaining that
their name shows up as OReilly, rather than O'Reilly.

O'Really? 8^) You could replace the apostrophe with a left curly brace {
until it's
printed then replace the { with an apostrophe if it's that important.

Tom Lake

 

[Douglas J. Steele]

O'Really? 8^) You could replace the apostrophe with a left curly brace
{ until it's
printed then replace the { with an apostrophe if it's that important.

Why not simply store the data correctly, and ensure that you handle the
apostrophes correctly in your queries?

I showed one approach in my May, 2004 "Access Answers" column in Pinnacle
Publication's "Smart Access". You can download the column (and sample
database) for free at http://www.accessmvp.com/DJSteele/SmartAccess.html