Prikazi cijelu temu 23.05.2013 09:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Korisnik blokira drugog na mrezi
Ima ovdje mnogo stvari zbog kojih bi se moglo to desavati.
Citat:
Znaci kada Arhivar otvori frmOsnovnaArhivar i sa nje ode na drugu formu sbfrmIzdato u kojoj unosi neke druge stvari, frmOsnovnaArhivar se minimizuje,
Prvo i osnovno pitanje je zasto se ova forma minimizira a ne zatvara.
Nije to dobro ukoliko forma nije data entry=trye
Idemo prvo da malo ovo uvedemo u red.
Procedura koja se nalazi na loginformi na command6 odnosno na Ulaz, prepravi ovaj dio:

If Me.Text15.Value = DLookup("Password", "tblKorisnika", "[username]='" & Me.Text13.Value & "'") Then
Me.Visible = False 'Sakriva formu frmLogin, NE ZATVARA JE!
Dim Frm As Form
DoCmd.OpenForm "frmOsnovna" '
Set Frm = Forms!frmOsnovna
If Grupa = "Operater" Then
Frm.InsideWidth = 11895
Else
Frm.InsideWidth = 15450
End If

Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Set db1 = CurrentDb()
Set rst1 = db1.OpenRecordset("tbllogovanja", dbOpenDynaset)
rst1.AddNew
rst1!tblKorisnikaID = Me.Text13.Value
rst1!DatumPristupa = Date
rst1!VrijemePristupa = Time()
rst1.Update
rst1.Close
Me.Text15 = cls

'DoCmd.Minimize 'minimizuj ovu formu
'Me.Visible = False
'DoCmd.OpenForm "frmOsnovna", acNormal
Me.Text15 = cls

Else
iBrojiPokusaje = iBrojiPokusaje + 1 'dodaj vrijednost 1 za svaki pogresan pokusaj
MsgBox "Šifra je netacno unešena!", vbCritical, "Pogrešan unos"
Me.Visible = True
Me.Text15.SetFocus
Exit Sub
End If
End Sub

Na ovom command tasteru opciju default stavi na yes.
Na frmOsnovna stavi Ovaj kod:
Private Sub Form_GotFocus()
Me.RecordSource = "tblOsnovna"
End Sub
Private Sub Form_LostFocus()
Me.RecordSource = ""
End Sub

Probaj samo ovako pa vidi dali ce kociti pa javi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.