inlog formulier werkt niet volledig...

[veerle55]

Beste,

mijn inlogformulier werkt niet helemaal…
bij het paswoord wijzigen werkt het als ik 2 dezelfde paswoord invoer
maar als ik nu, expres, het paswoord laat staan en ik druk op bevestigen dan zegt die msgbox “paswoorden zijn identiek”;
hoe kan da nu ik heb het 2de paswoord niet ingevuld; of als ik het oude paswoord verander en druk dan op bevestigen dan geeft nog eens
msgbox “paswoorden zijn identiek” zoals hier juist boven beschreven;
hij controleert pwd controle niet; is nochtans mee in contact in het VBA – codering

- inlogformulier zelf werkt

dit moet de werking eigenlijk zijn voor het paswoordwijzigformulier

*als er een pwd en klikt op bevestigen dan msgbox “ voer 2de paswoord in voor te confirmeren”; het venster sluit niet en keert niet naar inlogformulier om terug in te loggen met nieuwe paswoord.

*als er een pwd is en je geeft 2e paswoord en deze is niet zelfde dan msgbox “ ingegeven paswoorden zijn niet identiek, voer het juiste paswoord in” ; in het veld pwdcontrole wordt het oude en verkeerde paswoordingave gedeleted en kan men trug proberen; het venster sluit niet en keert niet naar inlogformulier om terug in te loggen met nieuwe paswoord.

*als pwd en pwdcontrole identiek zijn; msgbox” ingegeven paswoorden zijn identiek;
het venster sluit wel en keert wel naar inlogformulier om terug in te loggen met nieuwe paswoord.

in bijlage het inlogformulier
naam en paswoord zijn hetzelfde, in hoofdletters
zo kan men in het formulier overzicht terecht + in het paswoordwijzigformulier

Mvg

Veerle

 

[thomrob]

probeer eens :

If Not pwd = pwdControle Then

ipv

if pwd <> pwdcontrole

 

[FESTER]

Veerle,

hierbij een verbeterde versie van je bestand.

Probeer te doorgronden waarom ik wat heb aangepast.
Mocht je vragen hebben, laat even weten.

FESTER

 

[veerle55]

het is zo dat die geen onderscheid maakt tussen kleine letters en hoofdletters.
als paswoord in hoofdletters is en je voert kleine letters in dan kun je ook nog inloggen.
wat moet ik aanpassen dat die toch onderscheid maakt tussen kleine en hoofdletters?

Mvg

Veerle

 

[FESTER]

het is zo dat die geen onderscheid maakt tussen kleine letters en hoofdletters.

Veerle,

zou voor de verandering aardig zijn om even te laten weten of je oorspronkelijke probleem nu is opgelost.
Zeker gezien de grote hoeveelheid vragen die je hier en in het office Forum tot op heden hebt gelanceerd voor een toepassing die bedrijfsmatig gebruikt wordt.
Wat denk je dat eea jouw bedrijf gekost had als je geen gratis hulp had ontvangen.....

FESTER

 

[veerle55]

vergeef me, wou niet ondankbaar overkomen
was zeker niet mijn bedoeling...
ik zeg meestal danku onder mijn draadjes,
sorry fester, je bent heel hartelijk bedankt voor
het oplossen van mijn inlogformulier probleem
jij biedt veel hulp aan dit forum en dus ook aan
anderen dus ook aan mij

Dank u voor alle hulp die je me hebt gegeven
in dit forum en office forum
klinkt misschien nep maar ik meen met
al mijn hart

Mvg

Veerle

 

[veerle55]

iemand die weet hoe het probleem op te lossen
dat die onderscheid maakt tss kleine en HOOFDletters?

dank

Mvg

Veerle

 

[FESTER]

Zoek in Access Help op hoofdletters.
Doe dat door het modulevenster te openen en vervolgens Help te kiezen in de menubalk.

FESTER

 

[veerle55]

ben met engelse versie van office bezig
heb gezocht in de Help: caps
dan moet je gaan naar tools->options->spelling
heb veranderd maar nog niks gebeurd.
Dank

Mvg

Veerle

 

[FESTER]

ben met engelse versie van office bezig
heb gezocht in de Help: caps
dan moet je gaan naar tools->options->spelling
heb veranderd maar nog niks gebeurd.
Dank

Mvg

Veerle

Tools -> Options -> Spelling heeft niets met je vraag te maken, even terugzetten dus.
Kijk naar de funkties UCase en StrConv.

In Access Help moet je zoeken op capitals, niet op caps.
Access Help openen via de menubalk van je module venster (bestaande module openen of nieuw modulevenster openen).

FESTER

 

[veerle55]

ik heb bij de help over StrConv en UCase gelezen;
er staat veel in hoe je kleine letters naar hoofdletters kunt veranderen
en andersom maar heb niet gelezen hoe die onderscheid maakt tussen
kleine en hoofdletters; weet niet hoe ik verder moet... :-s
dank

Mvg

Veerle

 

[FESTER]

Stel, je hebt een tekststring abc.
Kleine letters dus.
Nu wil je kontroleren of je tekststring in hoofdletters is.

Kun je doen via UCase, op deze manier:

abc = UCase(abc)

UCase(abc) levert ABC.
ABC is niet gelijk aan abc, oftewel, abc is niet in hoofdletters.

FESTER

 

[veerle55]

controleren wil ik niet doen...
zou het willen "afzetten" dat die kleine en hoofdletters
aanvaard als kleine letters.

kunnen we niet werken met If functies?
If txt.Gebruikersnaam not Ucase txt.gebruikersnaam
then msgbox "gebruikersnaam is verkeerd. probeer nog eens"
zelfde functie voor txt.paswoord

weet alleen niet hoe ik dit juist moet opstellen...
weet echt niet hoe het moet, heb veel in de Help gelezen
maar niks passend gevonden.

dank
Mvg

Veerle

 

[FESTER]

Veerle,

je wilt wel kontroleren, dat vraag je namelijk zelluf
Probeer nou eerst eens of je je VBA mbv UCase aan de praat krijgt, volgens je laatste berichtje....

FESTER

 

[veerle55]

ik weet het niet meer Fester
echt niet :-(
weet niet hoe ik eraan beginnen
en wat ik allemaal moet doen
:-((

dank
Mvg

Veerle

 

[veerle55]

Heb dit uitgewerkt, stringcompile, maar werkt ook niet...

If StrComp(Me.txtWachtwoord, DLookup("PWD", "AUTHORIZED", "USERID = '" & Me.txtGebruikersnaam.Value & "'"), 0) <> "0" Then
MsgBox "Combinatie van gebruikersnaam en wachtwoord is onjuist of niet ingevuld, probeer het nog eens."
Exit Sub
End If

Dank

Mvg

Veerle

 

[veerle55]

ik heb het al gevonden.
dank voor iedereen die me heeft geholpen
en alle anderen ook.
wie zoekt die vindt zeggen ze...

Dank

Mvg

Veerle

 

[thomrob]

en wat heb je gevonden dan?

 

[FESTER]

Veerle,

laat even weten hoe (bijvoorbeeld door ff je code te posten) je laatste probleem hebt opgelost.
Dan hebben anderen er wellicht ook wat aan

FESTER

 

[veerle55]

If StrComp(Me.txtWachtwoord, DLookup("PWD", "AUTHORIZED", "USERID = '" & Me.txtGebruikersnaam.Value & "'"), 0) <> "0" Then
MsgBox "Combinatie van gebruikersnaam en wachtwoord is onjuist of niet ingevuld, probeer het nog eens."
Exit Sub
End If

txtwachtwoord = naam veld van wachtwoord
txtgebruikersnaam = naam veld van gebruikersnaam
pwd = naam van de kolom waar paswoorden instaan
userid = naam van kolom waar gebruikersnamen instaan
autorized = naam van tabel waar pwd en userid instaan

schrijf deze if onder on-click van de knop om in te loggen in andere formulier.

Mvg

Veerle