[vba]総額表示プライスカード完成

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

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

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

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

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

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

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

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

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

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

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

vbaで背景色を指定する

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

文字数でフォントサイズを動的変更

    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桁バーコードをコントロール

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

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

不況を乗り切るには

可能な限りのDIYですよね