Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Stas
вот код, запускающий запрос на обновление. Если я правильно понял вопрос.

Private Sub Command43_Click()
Dim ChPolFrm As Form_CHANGE_POLICY
Dim Frm As db1.[Form_POLICY Query]

Set ChPolFrm = Form_CHANGE_POLICY
Set Frm = db1.[Form_POLICY Query]

DoCmd.SetWarnings False

ChPolSql = "update POLICY set INSURER_ID=" & ChPolFrm.Combo40.Value & _
                                ", POLICY_NUMBER='" & ChPolFrm.POLICY_NUMBER & _
                                "', ICEPT_DATE='" & ChPolFrm.ICEPT_DATE & _
                                "', EXP_DATE='" & ChPolFrm.EXP_DATE & _
                                "', PREMIUM=" & ChPolFrm.PREMIUM.Value & _
                                ", PREMIUM_CUR=" & ChPolFrm.Combo61.Value & _
                                ", FEE_COM='" & ChPolFrm.Combo59.Value & _
                                "', BROK_RATE=" & ChPolFrm.BROK_RATE.Value & _
                                ", COMMISSION=" & ChPolFrm.COMMISSION.Value & _
                                ", CLIENT_ID=" & ChPolFrm.Combo57.Value & _
                                ", BROKER_ID=" & ChPolFrm.Combo49.Value & _
                                ", LOB_ID=" & ChPolFrm.Combo47.Value & _
                                ", NEW_RENWAL='" & ChPolFrm.Combo53.Value & _
                                "', ADDENDUM_NO=" & ChPolFrm.ADDENDUM_NO.Value & _
                                ", IS_GLOBAL='" & ChPolFrm.Combo51.Value & _
                                "', FEE=" & ChPolFrm.FEE.Value & _
                                ", FEE_CURR=" & ChPolFrm.Combo63.Value & _
                                ", PROD_OFFICE=" & ChPolFrm.Combo55.Value & _
                                " where POLICY.ID=" & ChPolFrm.ID

DoCmd.RunSQL ChPolSql
DoCmd.Close acForm, "CHANGE_POLICY", acSaveNo
Frm.Requery
DoCmd.SetWarnings True

End Sub


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.