senin formülde en sonda /1000 /10000 ler var onları hiç kjarıştırmadım.bi buraya kadar yaptıklarımızı gözden geçirelim.Sana Koduda yazıyorum örneğide gönderiyorum.En son bu haliyle bi konuşalım tekrar düzeltebiliriz.
'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