运行表单时出现以上情况，按确定后在运行，又正常了，怎么回事啊

我是使用了数据环境了，代码我都是自己写的啊，没有抄别人的啊

不是每次运行都出现这样的情况，大概运行5次，出现1次异常

表单访问2种数据库，一种是ACCESS，一种是DBF，access是用SPT,调用的时候才打开，用完关闭，数据环境用的是DBF

代码真是自己写的，就是SPT调用ACCESS数据的时候用了一点别人的代码;
riqi=TTOD(thisform.t1._Value)

nhandle=Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)}; Dbq=e:油库其他\付油\data1.mdb;Pwd=")
IF  nhandle<=0
           MESSAGEBOX("数据库连接失败！！！",16,  '错误信息')
           RETURN
ELSE

         *Ac=SQLEXEC(nhandle,"Select * From fypz where cprq=?riqi","Temp1")
        Ac=SQLEXEC(nhandle,"Select hwh,SUM(yfss) as yfss1,SUM(sfss) as sfss1 From fypz where cprq=?riqi group by hwh","Temp1")
           IF  Ac<0
                       MESSAGEBOX("读取数据错误！",16,  '错误信息')
                       RETURN
           ENDIF
           SELECT  Temp1
          = SQLDISCONNECT(nhandle)
         
ENDIF

我再想想问题出在哪里

这是表单，ACCESS数据有些大，没有上传

谢谢KIFF师傅，应该就是这个原因

我按照KIFF师傅的方法改下，看还会不会出现对话框

用set filter to主要是方便编辑数据，也不会影响其他人调用表格，这个我试过了，每个表单都可以建立自己的私有数据。