- . 85


End If

End If

'_ =

'_ =

Msg = "C " & Chr(13) & " - " & & "." & Chr(13) & "C " & Chr(13) & " - " & & "." & Chr(13) & " ." & Chr(13) & " ?" ' .

Style = vbOKCancel + vbInformation ' .

Title = "" ' .

Response = MsgBox(Msg, Style, Title) ' .

If Response = vbOK Then ' "" (Yes).

Forms![]![].Form![] = 0

GoTo labelOK

Else

Exit Sub

End If

labelOK:

Set rst = dbs.OpenRecordset("")

strSQL = "SELECT DISTINCTROW ., ., ., ., ., ., . FROM [] INNER JOIN ON . = . WHERE (((.)=" & sing & Forms![]![].Form![] & sing & "));"

'"SELECT DISTINCTROW ., ., ., ., ., . FROM [] INNER JOIN ON . = . WHERE (((.)=" & Forms![]![].Form![] & "));"

Set rstC = dbs.OpenRecordset(strSQL)

Set rst = dbs.OpenRecordset("")