Adding data to table

• Michael Graves

  Old Hand

  Points: 305

  More actions

  May 23, 2005 at 10:01 am

  #362732

  I'm moving over to SQL from Access and I'm trying to add a new data to a combo box in a form. The form is in an access 2000 access data project working from a SQL 2000 database. It worked fine in the original access db.

  This is the code that I'm currently using.

  Private Sub Subject_NotInList(NewData As String, Response As Integer)

  Dim db As Database

  If (MsgBox("Do you want to add """ & NewData & """ to the list of subjects?", 36, "New Subject") = 6) Then

  Set db = DBEngine.Workspaces(0).Databases(0)

  db.Execute "INSERT INTO Subjects (Subject) VALUES (""" & NewData & """);"

  Response = DATA_ERRADDED

  Else

  Response = DATA_ERRDISPLAY

  End If

  End Sub

  hope someone can help.

• Farrell Keough

  SSCoach

  Points: 17414

  More actions

  May 23, 2005 at 1:50 pm

  #560586

  What error are you getting?  And you may want to check your use of single and double quotes.

  I wasn't born stupid - I had to study.

• Richard O'Sullivan

  Ten Centuries

  Points: 1118

  More actions

  May 24, 2005 at 1:55 am

  #560683

  Change the line of code as follows:

  db.Execute "INSERT INTO Subjects (Subject) Values ('" & Newdata & "')"

   

  ie   (  '  "  &  newdata &  "   '  )  "

  Richard