Bapak boleh menggunakan kode berikut ini dalam on open form tersebut
Dim recmain as ADODB.Recordset
Strqry = "Select........." (isikan recordsource form tersebut yang mempunyai 
criteria)
Set recmain = CurrentProject.Connection.Execute(strqry)
If recmain.EOF then
    Form.recordsource="select...." (isikan recordsource form yang tanpa 
menggunakan criteria)
Semoga bisa membantu bapak..

Kirim email ke