CompuFiciency — Applied CompuTelligence

usafc141b

Lesson 1

Import

as-Flower Pot Customers.txt

 

as-Flower Pot.xlsx

 

ca-Customers.xlsx

 

ca-Orders.xlsx

 

ca-Products.xlsx

 

ca-Suppliers.xlsx

 

ct-Rich Homestead.accdb

 

sb-Valley Hospital Nurse Schedule.accdb

 

TechCache Rel.accdb

 

Utility Bill.pdf

 

Lesson 2

 

as-First Perk Queries.accdb

 

ca-Scents To You Inc.accdb

 

ct-TC Queries.accdb

 

sb-Valley Hospital Nurse Queries.accdb

 

TechCache Queries.accdb

 

Lesson 3

 

as-Lagniappe Cruises Forms.accdb

Art    

as-Lagniappe Cruises Logo.gif

 

ca-Big Screen Movie Rentals.accdb

Art

ca-Movie.GIF

 

ct-First Perk Forms.accdb

Art

ct-First Perk.gif

 

ct-The Flower Pot Forms.accdb

Art

ct-The Flower Pot.gif

Art

sb-Staff Logo.bmp

 

sb-Valley Hospital Forms.accdb

Art

sb-Valley Hospital Logo.jpg

Art

TC Logo.jpg

 

Lesson 4

 

TechCache Reports.accdb

 

sb-Lagniappe Cruises Reports.accdb

Calculated queries

BUS108

 

chap3_ho1-3_realestate.accdb

 
 

 
 

 

Private Sub Combo20_AfterUpdate()With Me.RecordsetClone        .FindFirst “[CustNumber] = ” & Str(Nz(Screen.ActiveControl, 0))        If .NoMatch Then            MsgBox “Sorry, no such record!”        Else            Me.Bookmark = .Bookmark        End If    End With    Me.LastName.SetFocusEnd Sub
Private Sub Combo20_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Combo20_GotFocus()Me.Combo20.DropdownEnd Sub
Private Sub Form_Open(Cancel As Integer)    Me.Combo20.SetFocus    Me.Combo20.DropdownEnd Sub