Guest_imported
New member
- Jan 1, 1970
- 0
Trying to open in Access 97 code
Dim DBS As Database
Dim rst As Recordset
Dim strsql As String
Dim MaxID As Long
Dim NewLabelCount As Long
Dim NewLabelID As String
Dim x As Integer
Dim MaxIDLen As Long
txtLabelCount.SetFocus
NewLabelCount = txtLabelCount.Text
Set DBS = CurrentDb
cboCategory.SetFocus
strsql = "Select MaxAssigned from Asset_Label_Sequence where Prefix = '" & cboCategory.Text & "'"
Set rst = DBS.OpenRecordset(strsql)
Dim DBS As Database
Dim rst As Recordset
Dim strsql As String
Dim MaxID As Long
Dim NewLabelCount As Long
Dim NewLabelID As String
Dim x As Integer
Dim MaxIDLen As Long
txtLabelCount.SetFocus
NewLabelCount = txtLabelCount.Text
Set DBS = CurrentDb
cboCategory.SetFocus
strsql = "Select MaxAssigned from Asset_Label_Sequence where Prefix = '" & cboCategory.Text & "'"
Set rst = DBS.OpenRecordset(strsql)