本文へジャンプします。

こんにちは、ゲストさん

現在位置： トップ > タグ:*accessclub*

タグ：*accessclub*

携帯 RSS

画像表示：
ON｜OFF

29件中　1-5件を表示しています

1 2 3 4 5 »

  1. 閲覧数176 クリップ数1

    カレントディレクトリの取得方法 --Access Club Access 初・中級者 FORUM-- クリップする

    http://www.accessclub.jp/bbs2/0013/beginter04590.html 本文へ

    タグ：

    コメントFunction Get_CurDir()
    Dim MyPos As Integer
    Dim SerachPos As Integer
    Dim DirPath As String

    Dim db As Database

    Set db = CurrentDb()

    DirPath = db.Name
    MyPos = 1

    Do
    MyPos = InStr(MyPos + 1, DirPath, "●")　※●←￥
    If MyPos = 0 Or IsNull(MyPos) Then
    Exit Do
    End If
    SerachPos = MyPos
    Loop

    Get_CurDir = Mid(DirPath, 1, SerachPos - 1)

    db.close: Set db = Nothing

    End Function

  2. 閲覧数730 クリップ数1

    レポートの印刷プリンタ(ページ設定)をVBAで直接変更できないでしょうか？ --Access Club VBA Tips フォーラム-- クリップする

    http://www.accessclub.jp/bbs5/0016/vba4586.html 本文へ

    タグ：

    コメントhttp://office.microsoft.com/ja-jp/assistance/HA010345531041.aspx

  3. 閲覧数445 クリップ数1

    テーブルのフィールドサイズを取得したい --Access Club VBA Tips フォーラム-- クリップする

    http://www.accessclub.jp/bbs5/0035/vba10981.html 本文へ

    タグ：

    コメントCurrentDb.TableDefs("テーブル名").Fields("フィールド名").Size

  4. 閲覧数140 クリップ数1

    ふりがな入力支援での文字数制限 --Access Club 超初心者 FORUM-- クリップする

    http://www.accessclub.jp/bbs3/0361/superbeg108330.html 本文へ

    タグ：

    コメントPrivate Sub FuriW_Change()
    If Len(FuriW.Value) <= 10 Then
    ふりがな.Value = FuriW.Value
    Else
    ふりがな.Value = Left(FuriW.Value, 10)
    End If

    End Sub
    +++++++++++++++++++++++
    一旦入力したものを、途中入力したりすると妙なことになったり、追加しちゃうと重なってたり。。。

  5. 閲覧数211 クリップ数1

    フォームでの小数点以下の表示・非表示 --Access Club Access 初・中級者 FORUM-- クリップする

    http://www.accessclub.jp/bbs2/0082/beginter25522.html 本文へ

    タグ：

    コメントテキスト項目にしてformatで回避。
    目からウロコ。。。

29件中　1-5件を表示しています

1 2 3 4 5 »

関連するタグ

携帯でアクセス

携帯アクセスバーコード
携帯で左のバーコードを読み取るか
URLを携帯に送信してください。

Powered by モバクシー

このページの先頭へ戻る

推奨画面サイズ
1024×768 以上

クリップBETAトップへ戻る