Prikazi cijelu temu 26.05.2013 11:09
Miki2013 Van mreze
Clan
Registrovan od:03.05.2013
Lokacija:Sarajevo


Predmet:Re: Korisnik blokira drugog na mrezi
Ako moze mala pomoc u ovom dijelu koda
PreuzmiIzvorni kôd (Text):
  1. Private Sub Command6_Click()
  2.  
  3. Dim Db As DAO.Database
  4. Dim rst As DAO.Recordset
  5. Dim strSQL As String
  6. Dim UserID As String
  7. Dim Password As String
  8.  
  9. If IsNull(Text13) Or Text13 = "" Then
  10.     MsgBox "Samo korisnici sa liste imaju ovlaÅ¡tenje za ulazak.", vbOKOnly, "OBAVJEÅ TENJE"
  11.     Me.Text13.SetFocus
  12.     Exit Sub
  13. End If
  14.    
  15. If IsNull(Text15) Or Text15 = "" Then
  16.     MsgBox "Morate unijeti Å¡ifru.", vbOKOnly, "OBAVJEÅ TENJE"
  17.     Me.Text15.SetFocus
  18.     Exit Sub
  19. End If
  20.  
  21. If iBrojiPokusaje > 1 Then
  22.     MsgBox "Unijeli ste pogreÅ¡nu Å¡ifru nekoliko puta. Program se sada zatvara jer vi niste ovlaÅ¡teni za pristup!", vbCritical, "Neta
  23. an unos više puta"
  24.     DoCmd.Quit
  25. End If
  26.  
  27. UserID = Me.Text13.Value 'vrijednost koju unosi korisnik
  28. Password = Me.Text15.Value 'vrijednost koju unosi korisnik
  29. strUser = UserID
  30. strSQL = " SELECT * FROM tblKorisnika " & _
  31.         " WHERE tblKorisnika.Username = '" & UserID & "'" & _
  32.         " AND tblKorisnika.Password = '" & Password & "'"
  33.  
  34. Set Db = CurrentDb()
  35. 'Set rst = db.OpenRecordset(strSQL)
  36.  
  37. 'If rst.RecordCount = 1 Then 'znaci ako postoji trazeni korisnik
  38.  
  39. If Me.Text15.Value = DLookup("Password", "tblKorisnika", "[username]='" & Me.Text13.Value & "'") Then
  40.     Me.Visible = True 'False  'Sakriva formu frmLogin, NE ZATVARA JE!
  41.    
  42.     If Grupa = "Administrator" Then 'Proverava da li je pristupio Admin
  43.         DoCmd.OpenForm "frmOsnovnaAdmin" 'Ako jeste otvara Admin formu
  44.     End If
  45.  
  46.     If Grupa = "Arhivar" Then
  47.        DoCmd.OpenForm "frmOsnovnaArhivar"
  48.     Else
  49.        
  50.     If Grupa = "Operater" Then
  51.        DoCmd.OpenForm "frmOsnovna"
  52.     End If
  53.     'DoCmd.OpenForm "frmOsnovna" 'Otvara formu frmOsnovna.
  54.     End If
  55.      
  56.     Dim db1 As DAO.Database
  57.     Dim rst1 As DAO.Recordset
  58.     Set db1 = CurrentDb()
  59.     Set rst1 = db1.OpenRecordset("tbllogovanja", dbOpenDynaset)
  60.     rst1.AddNew
  61.     rst1!tblKorisnikaID = Me.Text13.Value
  62.     rst1!DatumPristupa = Date
  63.     rst1!VrijemePristupa = Time()
  64.     rst1.Update
  65.     rst1.Close
  66. Me.Text15 = cls
  67.  
  68. Else
  69.     iBrojiPokusaje = iBrojiPokusaje + 1 'dodaj vrijednost 1 za svaki pogresan pokusaj
  70.     MsgBox "Å ifra je netacno uneÅ¡ena!", vbCritical, "PogreÅ¡an unos"
  71.     Me.Visible = True
  72.     Me.Text15.SetFocus
  73.     Exit Sub
  74. End If
  75.     DoCmd.Close "LoginForma"
  76. End Sub

Stavio sam namjerno formu visible na True da vidim hoce li se zatvoriti ali ne zatvara se.
Obrati paznju na liniju koda 75, valjda bi ovo nakon provjere trebalo da zatvori LoginFormu