エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
非連結のチェックボックスでレコードを選択する
それぞれのコマンドボタンのクリック時のイベントプロシージャを下記のように記述。 Private Sub cmdChk... それぞれのコマンドボタンのクリック時のイベントプロシージャを下記のように記述。 Private Sub cmdChk_Click() If Me.chk1 Then Me.txtChkList = Replace(Me.txtChkList & ",", "," & Me.得意先コード & ",", ",") Me.txtChkList = Left(Me.txtChkList, Len(txtChkList) - 1) Else Me.txtChkList = Me.txtChkList & "," & Me.得意先コード End If End Sub Private Sub cmdプレビュー_Click() Dim strFilter As String If Me.txtChkList <> "" Then strFilter = "得意先コード In(" & Mid(Me.txtC