Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Boxa membrana tweeter infundata

ajutor

Whisky for Mac

Xiaomi 14 Gpay
 Izolare zid exterior de scandura

Dezinstalare drivere W11 23H3

Recomandare masina de spalat fiab...

BSOD din cauza Intel Audio DSP dr...
 De ce sunt oamenii nostalgici

Cum vand casa fara factura Hidroe...

Scor FICO minim

Tonometru compensat CAS?
 polita RCA ONLINE

Termostat frigider - verificare

Mai au PC-urile vreun viitor?

Centrala termica immergas
 

Ajutati-ma sa modific acest script... pls!

- - - - -
  • Please log in to reply
1 reply to this topic

#1
h0tice

h0tice

    Member

  • Grup: Members
  • Posts: 379
  • Înscris: 21.03.2005
Salut, vreau sa va spun de la inceput ca nu le am deloc cu programarea in VB. M-am apucat sa fac un program in Access si vreau ca atunci cand deschide programul, utilizatorul sa fie intrebat de o parola. Bun... am fereastra respectiva, cu un Text Box care se numeste Text0 si un buton care atunci cand este apasat sa verifice daca este parola buna. Daca da deschide formularul main, daca nu sa ii apara un mesaj corespunzator.

Codul butonului respectiv in acest moment este:
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

	Dim stDocName As String
	Dim stLinkCriteria As String

	stDocName = "main"
	DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command2_Click:
	Exit Sub

Err_Command2_Click:
	MsgBox Err.Description
	Resume Exit_Command2_Click
	
End Sub

Asa cum este el acum, deschide formularul respectiv fara a verifica parola. Vreau sa stiu unde se pune respectivul IF si care este sintaxa exacta (dupa cum am spus, nu am nici cea mai mica idee referitoare la programarea in VB). A si sa nu uit... daca parola este buna, in momentul in care deschide formularul main vreaus a imi inchida si formulatul curent, care se numeste start.
Merci mult!

#2
ionut_y

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005

View Posth0tice, on Dec 25 2006, 22:39, said:

Salut, vreau sa va spun de la inceput ca nu le am deloc cu programarea in VB. M-am apucat sa fac un program in Access si vreau ca atunci cand deschide programul, utilizatorul sa fie intrebat de o parola. Bun... am fereastra respectiva, cu un Text Box care se numeste Text0 si un buton care atunci cand este apasat sa verifice daca este parola buna. Daca da deschide formularul main, daca nu sa ii apara un mesaj corespunzator.

Codul butonului respectiv in acest moment este:
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
........................
End Sub

Asa cum este el acum, deschide formularul respectiv fara a verifica parola. Vreau sa stiu unde se pune respectivul IF si care este sintaxa exacta (dupa cum am spus, nu am nici cea mai mica idee referitoare la programarea in VB). A si sa nu uit... daca parola este buna, in momentul in care deschide formularul main vreaus a imi inchida si formulatul curent, care se numeste start.
Merci mult!



Greu la deal cu boii mici.
In primul rand te ajut cu un sfat ..... cauta ceva documentatie despre programare si incepe sa o citesti.

pe click-ul butonului respectiv foloseste urmatorul cod :

    If Text0.text="palola" Then
       <aici pui codul ce va fi rulat dupa introd.corecta a parolei>
    Else
      Msgbox("PAROLA INCORECTA")
     Unload Me
    Endif


Nu uita sa stabilesti pt textBox proprietatea PasswordChar  cu  *

Edited by ionut_y, 26 December 2006 - 21:29.


Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate