A family of Microsoft relational database management systems designed for ease of use.
- The Category spelling had been corrected. Thanks for noticing.
- Ken, that SQL statement cleared some things up for me. Thanks.
- During the process of fixing issues with these fields I have lost the Category Names which would come up for its field list.
I believe I would need to enter the details into the field and have it add it to the list to link with the folder which was selected.
I have attempted to 'append' previously, with no success, when it came to the actual append stage. It may have been a structure issue at the time, not sure.
I am currently getting the message 'The text you entered isn't an item in the list.'
I tried adapting the below, but again I guess I don't have proper knowledge of how to make it work for me. Not sure if it is an issue with the information already being in the Category table, but I am not getting any message to confirm that. Please advise?
Private Sub cboCategory_NotInList(NewData As String, Response As Integer)
Dim ctrl As Control
Dim strSQL As String, strMessage As String
Set ctrl = Me.ActiveControl
strMessage = "Add " & NewData & " to list?"
strSQL = "INSERT INTO tblCategories INNER JOIN tblCategoryCardNumbers ON tblCategories.cCategoryID=tblCategoryCardNumbers.ccnCategoryID _
(cCategoryName, ccnFolderID) VALUES(""" & NewData & """," & Me.cboFolder & ")"
If MsgBox(strMessage, vbYesNo + vbQuestion) = vbYes Then
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
ctrl.Undo
End If
End Sub
' { I added the "ON" information to inform of the joining fields, but it is returning a "Compile Error: Expected:end of statement" message on the beginning of the 2nd line of the strSQL}'
- Regarding the description attributes, I was just pointing out the general type of extra information I would probably need to enter at some point.