---

Jeg åbner et vilkårligt antal forms af samme type :
set frm = new frmMedlem

Når jeg så indtaster i et bestemt felt tester jeg på LostFocus om der
er åbnet en form af samme type med samme værdi, for så skal den
nuværende form lukkes og fokus sættes til formen med samme værdi. Det
fik jeg til at virke men så ikke alligevel. Første gang jeg åbner en
form vil den blive lukket da min sammenligning er forkert.
Jeg har brugt følgende kode til at teste med:

For i = 0 To Forms.Count - 1
If TypeOf Forms(i) Is frmMedlem Then
If Forms(i).Txtsel.Text = Me.Txtsel.Text And
      Forms(i).txtMedlem.Text = Me.txtMedlem.Text Then
Forms(i).SetFocus
Unload Me
Exit Sub
End If
End If
Next

Det jeg mangler er at kunne sige:

If Forms(i) <> Me Then

men det må jeg ikke for VB, hvordan kan jeg så afgøre om den form i
collectionen jeg sammenligner med ikke er den jeg står på(Me)?
--
mvh
Betin@

---

Prøv med

If Forms(i) Is Me Then

- Niels G.

"Betin@" <betina@leverpostei.com> wrote in message
news:MPG.170ba0b6beee3052989747@news.worldonline.dk...
> Jeg åbner et vilkårligt antal forms af samme type :
> set frm = new frmMedlem
>
> Når jeg så indtaster i et bestemt felt tester jeg på LostFocus om der
> er åbnet en form af samme type med samme værdi, for så skal den
> nuværende form lukkes og fokus sættes til formen med samme værdi. Det
> fik jeg til at virke men så ikke alligevel. Første gang jeg åbner en
> form vil den blive lukket da min sammenligning er forkert.
> Jeg har brugt følgende kode til at teste med:
>
> For i = 0 To Forms.Count - 1
> If TypeOf Forms(i) Is frmMedlem Then
> If Forms(i).Txtsel.Text = Me.Txtsel.Text And
> Forms(i).txtMedlem.Text = Me.txtMedlem.Text Then
> Forms(i).SetFocus
> Unload Me
> Exit Sub
> End If
> End If
> Next
>
> Det jeg mangler er at kunne sige:
>
> If Forms(i) <> Me Then
>
> men det må jeg ikke for VB, hvordan kan jeg så afgøre om den form i
> collectionen jeg sammenligner med ikke er den jeg står på(Me)?
> --
> mvh
> Betin@

---

Undskyld, jeg mente selvfølgelig

If Not (Forms(i) Is Me) Then

- Niels G.


"Niels" <ng@blommelundenNOspam.dk> wrote in message
news:jSfo8.3172$iY5.77265@news010.worldonline.dk...
> Prøv med
>
> If Forms(i) Is Me Then
>
> - Niels G.
>
> "Betin@" <betina@leverpostei.com> wrote in message
> news:MPG.170ba0b6beee3052989747@news.worldonline.dk...
> > Jeg åbner et vilkårligt antal forms af samme type :
> > set frm = new frmMedlem
> >
> > Når jeg så indtaster i et bestemt felt tester jeg på LostFocus om der
> > er åbnet en form af samme type med samme værdi, for så skal den
> > nuværende form lukkes og fokus sættes til formen med samme værdi. Det
> > fik jeg til at virke men så ikke alligevel. Første gang jeg åbner en
> > form vil den blive lukket da min sammenligning er forkert.
> > Jeg har brugt følgende kode til at teste med:
> >
> > For i = 0 To Forms.Count - 1
> > If TypeOf Forms(i) Is frmMedlem Then
> > If Forms(i).Txtsel.Text = Me.Txtsel.Text And
> > Forms(i).txtMedlem.Text = Me.txtMedlem.Text Then
> > Forms(i).SetFocus
> > Unload Me
> > Exit Sub
> > End If
> > End If
> > Next
> >
> > Det jeg mangler er at kunne sige:
> >
> > If Forms(i) <> Me Then
> >
> > men det må jeg ikke for VB, hvordan kan jeg så afgøre om den form i
> > collectionen jeg sammenligner med ikke er den jeg står på(Me)?
> > --
> > mvh
> > Betin@
>
>

---

ng@blommelundenNOspam.dk skrev...
> Undskyld, jeg mente selvfølgelig
>
> If Not (Forms(i) Is Me) Then
>
Tusind tak, det var lige det der skulle til.

--
mvh
Betin@