Ｐａｇｅ 165 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストボックス内での改行 zakk 田中 03/1/19(日) 0:25 ┗Re:テキストボックス内での改行 うますけ 03/1/19(日) 1:07 ┗Re:テキストボックス内での改行 zakk 田中 03/1/19(日) 2:23 ┗Re:テキストボックス内での改行 うますけ 03/1/19(日) 2:37 ┗Re:テキストボックス内での改行 zakk 田中 03/1/19(日) 3:32 ─────────────────────────────────────── ■題名 ： テキストボックス内での改行 ■名前 ： zakk 田中 ■日付 ： 03/1/19(日) 0:25 -------------------------------------------------------------------------
| ACCESS2000を使っています。VBAでテキストボックス内で改行したいのですが、 Forms!TEMP.TXT1.Value = "あいうえお" & Chr(13) & "かきくけこ" とすると、Chr(13)のところが"・"になり改行していません。なんとか改行する方法はないでしょうか？ あと、フォームがロードされているか調べる方法があったら教えてください。 |
| > Forms!TEMP.TXT1.Value = "あいうえお" & Chr(13) & "かきくけこ" "あいうえお" & Chr(13) & Chr(10) & "かきくけこ" "あいうえお" & vbCrLf & "かきくけこ" > あと、フォームがロードされているか調べる方法があったら教えてください。 IsLoadedプロパティを使えばOKです。 |
| ▼うますけ さん： 改行の方、うまくいきました。ありがとうございます >IsLoadedプロパティを使えばOKです。 Function IsFormLoaded(フォーム名 As String) As Boolean Dim obj As AccessObject For Each obj In Application.CurrentProject.AllForms If obj.Name = フォーム名 Then IsFormLoaded = obj.IsLoaded Next obj End Function こんな感じで関数を作ってみました。こっちもうまくいきました。 ありがとうございます。 |
| ども、うますけです。 余談ですが．．． > Function IsFormLoaded(フォーム名 As String) As Boolean > Dim obj As AccessObject > > For Each obj In Application.CurrentProject.AllForms > If obj.Name = フォーム名 Then IsFormLoaded = obj.IsLoaded > Next obj > > End Function 引数としてフォーム名を渡しているなら．．． ------------------------------------------------------------ Function IsFormLoaded(フォーム名 As String) As Boolean IsFormLoaded = CurrentProject.AllForms(フォーム名).IsLoaded End Function ------------------------------------------------------------ でOKだと思います。 |
| ▼うますけ さん： > >引数としてフォーム名を渡しているなら．．． >------------------------------------------------------------ >Function IsFormLoaded(フォーム名 As String) As Boolean > IsFormLoaded = CurrentProject.AllForms(フォーム名).IsLoaded >End Function >------------------------------------------------------------ >でOKだと思います。 ありがとうございます。AllFormsにすればよかったんですね。ずいぶんスマートになりました。 |