Ja sam ga snimio kao fajl 2000 u mojem Access-u 2003 SP2. Međutim problem je što nemam ni na jednom disku stari Office. Isčupao sam kod sa modula te jedne forme pa probaj da se snađeš.
Code:
Option Compare Database
Option Explicit
Private Sub cmdRed_Click()
Me.shpRectangle.BackColor = RGB(255, 0, 0)
End Sub
Private Sub cmdWhite_Click()
Me.shpRectangle.BackColor = RGB(255, 255, 255)
End Sub
Private Sub CustomerID_AfterUpdate()
'Update ShipTo controls based on value selected in CustomerID combo box.
With Me
.txtShipName = .cboCustomerID.Column(1)
.txtShipAddress = .txtAddress
.txtShipCity = .txtCity
.txtShipRegion = .txtRegion
.txtShipPostalCode = .txtPostalCode
.txtShipCountry = .txtCountry
End With
End Sub
Private Sub CustomerID_BeforeUpdate(Cancel As Integer)
' Display message if CustomerID combo box is blank.
Dim strMsg As String, strTitle As String
Dim intStyle As Integer
If IsNull(Me.cboCustomerID) Or Me.cboCustomerID = "" Then
strMsg = "You must pick a value from the Bill To list."
strTitle = "Bill To Customer Required"
intStyle = vbOKOnly
MsgBox strMsg, intStyle, strTitle
Cancel = True
End If
End Sub
Dole ti je slika8. Forma u design modu.
Ako ne ide, onda probaj da otvoriš fajl na nekom računaru kod kolege koji ima Office 2003.
Potpis
