Prikazi cijelu temu 22.05.2013 21:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Korisnicko ime iz koristan kod
Probaj sa ovom procedurom, pa cemo onda nesto vise znati o tvojoj situaciji.
Na vrh nekog modula stavi ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Global Const JET_SCHEMA_USERROSTER = _
  4.     "{947bb102-5d43-11d1-bdbf-00c04fb92675}"

a evo procedura i mozes je staviti umjesto one gore pa probaj.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ReturnUserRoster()
  2. Dim cnn As New ADODB.Connection
  3. Dim rs As ADODB.Recordset
  4. Dim Korisnici
  5.  
  6. 'cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  7.   "Data Source=C:\Program Files\Microsoft " & _
  8.     "Office\Office11\Samples\Northwind.mdb;"
  9. Set cnn = CurrentProject.Connection
  10. Set rs = cnn.OpenSchema(adSchemaProviderSpecific _
  11.     , , JET_SCHEMA_USERROSTER)
  12. Do While Not rs.EOF
  13. Korisnici = Korisnici & rs.GetString & vbCr
  14. Loop
  15.  
  16. Set rs = Nothing
  17. Set cnn = Nothing
  18. End Function

Javi sta se desava.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.