table is empty

what will i do if the table has no entry and i will open it..
here's my code

VB Code:

Private Sub MDIForm_Load()
tbAcademicYear.Open "select * from tbacademicyear", cn, adOpenDynamic, adLockOptimistic
If tbAcademicYear.Fields(1) = Null Then
    Exit Sub
Else
Set tbAcademicYear = Nothing
AY = "select * from tbacademicyear where Status like '" & "Open" & "'"
tbAcademicYear.Open AY, cn, adOpenDynamic, adLockOptimistic
StatusBar1.Panels(10) = tbAcademicYear.Fields(0)
End If
end Sub

Quote:

---

Originally Posted by mheiy

what will i do if the table has no entry and i will open it..

---

What do you need to do if it is empty?

VB Code:

Private Sub MDIForm_Load()
Dim tbAcademicYear As ADODB.Recordset
 
  Set tbAcademicYear = New ADODB.Recordset
  AY = "select * from tbacademicyear where Status like '" & "Open" & "'"
  tbAcademicYear.Open AY, cn, adOpenDynamic, adLockOptimistic
  If Not tbAcademicYear.EOF Then
    StatusBar1.Panels(10) = tbAcademicYear.Fields(0)
  End If
  Set tbAcademicYear = Nothing
End Sub

what will i do if the table has no entry and i will open it..
here's my code

VB Code:

Private Sub MDIForm_Load()
tbAcademicYear.Open "select * from tbacademicyear", cn, adOpenDynamic, adLockOptimistic
If tbAcademicYear.Fields(1) = Null Then
    Exit Sub
Else
Set tbAcademicYear = Nothing
AY = "select * from tbacademicyear where Status like '" & "Open" & "'"
tbAcademicYear.Open AY, cn, adOpenDynamic, adLockOptimistic
StatusBar1.Panels(10) = tbAcademicYear.Fields(0)
End If
end Sub

Please do not create duplicate threads.

Quote:

---

Originally Posted by TheBigB

Please do not create duplicate threads.

---

Duplicate threads merged.

Please heed this advice and do not create duplicate threads for the same question.