Информация для пользователей форума

 
Private Sub Form_Current()
'Комментарий Просто выдернул кусок кода отбалды

On Error Resume Next
If IsNull(Me.plan_group_id) Then
    On Error Resume Next
    Me.Parent.p4.Form.ServerFilter = "idplat =" & Me.idplat
    If IsNull(Me.plan_id) Then
     Me.Parent.p3.Form.ServerFilter = "idplan =0"
    Else
     Me.Parent.p3.Form.ServerFilter = "idplan =" & Me.plan_id
    End If
Else
    Me.Parent.p4.Form.ServerFilter = "plan_group_id = " & Me.plan_group_id
    Me.Parent.p3.Form.ServerFilter = "plat_group_id = " & Me.plan_group_id
End If
Me.Parent.p4.Form.RecordSource = Me.Parent.p4.Form.RecordSource
Me.Parent.p3.Form.RecordSource = Me.Parent.p3.Form.RecordSource
End Sub  

\'ключевые слова Lib, Alias, ByVal, Long, Any не выделены\n
    Private Declare Sub CopyMemory _\n                    Lib "kernel32" _\n                    Alias "RtlMoveMemory" (pDst As Any, _\n                                           pSrc As Long, _\n                                           ByVal ByteLen As Long)\n\nPrivate Function Test(v1 As Long) As String\n    Dim p1 As Long \'тут появится лишняя строка,\n
    Dim i As Long \'хоть её и не было\n
    \'между этих строк\n
    \'разрывов нет и после тоже\n
    i = InStr(1, " вот", Chr$(0)) - 1\n    \'странный "такой комментарий\n    p1 = "обычно " & "строковые " & "константы " & "не выделяются"\n    \'конец " странного комментария \n
    Test = "А то в глазах рябит"\nEnd Function