プログラミング・開発

win10 office365 access365におきまして フォーム　Fを開いて そのなかの非連結テキスト　textが あるとしまして そこに規定の文字列 たとえば、あいう を入れたいとき Sub Sample() Dim cn As ADODB.Connection Set cn = CurrentProject.Connection DoCmd.OpenForm "F", acNormal Form![F]!text1 = "あいう" end sub フォームFは当然開くのですが 非連結のテキスト　textは 空白のままです ちなみに 通常の使い方は このテキスト　text1の空欄に カーソルを合わせて 文字を打ち込んで行き 最後は　既製の保存ボタンをクリックすることにより 別テーブルに非連結テキストに入力した値を保存する流れになりますが、 この非連結テキストが複数ありまして テンプレートを作りたいので 上記のようなコードを 考えました すみませんが 不足しているポイントの 御教示宜しくお願い致します

Visualbasic2013でFormアプリケーションを開発しております。 Form上にElementhostを配置しWPFの表示も行っております。 OSがWindows11(23H2)の場合にInitializecomponentで異常終了する事象が 発生する事が分かりました。23H2が適用されていない場合は異常終了は 発生しません。 異常終了発生時のイベントログには以下が出力されています。 障害が発生しているモジュール名: ucrtbase.dll、バージョン: 10.0.22621.3374、タイム スタンプ: 0xac92626e 例外コード: 0xc0000409 障害オフセット: 0x0009e34b 障害が発生しているプロセス ID: 0x0x2378 障害が発生しているアプリケーションの開始時刻: 0x0x1DA8963F1A2F9E9 上記の異常終了を改善する方法が分かる方がいらっしゃいましたらご教授頂けないでしょうか。

[Q] CSSで添付したような作図ができますか？ CSSのスキルアップのための問題を作りました。 一辺が200pxの青い正方形があります。 1.青い正方形に内接する黄色い円を描きます。 2.黄色い円に内接する赤い正三角形を描きます。 3.赤い正三角形に内接する水色の円を描きます。 [仕様] 1.ＣＳＳだけで整形のこと 2.画像やリンクによる表示は無効 3.タグは変更、追加、削除ができない 4.配色はつぎのとおり　blue, yellow, red, skyblue CSSだけでこのような作図できますか？ CSSのスキルアップに励んでいる方の回答をお待ちしております。 [CSS] <style> /* 添付図のように整形するスタイル設定 */ </style> [HTML] <div class="square"></div>

https://web-mu.jp/column/35406/ ⇧ この記事の超音波で洗脳というものは、意思を洗脳するのですか？それとも体を操るのですか？

CSSのスキルアップのための問題を作りました。 ・フランス国旗にホバーするとベルギー国旗に変わります。 ・ベルギー国旗からマウスアウトするとフランス国旗に戻ります。 ・国旗の下にある国名のためのタグは不要です。 (ＪＳ無用) 　　 [仕様] 　　1.２とおりの国旗を切り替え表示します。 　　2.ＣＳＳだけで整形のこと 　　3.ベンダープレフィックスも追記のこと 　　4.タグは変更、追加、削除ができない 　　5.画像やリンクによる表示は無効 　　6.配色はつぎのとおり 　　　・フランス：青、白、赤 　　　・ベルギー：黒、黄、赤 CSSのスキルアップに励んでいる方の回答をお待ちしております。 [CSS] <style> body { background-color: skyblue; } .flag { width: 150px; height: 75px; border: solid 1px gray; } /* 添付図のように整形するスタイル設定 */ </style> [HTML] <div class="flag"></div>

[Q] CSSだけで添付図のように表示できますか？ CSSのスキルアップのための問題を作りました。 　　 [仕様] 　　・ＣＳＳだけで整形のこと 　　・タグは変更、追加、削除ができない 　　・画像やリンクによる表示は無効 　　・配色、配置はピッタリでなくてもよい 　　・一辺が200pxの正方形内にあるもの 　　　青い四角形、薄茶色の円、赤系のボール状のもの CSSのスキルアップに励んでいる方の回答をお待ちしております。 [CSS] <style> /* 添付図のように整形するスタイル設定 */ </style> [HTML] <div class="shape"></div>

エクセル　保存是非のダイアログを出さずに保存VBA エクセルファイルの ひとつのブック L.xlsxの特定のセルを 別のブックR.xlsxのセルにコピーするを VBAコードで　コピーまでは出来たのですが R.xlsxのブックを保存するかどうかの ダイアログが出てしまいます これが出ないで保存できるように ActiveWorkBook.Save これを入れてもやはり保存是非の確認が 出てしまいます コードは -------------------- Sub ID移動() Dim x As Workbook Dim y As Workbook Workbooks.Open Filename:="C:\Users\USER\Desktop\ACCESS\L.xlsx" Set x = Workbooks("L.xlsx") Workbooks.Open Filename:="C:\Users\USER\Desktop\ACCESS\R.xlsx" Set y = Workbooks("R.xlsx") y.Sheets("sheet1").Range("A2") = x.Sheets("output").Range("B2") x.Close y.Close ActiveWorkBook.Save End Sub ------------------ 保存是非のダイアログがでないで 保存できるための方法を 御教示いただけますか win10 office365 すみませんが 宜しくお願い致します

お世話になります。 レジストリ汚すのが嫌でPython3.12.2をembeddable版で導入しました。 最終的にはStable Diffusion AUTOMATICを入れてAI画像を生成するのが目的なわけですが…… 導入時に、Pythonにvenvが入ってないよと怒られます。 Virtual envでは駄目なようです。 Python embeddable版でvenvを入れる方法をご存知の方、どうかご教示のほどよろしくお願いいたします。

githubを良く理解できていないので、おかしな質問かもしれませんが許してください。 パブリックに公開されているリポジトリをcloneしました。 それをいじったり、別のプログラムと同じフォルダにまとめたりしました。 そのフォルダを、自分のプライベートリポジトリにバックアップするにはどうすればいいですか？

CSSだけで添付図のように整形できますか？ CSSのスキルアップのための問題を作りました。 　　 [仕様] 　　・商品には 括弧付き番号が振ってある 　　・点線の下線が引いてある 　　・元値は 青色文字で 薄い桃色の背景色になっている 　　・売値は 赤色文字で 黄色の背景色になっている 　　・タグは変更、追加、削除ができない 　　・ＣＳＳだけで整形のこと [CSS] <style> /* 添付図のように整形するスタイル設定 */ </style> [HTML] <ul id="Product_List"> <li>商品A<p><del>345円</del> 234円</p></li> <li>商品B<p><del>2,000円</del> 1,234円</p></li> <li>商品C<p><del>1260円</del> 850円</p></li> <li>商品D<p><del>100円</del> 80円</p></li> <li>商品E<p><del>150円</del> 120円</p></li> <li>商品F<p><del>500円</del> 450円</p></li> </ul> CSSのスキルアップに励んでいる方の回答をお待ちしております。

すみません。グーグルコラボラトリーのパイソンのプログラムを組むところとその結果を見る方法を教えて頂けると幸いです。

Object要素におけるname属性の利用について ある『ホームページ入門サイト』に下記の記述がありました。 ------------------------------ <object data="test.pdf" name="test"></object> <a href="test2.pdf" target="test">テスト2ページ</a> a要素のターゲットで、testを指定しています。これは、objectのnameに対応しています。このため、リンクをクリックすると表示内容がtest2.pdfに切り替わります。 ------------------------------ 実際に試してみると、Object要素の内容が切り替わらずに、 ブラウザの新しいタブに表示されてしまいます。 そこで、２つの疑問 Q１．Object要素の仕様が変わったから、そうなってしまったのか？ 　　そうであれば、参照先を知りたい。 Q２．リンクのクリックで、Object要素の内容を変えるにはどうする？ くわしいかたの回答をお待ちしております。

python コードに変数として hold_u というのを用いたところ、AIのGeminiとClaud 3の両方にPEP8に則していないといわれました hold_unit はよいそうです hold_u, hold_p, hold_a などどれも怒られるのですが、規約のどの部分に抵触しているのかわかりません これはキャメルではないことはわかります hold_uはスネークにならないのでしょうか？

最近、Minecraftを趣味でやってたときに、「Minecraftって天才だな」って思ったんですよ。 そのデザイン性とか設定とか、あらゆるところに気が配られてて、今更鳥肌が立ちました。 そこで、アイデアがほしいのですが、なるべくMinecraftの特徴を残したまま、誰が見ても別ゲーなものになるようにしたいです。 また、ストーリーではなく、ゲームの「世界観」を考えてほしいです。 　　　　　　　　↓読んで *質問主がいいと思った案は、回答者様の許可を取ることができれば、作らせていただきます。なので、「回答者様の案を更に改良してだすなら良い」という考えの人は末尾に「A」、「そのままで作って良い」という考えの人は末尾に「B」、「あくまで参考にするのみ」という考えの人は末尾に「C」と入れてください。これは必須でお願いします。 (↑尚、これは採用制) *また、希望する方のみ、希望された名前で「SuperThanks」として名前を挙げさせていただきます。 (↑尚、これは回答者様全員)

大手企業のサイトほどレスポンシブがちゃんとしてないのはなんででしょうかね？ 画面幅を狭くするとレイアウトが崩れてしまいます 大手サイトがこうなるのはちょっとどうなんだろう…って思ってしまいます

現在、vue、laravelを使って開発をしています。 基本的なことになりますが２つ質問があります。 よろしくお願いします。 ① 例えば、リクエストヘッダに、 『Content-Type:text/plain; charset=UTF-8』があった場合、 laravelが、『受け取ったのは「テキストでUTF-8」だな』と判断しているのでしょうか。 ② 例えば、レスポンスヘッダに、 『Content-Type:text/plain; charset=UTF-8』があった場合、 ブラウザ、もしくはaxios(js?)が、『受け取ったのは「テキストでUTF-8」だな』と判断しているのでしょうか。

回答が遅くなってしまい申し訳ありません… 確認画面で分からないところがあり、アドバイスお願い致します。 ➀アップロードされたファイルを表示画面と同じ大きさ（height: 350px;　width: 528px;）で表示したい場合どうすれば良いでしょうか？ HTML を書き換えるコードの画像サイズを変更しても変化がないためどうすべきか悩んでおります。 ➁名前と画像アイコンの表示順を逆にしたいのですが、bbs_quest_input.php の452行目の divNamaePartialParts.appendChild(usericonImg); と 455行目の divNamaePartialParts.appendChild(child); コードで順番を変更させる方法が分からず教えて頂きたいです。 上記とは別の疑問になるのですが、質問文、質問タイトル、名前それぞれ残り1文字入力可能な状態で制限がかかってしまいます。 これは以内というコードになっているからでしょうか？何が原因となっているのか分からずアドバイス頂きたいです。 ※現在のコード https://wandbox.org/permlink/piR82q0rnnWvVphI ※確認ページ表示画面 https://imgur.com/AucGqLf.png ※質問掲示板 http://www.irasuto.cfbx.jp/%e8%b3%aa%e5%95%8f%e6%8e%b2%e7%a4%ba%e6%9d%bf/

あるxmlファイルを一旦テキストファイルにして そこから数値をエクセルファイルに移行して ひとつはM.xlsxとし それに続いて行列を入れ替えた エクセルファイルR.xlsxを 作りたいのですが M.xlsx　R.xlsxのそれぞれを作るコードを 単純に　合体させただけでは どうも　できません M.xlsxだけ　また　R.xlsxだけの 作成するコードは　出来たのですが それぞれ別のマクロとして実行することになります ひとつのマクロでM.xlsx　R.xlsx同時に 作成するVBAコードは可能でしょうか 宜しくお願い致します ちなみに該当コードを単純化して 合体したのが以下のものです win10 office10 Sub 783縦() Dim FileName As Variant ChDir "\\DESKTOP-O5\f" FileName = Application.GetOpenFilename(FileFilter:="xmlファイル,*.xml") If FileName = False Then MsgBox "キャンセルされました" Exit Sub End If FileCopy FileName, Left(FileName, InStrRev(FileName, "\")) & "テキスト.txt" Const MyFile = "\\DESKTOP-O5\f\テキスト.txt" Const Key1 = "<Name>" Const Key2 = "</Name>" Const Key3 = "<NameKana>" Const Key4 = "</NameKana>" Const PutBokName = "M.xlsx" Dim buf As String Dim Len1 As Long Dim Len2 As Long Dim Pos1 As Long Dim Pos2 As Long Dim Len3 As Long Dim Len4 As Long Dim Pos3 As Long Dim Pos4 As Long Dim PutBook As Workbook With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .LoadFromFile MyFile buf = .ReadText .Close End With Len1 = Len(Key1) Len2 = Len(Key2) Pos1 = InStr(buf, Key1) Pos2 = InStr(buf, Key2) Len3 = Len(Key3) Len4 = Len(Key4) Pos3 = InStr(buf, Key3) Pos4 = InStr(buf, Key4) Set PutBook = Workbooks.Add With PutBook.Sheets(1) .Cells(1, 1).Value = "氏名" .Cells(1, 2).Value = Mid(buf, Pos1 + Len1, Pos2 - (Pos1 + Len1)) .Cells(2, 1).Value = "氏名カナ" .Cells(2, 2).Value = Mid(buf, Pos3 + Len3, Pos4 - (Pos3 + Len3)) 'クリップボードをクリア Application.CutCopyMode = False PutBook.SaveAs ThisWorkbook.Path & "\" & PutBokName End With Const PutBokName = "R.xlsx" Dim buf As String Dim Len1 As Long Dim Len2 As Long Dim Pos1 As Long Dim Pos2 As Long Dim Len3 As Long Dim Len4 As Long Dim Pos3 As Long Dim Pos4 As Long Dim PutBook As Workbook With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .LoadFromFile MyFile buf = .ReadText .Close End With Len1 = Len(Key1) Len2 = Len(Key2) Pos1 = InStr(buf, Key1) Pos2 = InStr(buf, Key2) Len3 = Len(Key3) Len4 = Len(Key4) Pos3 = InStr(buf, Key3) Pos4 = InStr(buf, Key4) Set PutBook = Workbooks.Add With PutBook.Sheets(1) .Cells(1, 1).Value = "氏名" .Cells(2, 1).Value = Mid(buf, Pos1 + Len1, Pos2 - (Pos1 + Len1)) .Cells(1, 2).Value = "氏名カナ" .Cells(2, 2).Value = Mid(buf, Pos3 + Len3, Pos4 - (Pos3 + Len3)) 'クリップボードをクリア Application.CutCopyMode = False PutBook.SaveAs ThisWorkbook.Path & "\" & PutBokName End With End Sub -------------------------------

windows11でvisualbasic2013でFormアプリケーションを開発しており ElementHostを利用してWPFを利用しております。 全ての端末ではないのですがシステムを起動した際に「Controls.Add(Me.ElementHost2)」 で異常終了する端末が存在します。 異常終了する端末のOSはWindows11です。 同じOSであっても異常終了しない端末も存在します。 異常終了する端末はtry/chachで例外も補足されません。 異常終了が発生しないように改善したいのですが、例外も補足できず どのように対応すればよいのか分からない状況です。 分かる方がいらっしゃればご教授頂けないでしょうか。

人感センサーで単純にオン・オフしたりするものは巷に溢れていますが、センサーの感知結果を、USBなどを介してパソコンにバイナリやテキストなどの形式で送信するものはありますか？プログラミングで処理できるものがあったらいいなと。