ID非公開

2021/4/3 14:46

11回答

Access2000 レコードの複製について

Microsoft Access | Visual Basic25閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ID非公開

質問者2021/4/4 15:09

説明不足ですいませんでした。 初度2に設定しているVBAは 1-2と入力すると 1月2日と表示形式を変えてくれるように しています。 本当は日付型を使用すればいいのですが、令和になっても2000を使用しているので、文字列として保存しています。 初度2にVBAを登録してから 以前から使用していた複製のボタンをクリックすると エラー2474  指定した式では、コントロールがアクティブウインドウにある必要があります。 デバックボタンをクリックすると ym = Split(Me.ActiveControl.Text, "-") ←この部分がエラーで黄色の帯 になります。 初度2にVBAを設定する前は複製のボタンは上手く動作していたのですが。

ThanksImg質問者からのお礼コメント

出来ました!! 本当に本当にありがとうございました、 何回もアドバイス頂き感謝しています。 Private Sub 初度2_AfterUpdate() Dim strDate As String Dim ym As Variant Dim s As String s = Nz([初度2].Value) ym = Split(s, "-") ・ ・ ・ 初度2はテキストボックスです。

お礼日時:4/11 15:43