Good morning
Thanks for your help. It still does not do the job that I intend… Using the Yes/No field would work, I was just trying to learn different technique which I read from Allan Brown website "Why I stopped using Yes/No fields". However it's interesting to find out why the value all become 0 (showing in the immediate window) even they were entered into the field as -1.
Phucon
--- In MS_Access_Professionals@yahoogroups.com, "borninfulton" <rfalanga@...> wrote:
>
> Hi Phucon,
>
> I had some difficulty reading your code, but that's likely due Yahoogroups left justifying everything. I've made a few changes, and I hope that Yahoogroups doesn't message up my response. Here's my Form_Open() method for you:
>
> Private Sub Form_Open(Cancel As Integer)
> Set rs = CurrentDb.OpenRecordset("StaffInfo", dbOpenSnapshot)
> With rs
> If Not .EOF Then
> .Movefirst
> Do
> Debug.Print Me.IsSupervisor
> .MoveNext
> If Me.IsSupervisor.Value <> 0 Then
> Me!txtIsSupervisor.Value = "Yes"
> Else
> If Me.IsSupervisor = 0 Then
> Me!txtIsSupervisor.Value = "No"
> End If
> End If
> Loop Until .EOF
> End If
> End With
> End Sub
>
>
> --- In MS_Access_Professionals@yahoogroups.com, "saigonf7q5" <saigonf7q5@> wrote:
> >
> > One of the field of my table was set as NUMBER data type. The value of the field is either 0 or -1 to simulate a Yes/No field.
> >
> > When this field was displayed in a form, it shows 0 or -1. I added a textbox next to it and try to display "Yes" or "No" instead of showing 0 and 1 by creating a procedure as shown below. However the value's never become True, it always displays 0 or No. What's wrong with that?
> >
> > Private Sub Form_Open(Cancel As Integer)
> > Set rs = CurrentDb.OpenRecordset("StaffInfo", dbOpenSnapshot)
> > With rs
> > If Not .EOF Then
> > .Movefirst
> > Do
> > Debug.Print Me.IsSupervisor
> > .MoveNext
> > If Me.IsSupervisor.Value = -1 Then
> > Me!txtIsSupervisor.Value = "Yes"
> > Else
> > If Me.IsSupervisor = 0 Then
> > Me!txtIsSupervisor.Value = "No"
> > End If
> > End If
> > Loop Until .EOF
> > End If
> > End With
> > End Sub
> >
> > Phucon
> >
>
Tidak ada komentar:
Posting Komentar