Query Help

**ncurran217** · 02-10-2012, 08:45 PM

These are the ones that are checked:

Visual Basic for Applications
Microsoft Access 12.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.6 Object Library

**alansidman** · 02-10-2012, 10:23 PM

None indicated as missing?

**ncurran217** · 02-10-2012, 11:39 PM

nope nothin coming up saying anything is missing

**alansidman** · 02-11-2012, 02:14 PM

A little bit of tweaking and I got it to work.


Private Sub Command4_Click()
Dim mydb As DAO.Database
Dim myset As DAO.Recordset
Dim mycategory As String

Set mydb = CurrentDb
Set myset = mydb.OpenRecordset("Table1")
Do Until myset.EOF

myset.Edit
If myset!Coverage = "CCPLAT" Then
Select Case myset!Mileage
Case 0 To 24000
[mycategory] = "24,000"
Case 24001 To 36000
[mycategory] = "36,000"
Case 36001 To 50000
[mycategory] = "50,000"
Case 50001 To 60000
[mycategory] = "60,000"
Case Else
[mycategory] = "N/A"
End Select

ElseIf myset!Coverage = "CCDIAM" Then
Select Case myset!Mileage
Case 0 To 50000
[mycategory] = "50,000"
Case 50001 To 75000
[mycategory] = "75,000"
Case 75001 To 100000
[mycategory] = "100,000"
Case 100001 To 125000
[mycategory] = "125,000"
Case 125001 To 150000
[mycategory] = "150,000"
Case Else
[mycategory] = "N/A"
End Select
End If
myset("Category").Value = mycategory
myset.Update

myset.MoveNext
Loop
MsgBox ("Your Table is Updated!")
End Sub