table is empty

[mheiy]

what will i do if the table has no entry and i will open it..
here's my 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

[Hack]

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?

[Al42]

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

[mheiy]

what will i do if the table has no entry and i will open it..
here's my 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

[TheBigB]

Please do not create duplicate threads.

[Hack]

Please do not create duplicate threads.

Duplicate threads merged.

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