Prikazi cijelu temu 21.05.2013 22:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Korisnicko ime iz koristan kod
Ovu proceduru stavi u neki modul:

PreuzmiIzvorni kôd (Visual Basic):
  1. Function IsOpenedExclusive() As String
  2.     IsOpenedExclusive = False
  3.     Dim rs As ADODB.Recordset
  4.     Set rs = con.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
  5.    
  6.     Dim strUsers As String
  7.     Dim intUsers As Integer
  8.     Do While Not rs.EOF
  9.         strUsers = strUsers & vbCrLf & Left(rs.Fields(1), Len(Trim(rs.Fields(1))) - 1) & "@" & Left(rs.Fields(0), Len(Trim(rs.Fields(0))) - 1)
  10.         intUsers = intUsers + 1
  11.         rs.MoveNext
  12.     Loop
  13.     rs.Close
  14.     Set rs = Nothing
  15.    
  16.     If intUsers > 1 Then
  17.         IsOpenedExclusive = strUsers
  18.         Exit Function
  19.     End If
  20.     IsOpenedExclusive = True
  21. End Function

Sada napravi neku formu i na formu stavi tekst box kontrolu.
Na control source kontrole upisi:
=IsOpenedExclusive()
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.