Помогите плиз!! Уже измучилась. уверена решение какое то прсотое но не приходит в голову. вобщем есть форма на ней поля. при нажатии кнопки надо чтоб данные с них заносились в базу скл. Я хотела через vba сделать но не получается. в итоге сделала макрсоом. все прекрасно заносит. НО! Мне также нужна проверка на этой форме. я ее делала на vba/(ниже прилагается)
и как теперь совместить я не понимаю((( Либо ставить процедуру либо макрос. а через процедуру не получается сделать добавление в базу. через макрос не могу сделать проверку((((

Private Sub Кнопка50_Click()
    Dim xCon As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strNewRecord As String
    constring = "Provider=SQLOLEDB.1;Password=psw;Persist Security Info=True;User ID=psw;Initial Catalog=Gurnal_kontr;Data Source=server1\omich"
    xCon.Open (constring)

If IsNull(Me.kontr.Value) Or IsNull(Me.pred.Value) Or IsNull(Me.datN.Value) Or IsNull(Me.datK.Value) Then
    MsgBox "Вы заполнили не все поля!"
  Else: GoTo 1
  
1
If Me.ПолеСоСписком42.Value = "Не подписан" Then
 

  MsgBox "Данные внесены!"
    Else: GoTo 2
2
If IsNull(Me.regNom.Value) Or IsNull(Me.dataP.Value) Or IsNull(Me.nam_otd_vbiv.Value) And Me.ПолеСоСписком42.Value = "Подписан" Then
    MsgBox "Заполните раздел подписано!"
    Else: GoTo 1

End If
End If
End If

  If Me.ПолеСоСписком42.Value = "Подписан" Then
        Me.Command32.Enabled = True
        Me.Кнопка49.Enabled = True
    Else
        Me.Command32.Enabled = False
        Me.Кнопка49.Enabled = False
    End If

    
End Sub

http://www.sql.ru/forum/1214620/makros-na-proverku-poley