アクセス雛型

Private Function Hinagata()
On Error GoTo Error_Line

    Hinagata = 0

    Set recA = dbAbm.OpenRecordset("@", dbOpenTable)
    recA.Index = "@"
    Do Until recA.EOF
        recA![] = ""
        recA.MoveNext
        If (recA.EOF) Then Exit Do
        If (sBreak(1) <> recA![@]) Then Exit Do
    Loop
    recA.CLOSE

    strSql = "SELECT * FROM @ " _
                & "WHERE () " _
                & "ORDER BY @;"
    Set recQa = dbC.OpenRecordset(strSql, dbOpenDynaset)
    If (recQa.EOF) Then
        MsgBox ("")
        recQa.CLOSE
        Exit Function
    End If
    Do Until recQa.EOF
        recQa.MoveNext
    Loop
    recQa.CLOSE

    recQa.FindFirst "[] = '" & strX & "'"
    recQa.Sort = "[] ASC,[] ASC,[] ASC"
    Set recQa = recQa.OpenRecordset

    dbC.Execute "delete * from @"
    DoCmd.OpenQuery "@", acNormal, acEdit
    DoCmd.Requery ""

    DoCmd.Hourglass True
    DoCmd.Hourglass False

    '[Forms]![f_MANAGEMENT]![DATE_0]

    Select Case [Forms]![MANAGEMENT_F]![MEMO_11]
        Case "@"

        Case Else

    End Select

    Hinagata = -1

EXIT_Line:
    Exit Function

Error_Line:
    MsgBox ("Error Hinagata( ) " & [Forms]![MANAGEMENT_F]![MEMO_11])
    Resume EXIT_Line

End Function