要判断进货编码或出货编码不能在一组数据中交集
例: 900 -1600
判断700-800 OK
  800-1100 error
    1000-1400 error
   1300-1800 error
   1700-2100 ok
每次都在    "rsNum.Open SQL, cnn, adOpenKeyset, adLockOptimistic"报错
SQL = "select * from 进货信息 where (进货编码 < '" & 进货编码.Value & "'" _
    & "and 出货编码 > '" & 出货编码.Value & "')or (进货编码 > '" & 进货编码.Value & "'" _
    & "and 出货编码 >'" & 出货编码.Value & "')"
  
   
   
    rsNum.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
     If rsNum.BOF = False And rsNum.EOF = False Then
        MsgBox "1.在数据库中已经存在有编号为<" & 进货编码.Value & ">的进货记录!" _
            & vbCrLf & "请重新输入进货编码!", vbOKOnly + vbCritical
        Me.进货编码.Value = ""
      Me.开始时间.SetFocus
        GoTo hhh
     End If 

解决方案 »

  1.   

    进货编码?
    类型是什么?如果是整形那么应该为:
    SQL   =   "select   *   from   进货信息   where   (进货编码   <   "   &   进货编码.Value   &   _ 
            &   "and   出货编码   >   "   &   出货编码.Value   &   ")or   (进货编码   >   "   &   进货编码.Value     _ 
            &   "and   出货编码 > "   &   出货编码.Value   &   ")"