Sub EnumFields(rst As Recordset, intFldLen As Integer) Dim lngRecords As Long, lngFields As Long Dim lngRecCount As Long, lngFldCount As Long Dim strTitle As String, strTemp As String 'Setthe lngRecordsvariabletothenumberof' records in the Recordset. lngRecords = ...
VBA コピー Public Sub VBADAO() Dim DAM As String Dim db As DAO.Database Dim rst As DAO.Recordset Dim query As String DAM = "VBA DAO" ' Open pointer to current database Set db = CurrentDb() Debug.Print DAM & ": Successfully connected to database. Data source name: " & _ ...