• 締切済み

デバックがでない

Option Compare Database Public Function Doreka(kazu As Integer) As Integer Doreka = kazu * 3.305785 End Function をイミディエイトのところで 実行すると 継続　終了　のみしか出てきません どうやったら、デバックを出すことができますか？

  • s1229
  • お礼率2% (35/1729)

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

これ何の質問。 なぜＤｅｂｕｇ．Ｐｒｉｎｔを入れてないの？ 私ならMsgbox kazu(Msgbox(kazu)) を入れて確認してますが。その後コメント化する。

s1229
質問者

補足

アクセスのよくわかりませんが、debug print とmsgbox kazu はどこに入れればいいのですか どうやればこの分は動きますか？ これはあるアクセスの問題です

  • nmktksk
  • ベストアンサー率36% (75/208)
回答No.1

debug.print doreka

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • どこにいれればいいですか

    下記のプログラムがあります Option Compare Database Public Function Doreka(kazu As Integer) As Integer Doreka = kazu * 3.305785 End Function で Ｄｅｂｕｇ．Ｐｒｉｎｔ と Msgbox kazu(Msgbox(kazu)) はどこに入れればいいですか

  • ACCESS２０００

    Option Compare Database Public Function RoundDown(X As Double, s As Integer) As Double Dim t As Integer t = 10 ^ Abs(s) If s > 0 Then RoundDown = Int(X * t) / t Else RoundDown = Int(X / t) * t End If End Function というモジュールをつかって値の切り捨てをおこなっていましたが、マイナスの値がうまく動きません。 どなたか教えていただけないでしょうか。

  • 実行されない

    アクセス初心者です プロシージャの実行をしても 答えがでてきません 何が必要なのでしょうか Option Compare Database Public Function Doreka() Doreka = 1 * 3.305785 End Function

  • カスタム関数の変数をリセットしたい

    AC2000/WIN2000です。 以下のようなカスタム関数を使って、クエリーで順位を振っているんですが、 変数JUNをリセットしていないので、処理を行う毎に数字が増えていってしまいます。カスタム関数の変数をリセットするにはどうすれば良いんですか？ Global MAEBUKA, REN, JUN'（順位） As Integer Option Compare Database Function G_RENBAN(BUKA As Integer) As Integer If MAEBUKA = BUKA Then G_RENBAN = JUN Else G_RENBAN = JUN + 1 JUN = JUN + 1 End If MAEBUKA = BUKA End Function

  • ACCESSのレポートに売上の累計を計算させましたが・・・・

    ACCESS2002についてです。 テーブルに"売上日"　"売上金額"とある中で"売上累計"を明細行毎にだそうと、本に書いてある下記のように入力しましたが、ページが変わってしまうと"売上累計"が合わなくなってしまいます。どうしたら解決できますか???? Option Compare Database Option Explicit Private curRuikei As Currency Private Sub Report_Open(Cancel As Integer) End Sub Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer) '累計のクリア curRuikei = 0 End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) '累計の加算 curRuikei = curRuikei + Me!売上金額 Me!売上累計 = curRuikei End Sub です。

  • アクセス　レポート　バックカラーの変更方法

    現在レポートで１行ごとにバックカラーを変えて印刷しておりますが、それをチェックボックスにチェックがはいった行だけをカラーにするよう変更したいと考えておりますが、よくわかりません。現在のコードをコピーしました。お手数ですがご指導願います。 Option Compare Database Dim bline As Integer Private Sub Report_Open(Cancel As Integer) End Sub Private Sub ページヘッダー_Format(Cancel As Integer, FormatCount As Integer) bline = 0 End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) bline = bline + 1 If bline Mod 2 Then Me.Section(0).BackColor = 16777215 Else Me.Section(0).BackColor = 12663225 End If End Sub

  • VBでコンパイル　エラー　変数が必要です

    すみません、教えてください イミージエイトウインドウから myttを実行すると 「変数が必要です」のエラーがでます 教えてください Public Type myType Pos As Integer xx As Integer yy As Integer find As Integer '-1あり 0なし End Type Function mytt() Dim myzz As myType myzz.Pos = 45 mySerch (myzz)　'←ここでエラー End Function Function mySerch(ww As myType) As myType ww.find = -1 End Function

  • On Error Resume Nextを複数のプロシージャーで使うことは不可能ですか？

    Module1に ------------------------------------------- Option Compare Database Option Explicit Sub マクロ1() End Sub Sub マクロ2() End Sub ------------------------------------------- があるのですが ------------------------------------------- Option Compare Database Option Explicit Sub マクロ1() On Error Resume Next End Sub Sub マクロ2() On Error Resume Next End Sub ------------------------------------------- ではなく ------------------------------------------- On Error Resume Next Option Compare Database Option Explicit Sub マクロ1() End Sub Sub マクロ2() End Sub ------------------------------------------- これはできないのでしょうか？ エラーになります。 dimもつけても駄目でした。 ひとつづつやっていくしかないのでしょうか？

  • Access2003　レポートの合計の出し方

    お世話になっております。 Access2003のレポートで下記のようなコードで価格の合計を求めようとしています。 1ページですとこれで合計は表示されるのですが、レポートが2ページ以降になると最終ページの合計が表示されます。 最終ページの最後にすべての合計を出したいと思っています。 ご教授いただければ幸いです。よろしくお願いいたします。 Option Compare Database Dim a As Variant Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer) a = 0 End Sub Private Sub グループヘッダー3_Print(Cancel As Integer, PrintCount As Integer) a = a + Me.価格 End Sub Private Sub レポートフッター_Print(Cancel As Integer, PrintCount As Integer) Me.合計 = a End Sub

  • vb2008でのクラスライブラリ実行に関して

    vb2008でのクラスライブラリ実行に関しての質問なのですが、 クラスライブラリで以下の内容のプロジェクトを作成しました。 プロジェクト名：TEST ファイル名：TEST1.vb '～プログラム内容～ Module D01001B Public Function Main(ByVal CmdArgs() As String) As Integer 　　　　'バッチの処理内容 End Function End Module このバッチをデバックしたいのですが、どうやらクラスライブラリは 単体ではデバックできないらしくどうすればできるのか困っています。 調べてみると新しいプロジェクトでWindowsフォームアプリケーション を選択し、フォームからボタンを押して実行する方法があるとの ことなのですがどのように記述したらよいかわかりません。 できればどのように記述すれば実行(呼び出し)できるのか教えていただけないでしょうか？ 以上

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する