We help IT Professionals succeed at work.
Get Started

I have a compile error that I cannot solve

btgtech
btgtech asked
on
91 Views
Last Modified: 2015-10-23
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
Comment
Watch Question
Owner, Dev-Soln LLC
CERTIFIED EXPERT
Most Valuable Expert 2014
Top Expert 2010
Commented:
This problem has been solved!
Unlock 1 Answer and 31 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE