update two fields using a type-in field

[aziska]

Ok, I'm working on a form in access 2010. I'm attempting to have the form update two fields, (A title and a description field) when you type in the code associated with each title/description. The code field is 6 characters long. I would like it to search the "dictionary", the table that holds all of the information, when you type in a 6 digit string in the code field and if it finds a match, update the title and description fields and if no match, return "No matches found." Any help or links would be much appreciated. If you need any additional information I'll do my best to provide it.. Thank you!

Aaron

 

[Gideon1973]

aziska -

You may want to try something like this...hope that helps!

Private Sub cmdSearch_Click()
ClearSearchResults
ExecuteSearch
End Sub

Private Sub Form_Load()
ClearSearchResults
End Sub

Private Sub ClearSearchResults()
With Me
.txtTitle = ""
.txtDescription = ""
.txtSearchStatus = ""
End With
End Sub

Private Sub ExecuteSearch()
Dim rst As DAO.Recordset, SQL As String

With Me
If Len(Nz(Trim(.txtSearchCriteria), "")) = 0 Then
MsgBox "A value is required in the Code field.", vbInformation
.txtSearchCriteria.SetFocus
Exit Sub
End If

SQL = "SELECT [Title], [Description] FROM [tblDictionary] WHERE

 = """ & .txtSearchCriteria & """"
        
        Set rst = Application.CurrentDb.OpenRecordset(SQL)
        
        If Not rst.EOF Then
            .txtTitle = rst.Fields("Title").Value
            .txtDescription = rst.Fields("Description").Value
        Else
            .txtSearchStatus = "No matches found."
        End If
        
        rst.Close
        Set rst = Nothing
    End With
End Sub