FROM ( INNER JOIN ON . = .) INNER JOIN ( INNER JOIN ON . = .) ON . = .
WHERE (((._)=Date()));
, , . , , , , . ( ) . .11.
: ,
Private Sub _Click()
Dim strWhere As String, varItem As Variant
lstAName ,
ItemsSelected.Count, , 0
- vbExclamation
If lstAName.ItemsSelected.Count = 0 Then
MsgBox " ", vbOKOnly + vbExclamation
Exit Sub
End If
lstAName, ItemsSelected
Column(0, varItem) lstAName
.
0
For Each varItem In lstAName.ItemsSelected
strWhere = strWhere & lstAName.Column(0, varItem) & ","
Next varItem
strWhere = Left$(strWhere, Len(strWhere) - 1)
WhereNstb = "[] IN (" & strWhere & ")"
.
DoCmd.OpenForm FormName:=, WhereCondition:=WhereNstb
End Sub
, 11 ( 3), . 12.
.
- .. . .-., , 2002.
- . Microsoft Access 2000. .-., , 2001.
- . Access 2000. VBA. ., , 2001.
.
1. . .... 3
2. ..... 5
3. ...... 9
4. ....... 9
5. Access. 17
6. ....... 19
7. ....... 22
......... 25
[1] X Y , Z, XZ ZY, ZX.