Re: AfterUpdate

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: FPS, Romney (fpswv_at_citlink.net)
Date: 04/30/04 

Date: Fri, 30 Apr 2004 08:16:28 -0400

Figured it out ... it needed to occur with the BeforeUpdate event.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Select Case Left(GetLinkedDBName("Names"), 1)
    Case Is = "P"
        If Me!SavedOnServer.Value = 0 Then
         Me!SavedOnServer.Value = -1
        End If
    Case Is = "C"
        If Me!SavedOnServer.Value = -1 Then
        Me!SavedOnServer.Value = 0
        End If
End Select

End Sub
"FPS, Romney" <fpswv@citlink.net> wrote in message
news:eJufJmfLEHA.3664@TK2MSFTNGP10.phx.gbl...
> I have a form based on a query. The underlying table has a Yes/No field:
> [SavedOnServer], with the default property set to No (0). This field is
on
> the form with visible = No.
>
> What I would like is for the default value of this field to be changed
from
> No to Yes if the record has been changed and the user is on the network
> drive "P". If the user is not on the network, that is they are on drive
> "C", then I would like the field either to remain as No (in the case of a
> new record), or to be changed to No if it was previously marked as Yes. I
> have a function which retrieves the drive-letter of the path -- "P" for
> network and "C" for home use.
>
> I've nested some If-Then statements and although the following code works
as
> planned to update this field, I've noticed that after changing the record
> and then clicking on a Close button, or clicking on the Record Selector
bar
> that nothing happens for the first click. For example, the record-edit
> symbol (the pencil) on the Record Selector bar doesn't change. Clicking a
> second time, however, saves the record and, in the case of the Close
button,
> saves the record and closes the form.
>
> Could someone please advise me as to how to change this code?
> Thank you,
> Mark
>
> Private Sub Form_AfterUpdate()
> If Left(GetLinkedDBName("Names"), 1) = "P" Then
> 'If you're on the server, and it's a new record (default="No")
> ' then set the flag to "Yes"
> If Me!SavedOnServer = 0 Then
> Me!SavedOnServer = -1
> End If
> ElseIf Left(GetLinkedDBName("Names"), 1) = "C" Then
> 'If your're not on the server, AND the flag is set to "Yes"
> ' then set the flag to "No"
> If Me!SavedOnServer = -1 Then
> Me!SavedOnServer = 0
> End If
> Else
> Exit Sub
> End If
> End Sub
>
>

Quantcast