AccessVBA開発 AccessVBA クラスオブジェクト⑤在庫数表示 Option Compare Database Dim zanNuki As Long, zanKomi As Long 'zan1 As Long, zan2 As Long, zan3 As Long, zan4 As Long, za... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA クラスオブジェクト④バックアップ Option Compare Database Private Sub Form_Open(Cancel As Integer) FormSizeSquare Me.PictureType = 0 Me.Picture = BgImageD... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA クラスオブジェクト③大会出品用印刷メイン Option Compare Database '印刷対象のレポート名の変数を定義 Dim RepotMei As String Dim RepotMei2 As String Private Sub cmbレポート選択_Enter() M... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA クラスオブジェクト②商品編集 Option Compare Database Private Sub cmbブランドコード_AfterUpdate() Me.txtブランド.Value = Me.cmbブランドコード.Column(1) End Sub Private ... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA クラスオブジェクト①商品検索 Option Compare Database '3つの条件の項目を代入する変数を定義 Dim F1 As String, F2 As String, F3 As String '取得した値を代入する変数を定義 Dim J1 As Stri... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA 標準モジュール⑨パブリック変数定義 Option Compare Database '******************************************************* '* '* フォーム間、値受け渡しの為、変数をpublicで定義 '* '**... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA 標準モジュール⑧FSOフォルダ・ファイル操作 Option Compare Database Function BackUpFile(FolderPath, FileName) '***************フォルダ検索/ファイル検索/ファイルコピー******** ' 'バックアッ... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA 標準モジュール⑦画面設定 Option Compare Database Sub リボン非表示() 'リボン非表示 DoCmd.ShowToolbar "Ribbon", acToolbarNo 'ナビゲーションウィンドウを非表示にする DoCmd.SelectOb... 2018.01.11 AccessVBA開発
AccessVBA開発 AccessVBA 標準モジュール⑥外部ファイルを操作 Option Compare Database Sub XLSExport(TableName, FilePath) '************************************************ 'エクセルファイルをエ... 2018.01.11 AccessVBA開発