https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30686#CommentId84932
投稿者 snowmansnow  (社会人) 投稿日時 2021/12/28 23:15:21

　こんばんは、魔界の仮面弁士様
> Dim MyDC0, MyDC1 As Long
直しました
    Dim MyDC0 As LongPtr

    Dim MyDC1 As LongPtr


> Private Const PS_SOLID = 0
直しました
Private Const PS_SOLID As Long = 0

Private Const WHITE_BRUSH As Long = 0

Private Const GRAY_BRUSH As Long = 2

Private Const CWIDTH As Long = 1500

Private Const CHEIGHT As Long = 1500


> Dim rs As Recordset
> Dim db As DAO.Database
直しました
 Dim rs As DAO.Recordset


> Set rs = db.OpenRecordset(Sql, dbOpenDynaset)
> rs.MoveFirst
直しました
　Set rs = db.OpenRecordset(Sql, dbOpenForwardOnly, dbReadOnly)

　Do Until rs.EOF


>そもそも、ループ中で何度も MyPen を作り直している理由が分からない…。
直せません・・・

0