reneemettrie
Terugkerende gebruiker
- Lid geworden
- 1 aug 2006
- Berichten
- 1.233
Mijn vraag sluit aan op een eerdere : http://www.helpmij.nl/forum/showthread.php/924073-Ini-bestand-voor-Access
Hypotetisch voorbeeld
In een tekstbestand staan users en paswoorden
Alain,A
Bernard, C
Chantal, C
In Access staat een formulier met een keuzelijst ('cbo_UserName)voor de users.
Ik vul die zo op:
Bedankt aan Octafish voor een eerdere tip ivm de split functie!
Line Inputvond ik op het Internet, maar wat betekent juist die "textline" en wat zijn de andere mogelijkheden?
Dan staat er een tekstvak waarin het paswoord moet worden ingevuld en een OK knop om dat paswoord te controleren en indien het correct is een ander tekstvak voor een nieuw paswoord + een knop die dat nieuwe paswoord terugschrijft in het tekstbestand beide te activeren
OK knop heb ik zo geprogrammeerd:
Dit werkt.
Maar nu de vraag: als de gebruiker een nieuw paswoord intypt, hoe moet ik dat dan wegschrijven naar het tekstbestand???
Hypotetisch voorbeeld
In een tekstbestand staan users en paswoorden
Alain,A
Bernard, C
Chantal, C
In Access staat een formulier met een keuzelijst ('cbo_UserName)voor de users.
Ik vul die zo op:
Bedankt aan Octafish voor een eerdere tip ivm de split functie!
Line Inputvond ik op het Internet, maar wat betekent juist die "textline" en wat zijn de andere mogelijkheden?
Code:
Private Sub Form_Open(Cancel As Integer)
myFile = CurrentProject.Path & "\some info.txt"
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
Userdata = textline
arr = Split(Userdata, ",")
'cbo_UserName.AddItem Left(Userdata, InStr(1, Userdata, ",") - 1)
cbo_UserName.AddItem ((UBound(arr)))
Loop
Close #1
End Sub
Dan staat er een tekstvak waarin het paswoord moet worden ingevuld en een OK knop om dat paswoord te controleren en indien het correct is een ander tekstvak voor een nieuw paswoord + een knop die dat nieuwe paswoord terugschrijft in het tekstbestand beide te activeren
OK knop heb ik zo geprogrammeerd:
Code:
Private Sub cmd_OK_Click()
myFile = CurrentProject.Path & "\some info.txt"
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
Userdata = textline
arr = Split(Userdata, ",")
'If Left(Userdata, InStr(1, Userdata, ",") - 1) = cbo_UserName.Value Then
If arr(LBound(arr)) = cbo_UserName.Value Then
pw = Right(Userdata, Len(Userdata) - InStr(1, Userdata, ","))
MsgBox "pw :" & pw
pw = arr((UBound(arr)))
MsgBox "pw :" & pw
Exit Do
End If
Loop
Dit werkt.
Maar nu de vraag: als de gebruiker een nieuw paswoord intypt, hoe moet ik dat dan wegschrijven naar het tekstbestand???