Promena boje teksta ili pozadine u input box-u

U okviru baze koju sam napravio, postoji forma preko koje se unose neki podaci. Medjutim, unos podataka bi trebao da bude ogranicen tako da sam postavio password koji to radi, evo kako:

Private Sub CommAddNewMarket_Click()
Dim PassWord As String
PassWord = InputBox("Enter Password")
If PassWord = "olga.popovic" Then
' Open Form
DoCmd.OpenForm "frmAddNewConnection"
DoCmd.GoToRecord , , acNewRec
Else
MsgBox ("You're not authorized to add new market")
End If

End Sub

ALI kada unosim pass on je vodljiv u InputBox-u.

Da li postoji mogucnost da se pass ispisuje u formatu ****** ili da promenim boji texta u Input Box-u u recimo belu ili da promenim boju pozadine Input Box-a u recimo crnu kako se pass ne bi video prilikom unosa.


Hvala

U osobinu Text boxa, Input Mask, postavi jednu masku ako je nemaš sa zvezdicama i recimo neka se zove Password. Kao što je u primeru.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Nije mi bas najjasnije kako treba da ovo uradim zato sto kada kliknem na dugme CommAddNewMarket u jednoj formi pokrece se kod koji otvara drugu formu za unos podataka. Medjutim VB kod ce otvoriti tu drugu formu tek kada se unese ispravan pass. Znaci trebalo bi da nekako kroz kod da provucem da se pass ispisuje kao *****.
Molim za pomoc i ako treba jos neko dodatno pojasnjenje problema

Nije u pitanju tekst box nego button

Lozinku unosiš u Text box, a ispravnost unesene vrednosti tog Text boxa proveravaš kroz VBA kôd na dugme ili button. Vodi računa kako ti je imenovan Text box kad mu se obraćaš kroz prokramski kôd.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Mislim da ste ovo trazili.Pozdrav.

Potpis

Jednog dana...

@ Sloj.1973 Može i sa proverom Input boxa, a može i sa proverom vrednosti polja (Me.polje.Value). Problem je kad se koristi tuđi VBA kôd koji baš ne razumeš najbolje. U svakom slučaju ima oba rešenja.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Ok. Nisam ni otvorio tvoj primer,tako da ne znam kako je resen. Cim sam procitao za inputbox,odreagovao sam sa ovim primerom,koji je meni davno pomogao,a i access 2010 nemam instaliran na laptopu. Svejedno,mislim da smo mu resili problem.

Potpis

Jednog dana...

Mislim da cu morati da uradim malo drugaciji pristup problemu. Nisam uspeo jer bi trebalo da promenim prikaz unosa lozinke u Input Box-u sto, koliko sam procitao na vecini foruma, je nemoguce. Koliko sam vas shvatio trebalo bi da uradim novu formu sa Passwordom koja bi bila veza izmedju dve forme ( jedna na kojoj je command button i druga koja se otvara kada je pass ispravan). Ako sam shvatio dobro ne gine mi Login forma

Nisam siguran sta ti nije jasno.Okaci primer,pa da vidim sta zapravo zelis. I ako moze u access 2003. Jel si uopste probao sa mojim primerom.Kad kliknes na dugme otvara se input box i sta god da kucas,prikazuju se zvezdice. Ne mora na komndno dugme,moze na after update nekog polja da se prikaze input,to nije problem. Koliko sam shvatio,tebi je bio problem da kada kucas u input boxu da se prikazuju zvezdice. Moj primer to upravo i radi. Sta ti nije jasno?!

Potpis

Jednog dana...

Evo kacim primer.

Kada se otvori main menu klikni na Add new market i na ostale ipod njega pa ces videti sta mi je problem.

Hvala na pomoci

Ne mogu trenutno da ga okacim suvise je veliki file. Pokusacu da ga umanjim

Ustvari hajde ovako:

U formi koja se zove Add new market imam button istog imena kome je dodeljen event on click da radi:

Private Sub CommAddNewMarket_Click()
Dim PassWord As String
PassWord = InputBox("Enter Password")
If PassWord = "olga.popovic" Then
' Open Form
DoCmd.OpenForm "frmAddNewConnection"
DoCmd.GoToRecord , , acNewRec
Else
MsgBox ("You're not authorized to add new market")
End If

End Sub

I ovo isto sam uradio za jos tri button-a u istoj formi.

Ono sto si mi poslao kao primer je OK ali ono sto me buni je to gde da udenem kod koji je u tvom primeru

I gde ja gresim

Hvala

Imas modul InputPass kopiraj ga kod sebe i onda svuda gde ti stoji InputBox zamenis sa InputBoxDK.I to je to.

Potpis

Jednog dana...

Hvala na odgovoru. Samo jos jedna stvar:
koristim access 2016 i kada sam uradio ovo sto si mi poslao VB mi izbacuje poruku da nesto nije u redu

Poruku sam okacio

Hvala

Nisam radio sa 64bitnim accessom,ali sam sada proguglao i vidim da bi trebalo umesto Private Declare Function da stoji Private Declare PtrSafe Function. Znaci u modulu InputPass svuda gde imas Private Declare Function stavi Private Declare PtrSafe Function. Probaj ,stvarno ne znam.
Evo imas ovde nesto o tome.

Potpis

Jednog dana...

Izvini sto sam te cimao ali proguglao sam i ja i pronasao kompletan sreodjen kod za 64-bit. Izmenio sam ga onako kako su i naznacili i finkocionise bez gresaka. Ali u moju bazu sam uvezao ImputPass modul i kako si mi rekao izmenio InputBox sa InputBoxDK i opet ne radi.

Hvala u svakom slucaju na trudu i izvini na cimanju

Ne razumem,kazes da si sredio sve i da kod radi,a opet ne radi?! Sta ne radi. Stavi brakepoint na inputboxDK pa kad se zaustavi izvrsavanje koda,kreni sa F8 pa vidi sta ne valja.

Potpis

Jednog dana...

Probao sam sa tvojim primerom da ga prilagodim za 64-bit i dodao sam Private Declare PtrSafe Function.
Sada mi prijavljuje gresku u liniji


hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

Koju gresku?

Potpis

Jednog dana...