Code:
txtName.Text = Trim(Replace(CurrRs("NAME"), "''", "'"))
as from the screen (user keyed in) to the database I used the code below; to prevent the quotation mark error from pop up.
Code:
CurrRs("NAME")
txtName.Text = Trim(Replace(CurrRs("NAME"), "''", "'"))
CurrRs("NAME")
Private Sub MoveScreenToDb()
CurrRs("NAME") = Replace(txtName.Text, "'", "''")
Private Function fnintGetRecord(ByVal strRelation As String, ByVal strName As String) As Integer
fnintGetRecord = 1
Set CurrRs = VSHc.Open_HcFamily(CnnLoc, 3, 2, gintComp_Cd, gstrEmp_no, strRelation, Trim(strName))
Leave a comment: