Below is some code that I am using on an access form for an event. When I try to use this there is a compile error which states that there is a type mismatch.
Private Sub Command343_Click()
Dim dbsProduction As DAO.Database
Dim rstquotesetup As DAO.Recordset
Dim rstFrom As Recordset
Dim rstTo As Recordset
Dim fld As Field
Dim tempnumber As Integer
Dim QuoteID As Integer
Set dbsProduction = CurrentDb
Set rstquotesetup = dbsProduction.OpenRecordset("tblQuoteDetails")
MsgBox (Me.TemplateID.Column(0))
tempnumber = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!TemplateID
MsgBox (tempnumber)
rstquotesetup.AddNew
rstquotesetup!UnitDescription = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!templatenumber
rstquotesetup!MarkUp = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!MarkUp
rstquotesetup!StructuralSteelDropPercent = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!DropPercentageStructural
rstquotesetup!PlateSteelDropPercent = [Forms]![frmQuote/JobEntry]!sfrmTemplateListing.Form!DropPercentagePlate
rstquotesetup.Update
QuoteID = DMax("QuoteID", "tblQuoteDetails")
MsgBox QuoteID
------- THE CODE BEFORE THIS DOES NOT HAVE AN ERROR -----------
Set rstFrom = ("Select * From tblTemplateLabor Where TemplateID = " & tempnumber)
If rstFrom.EOF Then
MsgBox "No match in From Table"
Else
Set rstTo = ("Select DesignHours-User, DesignRate, DesignNotes From tblQuoteDetails Where QuoteID = " & QuoteID)
If rstTo.EOF Then
rstTo.AddNew
For Each fld In rstTo.Fields
rstTo(fld.Name) = rstFrom(fld.Name)
Next
rstTo.Update
Else
MsgBox "Already exists"
End If
End If
End Sub