月: 2018年9月

9月の大阪松竹座の公演は松竹新喜劇の70周年記念公演。

見てきた。

よかった。
めっちゃよかった！

『人生双六』
感動！
自分が子供のころTVでみたのは、藤山寛美・高田次郎だったように記憶している。
当然今はキャストが変わっていて、行ったときは扇治郎・植栗コンビだった。
（役替わりで次の日は扇治郎・天笑だったらしい。天笑さんのも観たかった！）

昔ながらの芝居を今の人がやるっていうのは、なんだか嬉しいな。
ずっとこういう芝居が続いていってほしいな、と改めて感じた。
ただ、若いからか芝居にまだ遠慮が感じられる。もっとぐぐっと思い切って演じてもいいようにも思う。

～ご挨拶～
いやぁ、高田次郎、小島慶四郎米寿コンビが元気で何より。
小島さんはイマイチおぼつかないが、高田さんのあのしっかりした姿はすごいな。
いい歳の取り方をしている人の代表だなぁ、としみじみ。

そして文童さん。
久しぶりに見たけど、この人もいい歳の取り方してるなぁ。
天外・文童２枚看板だったころは、自分はまだ若くてとても芝居を見に行くなんてできなかった時期だった。
たぶん、世の中も結構大変な時期だったと思う。
でも、そういうときにメンバーもそうだけど一生懸命頑張ってくれてたおかげで、今私たちは松竹新喜劇をみられるんだと思うと、本当に皆さんありがとう！と感謝しかない。

『八人の幽霊』
この演目は初めて見た。
寛太郎さんメインのお芝居。
天外さんがワンポイントで出てくるんだが、ちゃんと魅せてくれる。さすが。
楽しいお芝居だった。

2019年の1月もまた、新喜劇やるそうなので、こちらも観にいく！
絶対観にいくぞ！

クリップボードに文字列を貼り付けるときに、貼り付かないケースがあったので、
別の方法を調べてみた。

String型変数 buf の内容をクリップボードに設定するということで・・・
a) DataObjectを使う方法１

        Dim cb As Object
        Set cb = New DataObject
        cb.SetText buf
        cb.PutInClipboard

b) DataObjectを使う方法２

        With New MSForms.DataObject
            .SetText buf
            .PutInClipboard
        End With

c) TextBoxを使う方法

       With CreateObject("Forms.TextBox.1")
          .MultiLine = True
          .Text = buf
          .SelStart = 0
          .SelLength = .TextLength
          .Copy
        End With
        If cb.CanPaste Then cb.Paste

結構間が開いてしまった。
１か月に１度ぐらいはせめて投稿しようと思いつつ。

テーブルやらクエリやらがAサーバのDBをみているのだが、Bサーバのテスト環境のDBをみるように変えたい
となったとき、結構大変である。
標準機能で変更できるのかどうか、やり方がわからん。

ということで、VBAでできないか探してみたら、やはり一括でどべっと変更できるやり方があった。

' テーブルとクエリのリンク先を変更
' 引数　：from_srv = 変更前(例：172.0.0.1)
' 　　　：to_srv   = 変更後(例：196.128.1.10)
Sub ChangeLinks(from_srv As String, to_srv As String )

    Dim db As DAO.Database
    Dim tb As DAO.TableDef
    Dim qr As DAO.QueryDef
    
    Set db = CurrentDb
    On Error Resume Next
    For Each tb In db.TableDefs
        If tb.Connect <> "" Then
            tb.Connect = Replace(tb.Connect, from_srv , to_srv)     'サーバ変更
            tb.RefreshLink  ' テーブルはリフレッシュ
        End If
    Next
    For Each qr In db.QueryDefs
        If qr.Connect <> "" Then
            qr.Connect = Replace(qr.Connect, from_srv , to_srv)     'サーバ変更
        End If
    Next
End Sub

パスワードとかだと、
Replace(tb.Connect, “PWD=***”, “PWD=***”)
ってな感じで変換してやる。