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):Option Compare Database
Option Explicit
Global Const JET_SCHEMA_USERROSTER = _
"{947bb102-5d43-11d1-bdbf-00c04fb92675}"
a evo procedura i mozes je staviti umjesto one gore pa probaj.
PreuzmiIzvorni kôd (Visual Basic):Function ReturnUserRoster()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim Korisnici
'cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft " & _
"Office\Office11\Samples\Northwind.mdb;"
Set cnn = CurrentProject.Connection
Set rs = cnn.OpenSchema(adSchemaProviderSpecific _
, , JET_SCHEMA_USERROSTER)
Do While Not rs.EOF
Korisnici = Korisnici & rs.GetString & vbCr
Loop
Set rs = Nothing
Set cnn = Nothing
End Function
Javi sta se desava.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.