can i do this??

[holly]

Hi

im using ado with a ms access frontend...the backend is all sp..can i use the same load values procedure from two different rs??

Public Function loadvalues()
  On Error GoTo Err_loadvalues
    
    valPolicyNo_char.BackColor = vbWhite
    vaInceptionDate_date.BackColor = vbWhite
    New_Note.BackColor = vbWhite
    ValPolEndDate_Date.BackColor = vbWhite
     
     If gRecSearch_bol = True Then 'if rs has been filtered then close the existing rs
        rsSet.Close
        Set rsSet = Nothing
        
       Me.QuoteRef_ID = Quoteref
       Me.AC_NO = ACNo
       Me.Brokername = Brokername
       Me.Contact_char = ContactName
       Me.RiskName_char = RiskName
       Me.Pcode = PostCode
       Me.TradeDesc = TradeDesc
    End If
     Else
     
       Me.QuoteRef_ID = rsSet("QuoteRef_ID")
       Me.AC_NO = rsSet("AC_No")
       Me.Brokername = rsSet("BrokerName_Char")
       Me.valStatus_char = rsSet("status")
       Me.Recieved_date = rsSet("recieved_date")
       Me.Contact_char = rsSet("Contact_char")
       Me.TelNo = rsSet("Tel_Number")
       Me.EMAIL = rsSet("email_char")
       Me.vaInceptionDate_date = rsSet("inceptiondate_date")
       Me.valPreStmt = rsSet("PreStatement_Int")
       Me.RiskName_char = rsSet("name")
       Me.Pcode = rsSet("PostCode_char")
       Me.ValPolEndDate_Date = rsSet("PolicyEndDate_Date")
       Me.TradeDesc = rsSet("TradeDesc_char")
       Me.valPolicyNo_char = rsSet("PolicyNo_char")
       Me.valProductCode = rsSet("ProductCode_char")
       Me.valBDComm_per = rsSet("BDComm_per")
       Me.valBrkComm_per = rsSet("BrkComm_per")
       Me.valRenewal_date = rsSet("Renewal_date")
       Me.valCreditTerm = rsSet("CreditTerms_char")
       Me.valTargetPrem_cur = rsSet("TargetPremium_cur")
       Me.valRiskTransfer = rsSet("RiskTransfer_char")
       Me.TargetInsurer_char = rsSet("TargetInsurer_char")
       Me.valToCarrier_date = rsSet("ToCarrier_date")
       Me.Carrier_char = rsSet("Carrier_char")
       Me.Source = rsSet("carriersource_char")
       Me.valCarrierQuoteRef_char = rsSet("QuoteReference_char")
       Me.valQuotedPremium_cur = rsSet("QuotedPremium_cur")
       Me.valCarrierQuote_date = rsSet("CarrierQuote_date")
       Me.valDiaryReason_char = rsSet("DiaryReason_note")
       Me.ValNextDiary_date = rsSet("NextDiary_date")
       Me.valTerms_note = rsSet("Terms_note")
       Me.valFeedback_Note = rsSet("Feedback_note")
       Me.valQuoteToBroker_date = rsSet("QuoteToBroker_date")
 
   
    If valStatus_char = "Taken-Up" Then
        valStatus_char.Enabled = False
        valQuotedPremium_cur.Enabled = False
        vaInceptionDate_date.Enabled = False
        valPolicyNo_char.Enabled = False
    Else
        valStatus_char.Enabled = True
        valQuotedPremium_cur.Enabled = True
        vaInceptionDate_date.Enabled = True
        valPolicyNo_char.Enabled = True
        ValPolEndDate_Date.Enabled = True
    End If
  
Exit_loadvalues:
    Exit Function

Err_loadvalues:
    MsgBox Err.Description
    Resume Exit_loadvalues
    Resume
       
End Function

thanks

[Hack]

Pass it the recordset that you want to use

Public Function loadvalues(adoRS As ADODB.Recordset)

Then change your rsSet to adoRS

This presumes that the data returned in both recordsets match the fields list in your function.