Sorum şu resim olarak atıyorum.
))Private Sub Form_Current()
Dim txtBDegerToplami As String
txtBDegerToplami = DSum("txtBDeger", "bTablosu")
txtDeger1.Value = txtBDegerToplami
txtDeger2.Value = txtDeger - txtBDegerToplami
End Sub