アクセスフォーム上のテキストボックスの行間を指定する方法とは？
- アクセス初心者のために、フォーム上のテキストボックスの行間を指定する方法を教えてください。
- フォームにテキストボックスやボタンを配置し、文字の大きさを変更することはできましたが、行間を変更する方法が分かりません。
- 「LineSpacing」というプロパティがあることは分かりますが、具体的な使い方が分からないので、教えていただけると助かります。
- ベストアンサー
アクセスのフォーム上のテキストボックスの行間を指定する方法を教えてくだ
アクセスのフォーム上のテキストボックスの行間を指定する方法を教えてください。 アクセス初心者です。 フォームにテキストボックスとボタンを配置しておいて，下のように記述すれば，文字の大きさを変更することができました。 行間を変更したい場合は，どう記述すると良いのでしょうか？「 LineSpacing」というプロパティがあることは，何とか分かったのですが，使い方が分かりません。 よろしくお願いいたします。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub コマンド98_Click() Me.テキスト１.FontSize = 15 End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
- kaoru_jin
- お礼率93% (171/183)
- その他MS Office製品
- 回答数1
- ありがとう数3
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
行間の単位は、twipです。 Me!テキスト１.LineSpacing = 113 など 1cm =567、1ポイント=20twip です。
関連するQ&A
- レポートを開く時にテキストボックスのフォントサイズと行間を指定する方法
レポートを開く時にテキストボックスのフォントサイズと行間を指定する方法 アクセス初心者です。 レポートにテキストボックスを配置し，レポートオープン時にフォントサイズと行間を指定したにですが，下のように記述してもうまくいきません。 どなたか教えていただけないでしょうか。よろしくお願いします。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub Report_Open(Cancel As Integer) Me.テキスト１.FontSize = 15 End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
- ベストアンサー
- その他MS Office製品
- Access VBAボタンでテキストボックスを入力
access2010を使用しております。 フォームでボタンをクリックしたときに、テキストボックスを書換える コードを作りたいのですが、 Private Sub コマンド111_Click() ME!テキストボックス.value= "あああ" End Sub としても、テキストボックスは書き換わりません。 でも、ボタンをクリックした後にそのテキストボックスをクリックすると ちゃんと「あああ」と入力されています。 つまり、ボタンをクリックしても入力はされても表示がされず、 ただ、テキストボックスをクリックすると「あああ」と表示されると言った具合です。 また、テキストボックスをクリックする以外にも 違うレコードに移動してもとのレコードに戻ってもおなじように 表示されます。 これを押した時に表示を変更させるには どのようにすればよろしいでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel ユーザーフォームのコンボボックスについて
始めまして、マクロに関してはまだまだ勉強中なのですが、ユーザーフォームのコンボボックスについてつまづいてしまい、皆さんにご教授頂ければと思います。 一つユーザーフォームを作成後、そのフォーム内にコンボボックスを配置し、リストから項目を選択できるようにしたいと考え下記のように記述したのですが、ユーザーフォームを実行してもフォームは表示されてきますが、ボックスを選択してもリストに項目が表示されてきません。 Private Sub cmd入力_Click() End Sub Private Sub 選択グループCombo_Change() With 選択グループCombo .AddItem "初級" .AddItem "中級" .AddItem "上級" Private Sub cmd閉じる_Click() Unload Me End Sub この記述自体が間違っているのでしょうか。 宜しくお願いします。
- 締切済み
- その他（プログラミング・開発）
- accessで、フォームの検索をしたいのです。
今ACCESSで、データ管理をしているのですが、どうしてもうまくいかなくて、困っています。 毎日の出来事を記述するテーブル用のフォームを作って、記述していて、そのデータがたまってきています。 他のフォームに、検索用のテキストボックスとコマンドボックスを作って検索したいのです。 コントロールウィザードを使うと、完全一致のデータしかでてこないのですが、部分一致のレコードを表示させるにはどうすればいいのですか？ 教えていただけるとうれしいです。 コントロールウィザードを使うと以下のようになります。多分少しどこかを変えるといいのではないかと思うのです。どうか、よろしくお願いします。 Private Sub コマンド144_Click() On Error GoTo Err_コマンド144_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(21839) & ChrW(12356) & ChrW(21512) & ChrW(12431) & ChrW(12379) & ChrW(12513) & ChrW(12514) stLinkCriteria = "[内容]=" & "'" & Me![テキスト105] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_コマンド144_Click: Exit Sub Err_コマンド144_Click: MsgBox Err.Description Resume Exit_コマンド144_Click End Sub もしかして。。と思い、以下の部分、 stLinkCriteria = "[内容]=" & "'" & Me![テキスト105] & "'" を次のように変えてみたけれど、やっぱりうまくいきませんでした。 stLinkCriteria = "[内容]=" & "'" & "*" & Me![テキスト105] & "*" & "'" よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ユーザーフォーム上にある「テキストボックス」に小数が入力できない
以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記（サンプル１）のようにお教えいただいたのですが、下記のようにマクロを組むとテキストボックスに小数が入力できなくなってしまいます。 どのようにしたら、テキストボックスに小数が入力できるようになるのでしょうか？ お教えください。 事例）「1.234」とテキストボックスに打ち込むと「1」 「0.856」とテキストボックスに打ち込むと「0」と なってしまいます。 （サンプル１） 'A1のデータを反映するとした場合 'OptionButton1のコード Private Sub OptionButton1_Click() TextBox1 = Sheets("Sheet1").Range("a1") End Sub 'B1に反映するとして 'OptionButton2のコード Private Sub OptionButton2_Click() TextBox1 = "" End Sub 'TextBox1のコード Private Sub TextBox1_Change() If OptionButton2 = True Then Sheets("Sheet1").Range("B1") = TextBox1.Value End If End Sub
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAのユーザーフォーム上のテキストボックスの入力方法について
すいません教えていただきたいことがあります。 EXCEL VBAのユーザーフォームについて、 コマンドボタンにタグを設定して、これにキーボードと同じ機能を持たせて テキストボックス内に入力することは可能でしょうか。 例えばコマンドボタンを「あ」～「ん」まで作り、それぞれのボタンに「あ」～「ん」までのタグを設定する。 Private Sub UserForm_Initialize() CommandButton1.Tag = "あ" CommandButton2.Tag = "い" ・・・・「ん」までボタンを作成する。 次に、 Private Sub CommandButton1_Click() TextBox1.Value = TextBox1.Value & CommandButton1.Tag End Sub Private Sub CommandButton2_Click() TextBox1.Value = TextBox1.Value & CommandButton3.Tag End Sub ・・・「ん」まで作成する。 この設定では、コマンドボタンのクリックで文字の追加はできますが、ボタンを押すと常に文字が一番後ろに追加されるため、 テキストボックスをクリックしても文章の途中に文字を挿入することが出来ません。 通常のキーボードの入力と同じようにテキストボックス内でクリックした箇所からコマンドボタンで入力を開始するような設定は可能でしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excel オーダーフォームのテキストボックス入力について
オーダーフォームを作成し、テキストボックスを2つ以上作成し、コマンドボタンを1つ作りました。 同じ行ですべてを入力できるようにしたいのですが、どうしたらよいでしょうか？ テキストボックス1の値を入力するためのコマンドは、最下位の行を探してそこに入力するようなコマンドを作っているはずです…その横の列にテキストボックス2の値を入力し、その横の列にテキストボックス3の値を入力し…というようにしていきたいのです。 Private Sub CommandButton1_Click() Dim lRow As Long With Worksheets("sheet1") lRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & lRow + 1).Value = TextBox1.Value End With TextBox1.Value = "" TextBox1.SetFocus End Sub
- ベストアンサー
- オフィス系ソフト
- テキストボックス名を変数で指定してプロパティ設定？
Ms Access2000，2003 のVBAで テキストボックスのプロパティを変更する時 Me.TextBoxName.Fontsize = 9 などと記述しますが、 この式の左側、テキストボックス名等を変数で処理することが出来るのでしょうか？
- ベストアンサー
- その他(データベース)
- テキストボックスの表示について
いつもお世話になります。VBAで質問があるのですが、ユーザーフォームを作り、コマンドボタンとテキストボックスを配置します。 Private Sub CommandButton1_Click() Dim i As Long For i = 1 To 30 TextBox1.Text = i & "を入力しました" Worksheets("Sheet1").Range("A1").Value = i & "回目です" Next i End Sub と入力して実行すると、セルには1～30回まで順に書き込みがありますが、テキストボックスには最後の「30を入力しました」しか表示されません。 これを「1を入力しました」、「2を入力しました」、「3を・・・」というようにテキストボックスに順に表示させるにはどのようにしたらよいのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- access フォーム１からレコードコピー
access2003 Win-XP フォーム１ データ１ コマンドボタン データ２ コマンドボタン フォーム２ テキスト フォーム１のデータを選択してコマンドボタンをクリックし、次のデータも選択クリックして フォーム２のテキストへ書き出す。ここへは追加され、複数のデータが書き込まれるように したいと考えています。 １つのデータを選択書き出しなら Private Sub コマンドボタン_Click() forms![フォーム２]![データ項目] = Me.データ項目 End Sub これでできますが、テキストにどんどん追加するにはどうすればいいでしょうか？ VBの未熟者です。宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 早速やってみます。 たいへん助かります。