This sample was created and used in Microsoft Access ’97.<\/p>\n
Option Compare Database
\nOption Explicit
\nDim Db As Database
\nDim Cust As Recordset<\/p>\n
Sub LoadFields()<\/p>\n
On Error GoTo Err_LoadFields<\/p>\n
Text1.Value = “”
\nText2.Value = “”
\nText3.Value = “”
\nText4.Value = “”<\/p>\n
Text1.Value = Cust(0).Value
\nText2.Value = Cust(1).Value
\nText3.Value = Cust(“LAST_NAME”).Value
\nText4.Value = Cust(“FIRST_NAME”).Value<\/p>\n
Exit_LoadFields:
\nExit Sub<\/p>\n
Err_LoadFields:
\nIf Err.Number = 3021 Then
\nCust.MoveFirst
\nResume
\nEnd If
\nMsgBox Err.Description
\nMsgBox Err.Number
\nResume Exit_LoadFields<\/p>\n
End Sub<\/p>\n
Private Sub Form_Open(Cancel As Integer)<\/p>\n
Dim Connect As String
\nDim SQL As String<\/p>\n
On Error GoTo Err_Form_Open<\/p>\n
Connect$ = “ODBC;DSN=MSDB;”
\nSet Db = OpenDatabase(“”, dbDriverNoPrompt, True, Connect$)<\/p>\n
SQL = “SELECT * FROM CONTACTS ”
\nSet Cust = Db.OpenRecordset(SQL, dbOpenDynaset)<\/p>\n
Cust.MoveFirst
\nLoadFields
\nExit Sub<\/p>\n
Err_Form_Open:
\nMsgBox Err.Description, vbCritical
\nEnd<\/p>\n
End Sub <\/p>\n
Private Sub Command1_Click()
\nOn Error GoTo Err_Command1_Click<\/p>\n
Cust.MoveNext
\nIf Cust.EOF Then
\nMsgBox “EOF”
\nEnd If
\nLoadFields<\/p>\n
Exit_Command1_Click:
\nExit Sub<\/p>\n
Err_Command1_Click:
\nMsgBox Err.Description
\nResume Exit_Command1_Click<\/p>\n
End Sub <\/p>\n
Private Sub Command2_Click()
\nOn Error GoTo Err_Command2_Click<\/p>\n
Cust.MovePrevious
\nIf Cust.BOF Then
\nMsgBox “BOF”
\nEnd If
\nLoadFields<\/p>\n
Exit_Command2_Click:
\nExit Sub<\/p>\n
Err_Command2_Click:
\nMsgBox Err.Description
\nResume Exit_Command2_Click<\/p>\n
End Sub<\/p>\n
Private Sub Command3_Click()<\/p>\n
Dim SQL As String<\/p>\n
On Error GoTo Err_Command3_Click<\/p>\n
If (Len(Text2.Value) < 1) Then\nSQL = \"SELECT * FROM CONTACTS\"\nElse\nSQL = \"SELECT * FROM CONTACTS WHERE CONTACT_NUMBER = '\" & _\nFormat(Text2.Value, \"000000\") & \"'\"\nEnd If\n\nSet Cust = Db.OpenRecordset(SQL, dbOpenDynaset)\nMsgBox Cust.RecordCount\nLoadFields\n\nExit_Command3_Click:\nExit Sub\n\nErr_Command3_Click:\nMsgBox Err.Description\nResume Exit_Command3_Click\n\nEnd Sub\n<\/p>\n","protected":false},"excerpt":{"rendered":"
This sample was created and used in Microsoft Access ’97. Option Compare Database Option Explicit Dim Db As Database Dim Cust As Recordset Sub LoadFields() On Error GoTo Err_LoadFields Text1.Value = “” Text2.Value = “” Text3.Value = “” Text4.Value = “” Text1.Value = Cust(0).Value Text2.Value = Cust(1).Value Text3.Value = Cust(“LAST_NAME”).Value Text4.Value = Cust(“FIRST_NAME”).Value Exit_LoadFields: Exit […]<\/p>\n","protected":false},"author":75,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[54,63],"tags":[],"_links":{"self":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2334"}],"collection":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/users\/75"}],"replies":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/comments?post=2334"}],"version-history":[{"count":1,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2334\/revisions"}],"predecessor-version":[{"id":2335,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/2334\/revisions\/2335"}],"wp:attachment":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/media?parent=2334"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/categories?post=2334"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/tags?post=2334"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}