continuous form event to hide line (2 Viewers)

[cpampas]

In a continous form is it posible to make visible a line, everytime IDMov changes ?
something like this, but I am not clear on what event of the form, where the code would be triggered

If Nz(Me.txtPreviousid, "") = Me.idMov Then
        Me.Line5.Visible = False
    Else
        Me.Line5.Visible = True
    End If
    Me.txtPreviousid = Me.idMov

 

[arnelgp]

you try to put it in the Detail's Paint event.

 

[CJ_London]

Suspect you need to use conditional formatting as your code will apply to all instances of the line

use a text box instead, sized to look like a line

call the text box something like txtCurrent and modify your code to

txtCurrent =idMov

and conditional formatting would be

expression is ….[ IdMov]=[txtcurrent]

set the conditional back colour to whatever you want and the line text box back colour to the same as the detail back color

 

[nector]

On a continuous form its quite trick unless you want to limit the number of lines in the subform then use the code below:

Private Sub Form_Current()
On Error GoTo Err_Handler
LimitRecords Me, 1 'Allow at most 1 record
Exit_Form_Current:
Exit Sub
Err_Handler:
MsgBox Err.Number & Err.Description, vbExclamation, "Error"
Resume Exit_Form_Current
End Sub

 

[cpampas]

ArnelGH , in the details paint event i cannot set the value of the textbox

Cj_London, the approach of mimic a line with a textbox is great, but i still dont know what event i put txtCurrent =idMov

 

[CJ_London]

but i still dont know what event i put txtCurrent =idMov

the idMov gotfocus event

 

[Mike Krailo]

Might want to ask Eugene-LS about his method HERE

 

[cpampas]

the idMov gotfocus event will notwork for me since records are not being populated manualy.
I ended up updating the field txtPrevious, on opening the form, and after that a conditional format of the textbox that looks like a line
Thanks for your help

Private Sub Form_Open(Cancel As Integer)


    Dim rs As DAO.Recordset
    Dim previous As String
    


    Set rs = Me.RecordsetClone
   rs.MoveFirst
 
   Do While Not rs.EOF
        With rs
            If .BOF Then
                 .Edit
                     !txtPrevious = -1
                .Update
            Else
                .Edit
                    !txtPrevious = previous
                .Update
            End If
      previous = rs.Fields("idMov")
     .MoveNext
  End With
  Loop
    
    Set rs = Nothing
End Sub