MSAccess？って見間違えるフォーム作っちゃいました…

どうも

pcばっかりタイショーくんです。

最近高校で全国に出れることになったのがうれしい反面、忙しくなるのでバタバタしてます( 一一)

 

そういえばちょこちょこswitchだったりパソコンのグラフィックボードの価格を見てるんですが、まだまだ下がりそうにないですね(._.)

新型グラフィックボード3060tiも定価の倍ぐらいしますし…(2021/6/18時点 134,800\)

ほんといやになりますよ…

買いたいのに買えないの( ｀ー´)

もうあと1~2年待たんとだめかな？

 

というわけで(？)今回は、ちょっとしたvbaのことをば…

前々回かな？に書いたんですけどMSAccess社内筆頭(？)なのでコードを書くことが増えたんですが、それ以前に見た目は大事ということで。

『ログインフォーム』について話していけたらと思います！

読みたい人だけ読んでいただければ！

 

 

完成の画像は貼っておきますね。

 

 

今のログインフォームこれなんですけど、どうですかね？

僕としてはMS史上最高の出来なんですけど…

 

ブログとか書くの苦手でかつあんまりネット使いこなせてないのでgifとか入れられてないです。ごめんなさい。

そう！で、これの書き方とかなんですけど、意外と簡単にできたりするので、MSAccess使っててビジュアル大事にしたい！って人はぜひ参考までに。

ただし…『Windows10』にしかこんな感じのビジュアルは表示できません！！(フォームのプロパティから枠線をなしにするとできるかもですがあんまりお勧めしません…)

 

 

この画像のフォームのつくり方は

デザインモードに入って、フォームのプロパティを開きます。

 

画像の通りにしてもらうと基本解決するんですが

標題 : 空白を一つ入れる(コントロールボックスを隠せば何も枠には表示されなくなる)

ポップアップ・自動中心寄せ : もちろんOn!!

境界線スタイル : ダイアログ一択。

レコードセレクタ・移動ボタン・コントロールボックス : 邪魔(いいえにしといてください。)

 

これでフォームのプロパティーいじりはおわり！

次はフォームのコントロールのコード。(ソースコード書けないから勘弁)

えっとあの目のマークはコマンドボタンとラインで作ってます。

コマンドボタン単体では作れないのでそこのところ。

ちなみにコントロールの内訳はこう

password : テキストボックス。まんまパスワード入ってるよ

コマンド : コマンドボックス。標題に👁って入れてる。(背景は透過させてな？)

ラインちゃん : 直線。なんかかわいい。

---

【目のマークのコード】

Private Sub コマンド_Click()

Static sblnVisible As Boolean
If sblnVisible Then

Me!password.InputMask = “Password”   ‘パスワードっていう書式に変更

ラインちゃん.Visible = False
Else

Me!password.InputMask = “”   　　　　 ‘書式なくす

ラインちゃん.Visible = True  End If

sblnVisible = Not sblnVisibleEnd Sub　　　　’反転させる

 

end Sub

 

---

 

こんな感じでひびオフィスの中で凝ったものを作成中です！！

商品化とかされるかも…?(調子乗りましたごめんなさい。)

 

 

 

ではまた～～(*´ω｀*)