RE: [AccessDevelopers] Re: Database for training

[Tom Oakes]

Or something like this: 
 
UPDATE tblTableName SET Status='Over Shipped' WHERE [Ship 
Qty] > [MaxShipQty]
UPDATE 
tblTableName SET Status='Short' WHERE [Ship Qty] < [Order 
Qty]
UPDATE tblTableName SET Status='Pass' WHERE ([Ship Qty] >= 
[Order Qty]) AND ([Ship Qty] <= 
[MaxShipQty])

Tom Oakes Personal PC Consultants, Inc. [EMAIL PROTECTED] 503.230.0911 (O) 402.968.6946 (C) 734.264.0911 (F) 



From: AccessDevelopers@yahoogroups.com 
[mailto:[EMAIL PROTECTED] On Behalf Of Jones, Glenn P MSG 
(Ret) FL-ARNGSent: Tuesday, November 08, 2005 6:38 AMTo: 
AccessDevelopers@yahoogroups.comSubject: RE: [AccessDevelopers] Re: 
Database for training
Try:With rst      
.MoveFirst             Do 
Until .EOF            
.Edit            If [Ship 
Qty] > [MaxShipQty] Then      
           
      !Status = "Over 
Shipped"           
      ElseIf [Ship Qty] < [Order Qty] 
Then           
            !Status = 
"Short"           
      Else       
            !Status = 
"Pass"            End 
If            
            
rst.Update            
rst.MoveNext      
Loop      End WithSet rst = 
NothingSet dbs = NothingGlenn P. Jones






Please zip all files prior to uploading to Files section.





  




  
  
  YAHOO! GROUPS LINKS



   Visit your group "AccessDevelopers" on the web. 
   To unsubscribe from this group, send an email to: [EMAIL PROTECTED] 
   Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.