krijg de code niet aangepast

[bowlingman]

Hallo Jan,

Mijn bedoeling was (ik ga proberen van de twee frm's één te maken) en dat hij dan bij vbYes automatisch de eerste txt van de nieuwe leden selecteerd.

Grtjs.
Armand

 

[HSV]

Dit is een vergelijking die altijd True is @JanBG.

[COLOR=#0000ff]If Trim(Blad3.Cells(i, 1)) <> Trim(TextBox1.Text) [/COLOR]And i = totRows Then

Blad3.cells(i,1) = 2
textbox1.text = "2"

 

[bowlingman]

@JanBG

Heb het gevonden.
Gewoon "Userform2.show" vervangen door "txt.setfocus"

Grtjs.
Armand

 

[JanBG]

Dit is een vergelijking die altijd True is @JanBG.

@HSV: Snap niet helemaal wat je bedoelt, code doet volgens mij wat hij moet doen, namelijk de MsgBox openen als de waarde in Textbox1 niet gevonden wordt in kolom 1 van tabblad Ledenlijst en als de waarde wel gevonden wordt, wordt de MsgBox overgeslagen

 

[HSV]

@JanBG,

Dat die vergelijking er wel uit kan.
If 2<>"2" then

 

[JanBG]

@HSV,

Zie niet een twee drie hoe jou code

Blad3.cells(i,1) = 2
textbox1.text = "2"

werkt

 

[HSV]

Dat werkt zeker niet, maar is een voorbeeld hoe het resultaat is van beide.

 

[JanBG]

Precies! En als dat zo is worden de gegevens uit tabblad ledenlijst in het Userform geplaatst; is het niet zo wordt de MsgBox geopend

 

[HSV]

Laat maar, je begrijpt het niet.

 

[JanBG]

Nee, maar als je het uit kunt leggen: graag!

 

[HSV]

Getal 2 niet textbox.text 2
Je vergelijkt een getal met tekst uit de textbox.
Dat is bij elke keer als de code langs komt altijd True.
Het stukje wat er achter staat doet het hem, en niet die vergelijking die jij maakt.
Zo wel:

If cells(i,3)=clng(textbox1) then

 

[JanBG]

Het zal HSV, maar als ik deze code:

If Trim(Blad3.Cells(i, 1)) <> Trim(TextBox1.Text) And i = totRows Then

vervang door jou code, wordt de MsgBox niet geopend als er een iD-nummer wordt ingevoerd dat niet in de ledenlijst voorkomt en dat zou wel moeten

Als je TextBox1.Text wijzigt in TextBox 1.Value, vergelijk je getal met getal en werkt het ook prima

 

[HSV]

Mijn laatste stukje code is een juiste vergelijking.
Die van jou ook, maar is bij elke keer WAAR.
Nogmaals jij vergelijkt een getal met tekst.

 

[snb]

Een duit in het zakje:

Sub M_snb()
  x = 2
  y = "2"
  
  If x <> y Then MsgBox "niet gelijk"
  If x = y Then: Else: MsgBox "niet gelijk"

  If x = Val(y) Then MsgBox "gelijk met Val"
  If x = --y Then MsgBox "gelijk met --"
  If x = CLng(y) Then MsgBox " gelijk met clng"
  If x = CDbl(y) Then MsgBox " gelijk met cdbl"
  If x = Int(y) Then MsgBox " gelijk met Int"
  If x = Abs(y) Then MsgBox " gelijk met Abs"

  If x = 0 + y Then MsgBox " gelijk met 0+"
  If x = 1 * y Then MsgBox " gelijk met 1*"
  If x = y / 1 Then MsgBox " gelijk met /1"
  If x = y ^ 1 Then MsgBox " gelijk met ^1"
  
  If Format(x) = y Then MsgBox " gelijk met format"
  If Mid(x, 1) = Mid(y, 1) Then MsgBox " gelijk met Mid"
  If CStr(x) = y Then MsgBox " gelijk met cstr"

  
End Sub

 

[HSV]

@JanBG,

Ben je er al uit ?

 

[JanBG]

@HSV: ja :thumb: