'anlaman için basite indirgeyerek yazıyorum

Dim olcu1

Dim olcu2

Dim olcu3

Dim katsayi

Dim islem

Dim teorikg

Dim teorikgtoplam

Dim katsayilicarpim

Dim katsayilicarpim2

If IsNull(Me.olcu1) Then a = MsgBox("1.Ölçüyü Girmeden Devam Edemezsiniz"): Me.olcu1.SetFocus: Exit Sub

If IsNull(Me.olcu2) Then a = MsgBox("2.Ölçüyü Girmeden Devam Edemezsiniz"): Me.olcu2.SetFocus: Exit Sub

If IsNull(Me.olcu3) Then a = MsgBox("3.Ölçüyü Girmeden Devam Edemezsiniz"): Me.olcu3.SetFocus: Exit Sub

If IsNull(Me.katsayi) Then a = MsgBox("Katsayi Girmeden Devam Edemezsiniz"): Me.katsayi.SetFocus: Exit Sub

If IsNull(Me.islem) Then a = MsgBox("İşlemi Girmeden Devam Edemezsiniz"): Me.islem.SetFocus: Me.islem.Dropdown:  Exit Sub

olcu1 = Me.olcu1.Value

olcu2 = Me.olcu2.Value

olcu3 = Me.olcu3.Value

katsayi = Me.katsayi.Value

islem = Me.islem.Value

teorikg = olcu1 * olcu2 * olcu3

If islem = "*" Then katsayilicarpim2 = teorikg * katsayi

If islem = "/" Then katsayilicarpim2 = teorikg / katsayi

If islem = "+" Then katsayilicarpim2 = teorikg + katsayi

If islem = "-" Then katsayilicarpim2 = teorikg - katsayi

Me.sonuc.Value = katsayilicarpim2

Ek Dosyalar

TablodanFormül_coskun.rar(20.99 KB)