การพิมพ์สูตรลงฟิวด์บนฟอร์ม

[prajak]

จากรูปพอจะเป็นไปได้ไหมครับว่า ในฟิวด์บนฟอร์มเราสามารถพิมพ์สูตรเพื่อหาผลลัพธ์เหมือนใน excel ด้วยเหตุผลว่า บางครั้งข้อมูลที่จะเอามาป้อนนั้นมีหลายจำนวน จะได้ไม่ต้องมากดบนเครื่องคิดเลขครับ หรือพอจะมีแนวทางอื่นไหมครับ

[pizza_p]

Private Sub Output_AfterUpdate()
On Error GoTo Output_Err:
Dim myValue As Variant

myValue = Eval(Me.Output)
Me.Output = myValue

Output_Err:
  ' bypass error

End Sub

หมายเหตุ: ไม่ต้องใส่เครื่องหมาย = นะครับ ใส่ตัวเลข + - * / ได้เลย

[prajak]

รู้สึกว่ามันจะใช้กับฟิวด์ที่เป็น Number ไม่ได้หรือเปล่าครับ ลองแล้วไม่ได้ แต่ลองกับtext ได้
แล้วถ้าเป็นแบบนั้นจริง ฟิวด์text จะใช้ไปคำนวณได้เหรอครับ

[pizza_p]

ใช้อันนี้แทน แต่ต้องกด Enter หลังจากใส่สูตรทุกครั้ง

Private Sub Output_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Output_Err:
Dim myValue As Variant

If KeyCode = vbKeyReturn Then
    myValue = Eval(Me.Output.Text)
    Me.Output = myValue
End If
   
Output_Err:
    'bypass error

End Sub

[prajak]

ได้แล้วครับ ขอบคุณมากครับ