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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.