Access程式碼問題~~20++

資料處理這門課老師出了作業

打完了程式碼卻一直出錯~~~到底!!

Q1.請撰寫VBA函數CircleArea(),使用PI常數計算半徑10的圓面積,並顯示MsgBox為面積=___。

Q2.在產品資料表單物件的After Upgrade事件新增事件程序,檢查庫存量是否低於安全庫存,如下所示

If Me!庫存量 < Me!安全庫存 Then

MsgBox "庫存量不足"

End If

Q3.承上題,在Before Update 是建新增事件程序,如果庫存量少於2就顯示嚴重不足的訊息且庫存量不允許更改,如下所示,

If Me!庫存量 < 2 Then

MsgBox "庫存量嚴重不足,請通知倉管人員"

Cancel = True

Me!庫存量.Undo

End If

第一題我寫的程式碼是

Founction CircleArea(ByVal r)As Double

Const PI As Single = 3.1415926

CircleArea = PI * r ^ 2

_____________________________________

Private Sub Toltal

Dim a As Double

a = CircleArea(10)

MsgBox(a)

End Sub

但run出來只有MsgBox顯示面積的數字

不管怎麼打就是顯示不出 面積= 314.15......

然後第二題跟第三題我怎麼做都做不出來

可以把程式碼貼給我順便稍微講解一下嗎QAQ....

4 個解答

評分
  • 同學
    Lv 7
    6 年前
    最佳解答

    是否可提供檔案

    幫您改看看

    再回傳給您

    2014-05-22 12:51:48 補充:

    已將檔案修改回傳

    請試試看

    有問題再聯絡

    2014-05-23 12:50:30 補充:

    第二題跟第三題經實際測試

    VBA是正確的

    可能是巨集設定的問題

    已提供設定參考檔案(2007版)

    請試試看

    有問題再聯絡

  • 6 年前

    到下面的網址看看吧

    ▶▶http://candy5660601.pixnet.net/blog

  • 匿名使用者
    6 年前

    參考下面的網址看看

    http://phi008780520.pixnet.net/blog

  • W.J.S.
    Lv 7
    6 年前

    MsgBox "面積=" & a

還有問題?馬上發問,尋求解答。