-
can i do this??
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??
Code:
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
-
Re: can i do this??
Pass it the recordset that you want to use
Code:
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.