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

 

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

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

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

ник: Lukas
Может как-то так, модуль формы:

Private Function funResultat(Formula As String)
    Dim strLitera As String
    Dim i As Integer
    Dim strResultat As String
    If Len(Formula) > 0 Then
        For i = 1 To Len(Formula)
            strLitera = Mid(Formula, i, 1)
            If funIsField(strLitera) Then
                strResultat = strResultat & Me.Controls(strLitera)
            Else
                strResultat = strResultat & strLitera
            End If
        Next i
        funResultat = strResultat
    Else
        funResultat = vbNullString
    End If
End Function

Private Function funIsField(strLitera As String) As Boolean
    On Error Resume Next
    funIsField = Not Me.Controls(strLitera) Is Nothing
End Function


Private Function funCalculation()
    Dim strResultat As String
    strResultat = funResultat(Nz(Me.Formula, vbNullString))
    If Len(strResultat) > 0 Then
        Me.Resultat = strResultat
        Me.ResultatValue = Eval(strResultat)
    End If
End Function

Private Sub a_AfterUpdate()
    funCalculation
End Sub

Private Sub b_AfterUpdate()
    funCalculation
End Sub

Private Sub c_AfterUpdate()
    funCalculation
End Sub

Private Sub Formula_AfterUpdate()
    funCalculation
End Sub


Ваше имя:

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

Сообщение:

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

Прикрепить:

 

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