Private Sub cmbGuestNo_Click()
If cmbGuestNo = "" Then Exit Sub
rsGain.Filter = "MembershipNo= '" & Trim(cmbGuestNo.Text) & "'"
If rsGain.EOF = False Or rsGain.BOF = False Then
'rsGain.MoveLast

GETFIELDS ''''''''''''''fetching records
End If
rsGain.Filter = ""

End Sub


i cant put general click fetching records like this also ..not using flexi!
' SQL = "Select * from MemberRegistrationDetails where MembershipNo='" & Trim(cmbGuestNo.Text) & "'"
' Set rsGain = GetRecordset(SQL)
' GETFIELDS
' GetFamilyRecord
' If rsFamilyMember.RecordCount <> 0 Then
' GETFAMILYFIELDS
' End If


---------------------------------------------
on

Sub On_next() 'clicked on next button of toolbar

If Not (rsGain.EOF Or rsGain.BOF) Then
rsGain.MoveNext
End If
GETFIELDS

end sub