タグ: VBA

総額表示プライスカード作りでバタバタ

コロナ不況ド真ん中
なんでこんな時に！
延期出来ないのか？

完成したプライスカード800枚！

ライバル卸が使ってる
専門メーカー製、高価なプライスカードシステム
それを買えない（＝買わない）形部商事

私の目が黒いうちは、なんでもMS-Accessで自作

貧社のケチケチプライスカードシステム

市販品のカードに自作Accessプログラム
必要経費は、データ収集の人件費と専用用紙

「エーワン POP REVOLUTION プライスカード 棚什器用 40面 10枚」

Amazon価格344円÷400カード
プライスカード0.86円/枚

素人作りですが
それなりの見栄えだと思います

限られた印字スペースに盛りだくさんの項目
VBAでVisible・Hight・FontSizeをコントロール！

vbaで背景色を指定する
[code lang=”vb”]

Me![backbox].BackColor = "16777190" ‘初期値青

文字数でフォントサイズを動的変更
[code lang=”vb”]

If Len(Me![商品名規格]) > 26 Then
Me![商品名規格].FontSize = 12
Else
Me![商品名規格].FontSize = 13
End If

If Me![売価税込] >= 1000 Then
Me![売価税込].FontSize = 16
Else
Me![売価税込].FontSize = 18
End If

vbaで8桁バーコードと13桁バーコードをコントロール
[code lang=”vb”]

Me![JAN8].Height = 600
Me![JAN13].Height = 600

If myLen = 8 Then
Me![JAN13].Visible = False
Me![JAN8].Visible = True
Else
Me![JAN13].Visible = True
Me![JAN8].Visible = False
End If
[/code]

MS-Access超便利
中小企業の守神

不況を乗り切るには

可能な限りのDIYですよね

空いた時間に「プライスカード」発行プログラムを改造中

完成した「二重価格プライスカード」を得意先に見せると新たな要望が(マジで！)

売価は小数点切上げ

必要に迫られた機能だけを本を斜め読みしながら勉強してきた我流プログラマーの私

切上げプログラム
作ったことないな・・・

取りあえず操作画面に「切上チェックボックス」を追加

さて、切上げってどうするの？

ネットで拾ったスクリプトを参考に作ったプログラムがこれ

切上げプログラム
[code lang=”vb”] Sub MakeTAXonPRICE(myOffPrice As Currency, myTAX As Single)

Dim myOnPrice As Currency

myOnPrice = myOffPrice * myTAX

If Me![opt切上] = True Then
Me![売価2税込] = IIf(myOnPrice = Int(myOnPrice), Int(myOnPrice), Int(myOnPrice + 1))
Else
Me![売価2税込] = Int(myOnPrice)

End If

End Sub
[/code] 税込売価10%ボタン
[code lang=”vb”] Private Sub btn10on_Click()

Dim myPrice As Currency

myPrice = Me![売価]

Call MakeTAXonPRICE(myPrice, 1.1)

End Sub
[/code] 税込売価8%ボタン
[code lang=”vb”] Private Sub btn8on_Click()

Dim myPrice As Currency

myPrice = Me![売価]

Call MakeTAXonPRICE(myPrice, 1.08)

End Sub
[/code] これで一行ずつの計算プログラムが完成

次は、これをベースに数百レコード対象の
「税込売価一括計算プログラム」の開発

操作画面に[売価一括計算]ボタンを追加

一括税込売価計算プログラム（切上/切捨対応）がこれ
取りあえず8%食品用
[code lang=”vb”] Private Sub btn売価一括計算_Click()

Dim cn As ADODB.Connection
Set cn = Application.CurrentProject.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.Open "Tプライスカード", cn, adOpenKeyset, adLockOptimistic

Dim myOffPrice As Currency　’外税売価
Dim myOnPrice As Currency　’内税売価
Dim myTax As Single　’消費税率

myTax = 1.08

Do While rs.EOF = False

myOffPrice = rs![売価] myOnPrice = myOffPrice * myTax

Me![txtTSET2] = myOnPrice

If Me![opt切上] = True Then
rs![売価2税込] = IIf(myOnPrice = Int(myOnPrice), Int(myOnPrice), Int(myOnPrice + 1))
Else
rs![売価2税込] = Int(myOnPriceL)
End If
rs.Update

rs.MoveNext
Loop

rs.Close
cn.Close

End Sub
[/code]

普通に動きました

MS-Access
スゲ～便利！
開発、超簡単！

でもリボンインターフェイス大嫌い
開発画面、MS-Access2003の頃に戻してくれないかな・・・
開発が30%早くなるのにな

納期の迫ったデータベース開発を急に担当することに・・・・（本当は過ぎてるかも）

年末商戦・お歳暮商戦で忙しい上でのAccess VBA開発、んんん～キツイな！

取り急ぎ、複合検索結果をRecordset化したい。
パラメータークエリーだと不安定なので検索の度に、パラメーター直書きクエリーを動的に作りたい！

「vba クエリー 作成方法」をGoogle検索

vbaでクエリー作るのって以外と簡単なのね！

Private Sub btnクエリー削除_Click()

Dim myQuery As String
Dim Obj As AccessObject

myQuery = "Qクエリ生成テスト"

For Each Obj In CurrentData.AllQueries
If Obj.Name = myQuery Then
DoCmd.DeleteObject acQuery, myQuery
Exit Sub
End If
Next

End Sub

Private Sub btnクエリ作成_Click()
Dim Qdf As QueryDef
Dim SQL As String
SQL = "SELECT 商品CD,商品名,JAN1 FROM システムM商品"
Set Qdf = CurrentDb.CreateQueryDef("Qクエリ生成テスト", SQL)
Set Qdf = Nothing
End Sub
[/vb] テストフォーム


スクリプトがこれ


クエリが出来ました。
削除ボタンで消すことも出来ます。

関係ないですが、PowerPointみたいな派手なグラデーションボタンが嫌い！
以前の地味なグレーボタンってどう作るの？
データベースの操作画面は地味がいいと思う。