CurrentUser() / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / CurrentUser()

25 сообщений из 29, страница 1 из 2

все

CurrentUser()

#32138592

SergeyParfenov

Гость

Кто скажет, в чем проблема?

ИмяПоля.DefaultValue = CurrentUser()

При запуске в поле пишет #Имя?

Поле текстовое.

...

Рейтинг:

0 / 0

11.04.2003, 13:24

| Ответить | Цитировать | Написать

CurrentUser()

#32138621

Suslik

Гость

Может быть, надо так:

ИмяПоля.DefaultValue = "=CurrentUser()"

...

Рейтинг:

0 / 0

11.04.2003, 13:38

| Ответить | Цитировать | Написать

CurrentUser()

#32138631

SergeyParfenov

Гость

Именно так!

...

Рейтинг:

0 / 0

11.04.2003, 13:42

| Ответить | Цитировать | Написать

CurrentUser()

#32138641

SergeyParfenov

Гость

А что делать, если это надо вставить в запрос :

openrecordset("Select... WHERE (...=currentuser())")

так не работает
и так не работает

openrecordset("Select... WHERE (...="=currentuser()")")

...

Рейтинг:

0 / 0

11.04.2003, 13:48

| Ответить | Цитировать | Написать

CurrentUser()

#32138684

SergeyParfenov

Гость

...

Рейтинг:

0 / 0

11.04.2003, 14:08

| Ответить | Цитировать | Написать

CurrentUser()

#32138716

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

Уважаемый SergeyParfenov я вот тут за Вашими вопросами наблюдаю и заметил одну вещь которую Вы судя по всему не уловили, попробую объяснить
на примере openrecordset("Select... WHERE (...="=currentuser()")")
openrecordset() - в скобочках должен получить SQL-вариант запроса
"Select... WHERE (...="=currentuser()")" - как вот это интерпритирует Access я не в состоянии представить.
Дело в том что currentuser() - это функция и поместив её в кавычки Вы говорите AccEss'у что это не функция, а какой то текст.
чтобы правильно сформировать эту строку надо весь статичный текст запроса поместить в кавычки, т.е. в строку у нас получаеться 2 строки 1ая

Код: plaintext

 "Select... WHERE (...="  и  ")"

Между ними нам надо всобачить Значение функции, а не её наименование, т.е. функцию в кавычки ложить не надо, надо её результат в сунуть между предыдущими строками получаем

Код: plaintext

 "Select... WHERE (...=" , currentuser() и  ")"

Теперь надо это всё соеденить в одну строку это делаеться с помощью символа & получим следуещее выражение:

Код: plaintext

 "Select... WHERE (...="  & currentuser() &  ")"

Но это ещё не всё, насколько я понимаю Поле в таблице, где лежит имя юзверя имеет тип данных Text, и если Вы обратили внимание значения таких полей в запросе беруться в кавычки.
Если мы сейчас выполним следующую строку:

Код: plaintext

MsgBox  "Select... WHERE (...="  & currentuser() &  ")"

то увидим на экране

Код: plaintext

Select... WHERE (...=ИмяЮзера)

а такой запрос ессно не выполниться значиться надо добавит кавычки в итоге получаем Вашу строку:

Код: plaintext

 "Select... WHERE (...="  "" & currentuser() & "  "")"

Так что переодически посматривайте, что за строку вы скармливаете на выполнение Access'у

Suslik писал:Может быть, надо так:

ИмяПоля.DefaultValue = "=CurrentUser()"

Здесь частный случай, дело в том что некоторые properties могут воспринимать в качестве значения функции, и выше написанное аналогично тому если бы Вы в ручную прописали в свойстве DefaultValue этого поля
=CurrentUser()

В итоге могу прибавить что не знаю почему у Вас так не красиво всё получалось

...

Рейтинг:

0 / 0

11.04.2003, 14:19

| Ответить | Цитировать | Написать

CurrentUser()

#32138718

Senin Viktor

Участник

Откуда: Подмосковье

Сообщения: 4 871

Рейтинг: 0 / 0

Where Users=CurrentUser() работает прекрасно, просто расчудесно.
Если бы захотел узнать почему не работает у тебя, ты бы нам сообщение об ошибке прислал.

...

Рейтинг:

0 / 0

11.04.2003, 14:20

| Ответить | Цитировать | Написать

CurrentUser()

#32138787

SergeyParfenov

Гость

Отличное объяснение. Но

Пишу:
MsgBox "SELECT aaa.bbb FROM aaa WHERE (aaa.UserName=" & CurrentUser() & ")"

Выводит:

SELECT aaa.bbb FROM aaa WHERE (aaa.UserName=user)

Запихиваю это в Open("SELECT aaa.bbb FROM aaa WHERE (aaa.UserName=" & CurrentUser() & ")")

Выдает ошибку но не о типе, а о не нахождении.

...

Рейтинг:

0 / 0

11.04.2003, 14:54

| Ответить | Цитировать | Написать

CurrentUser()

#32138806

Senin Viktor

Участник

Откуда: Подмосковье

Сообщения: 4 871

Рейтинг: 0 / 0

А если запустить этот запрос из обычного акесного запроса, он отработает?
У меня все отработало. Может у тебя проблемы с ссылками. Если есть не правильные, то не работают и др. функции. Посмотри.

...

Рейтинг:

0 / 0

11.04.2003, 15:05

| Ответить | Цитировать | Написать

CurrentUser()

#32138828

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

Я ж говорил что должно быть

Код: plaintext

openrecordset( "Select... WHERE (...="  "" & currentuser() & "  "")" )

...

Рейтинг:

0 / 0

11.04.2003, 15:16

| Ответить | Цитировать | Написать

CurrentUser()

#32138837

SergeyParfenov

Гость

Когда добавляю """...""" в поле все равно #Имя?

...

Рейтинг:

0 / 0

11.04.2003, 15:21

| Ответить | Цитировать | Написать

CurrentUser()

#32138855

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

а вот такой код что выдаёт:
MsgBox CurrentUser()

...

Рейтинг:

0 / 0

11.04.2003, 15:31

| Ответить | Цитировать | Написать

CurrentUser()

#32138875

SergeyParfenov

Гость

Выдает Usera нормально.

Вот мой код:

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open ("SELECT aaa.bbb FROM aaa WHERE (((aaa.UserName)=CurrentUser()))"), CurrentProject.Connection

If Not (rst.EOF And rst.BOF) Then
[pole].DefaultValue = rst.Fields("bbb").Value
Else
[pole].DefaultValue = vbNullString
End If

rst.Close
Set rst = Nothing

...

Рейтинг:

0 / 0

11.04.2003, 15:37

| Ответить | Цитировать | Написать

CurrentUser()

#32138911

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

Код: plaintext

rst.Open ( "SELECT aaa.bbb FROM aaa WHERE (((aaa.UserName)=CurrentUser()))" ), CurrentProject.Connection

так и написано?
замените выражение в скобках на:

Код: plaintext

 "SELECT aaa.bbb FROM aaa WHERE (((aaa.UserName)="  "" & CurrentUser() & "  ""))"

и почитайте мой эпос ещё раз

я буду плакать......

...

Рейтинг:

0 / 0

11.04.2003, 15:52

| Ответить | Цитировать | Написать

CurrentUser()

#32138926

SergeyParfenov

Гость

Я все заменил и ничего не выходит

Формат таблици:

Key - счетчик
Id - текст
Name - текст
_________________
Key Id Name I
--------------------
1 log Petrov I
_________________
соответственно CurrentUser()=log
___________________________________________________________________
Private Sub Form_Load()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open ("SELECT g.name FROM g WHERE (((g.id)=""" & CurrentUser() & """))"), CurrentProject.Connection

If Not (rst.EOF And rst.BOF) Then
[Поле0].DefaultValue = rst.Fields("name").Value
Else
[Поле0].DefaultValue = vbNullString
End If

rst.Close
Set rst = Nothing
End Sub

...

Рейтинг:

0 / 0

11.04.2003, 16:04

| Ответить | Цитировать | Написать

CurrentUser()

#32138953

Senin Viktor

Участник

Откуда: Подмосковье

Сообщения: 4 871

Рейтинг: 0 / 0

Попробуй так:
rst.Open ("SELECT g.name FROM g WHERE (((g.id)='" & CurrentUser() & "'))"), CurrentProject.Connection

Т.е. должно получиться g.id='Вася'

...

Рейтинг:

0 / 0

11.04.2003, 16:24

| Ответить | Цитировать | Написать

CurrentUser()

#32138961

SergeyParfenov

Гость

Мужики обнаружил интересную вещь.

[Поле0].DefaultValue = rst.Fields("name").Value
Name в таблице текстового типа, но если вместо букв в таблице писать цифры, все работает.

Это что?

...

Рейтинг:

0 / 0

11.04.2003, 16:28

| Ответить | Цитировать | Написать

CurrentUser()

#32138969

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

там можно как номер поля юзать так и имя покрайне мере в DAO так...
Я юзал имя и никаких проблем

...

Рейтинг:

0 / 0

11.04.2003, 16:32

| Ответить | Цитировать | Написать

CurrentUser()

#32138977

Senin Viktor

Участник

Откуда: Подмосковье

Сообщения: 4 871

Рейтинг: 0 / 0

>Name в таблице текстового типа, но если вместо букв в таблице писать цифры, все работает.

>Это что?

Это служебное слово Access. А если цифру подставить равную 999, что будет. Если ошибка - не обнаружено что-то там в семействе, то акес делает неявное преобразование (типа rs.Fields(999) )

Попробуй
rst.Open ("SELECT [g].[name] FROM g WHERE (((g.id)='" & CurrentUser() & "'))"), CurrentProject.Connection

...

Рейтинг:

0 / 0

11.04.2003, 16:34

| Ответить | Цитировать | Написать

CurrentUser()

#32138988

Senin Viktor

Участник

Откуда: Подмосковье

Сообщения: 4 871

Рейтинг: 0 / 0

Че-то я не понял топика. Поэтому и выдал чушь.

Конечно к объекту в семействе (любом) можно обращаться как по имени так и по его номеру в коллекции.

rs.fields(0).Value тождественно rs.fields("ИмяСамогоПервогоСтолбца") или rs.fields![ИмяСамогоПервогоСтолбца].rs.fields(0).Name - покажет имя столбца

Но лучше не пользоваться номерами, вдруг добавишь или удалишь столбец и запрос будет возвращать вместо цены покупной цену продужную (это я к примеру)

...

Рейтинг:

0 / 0

11.04.2003, 16:40

| Ответить | Цитировать | Написать

CurrentUser()

#32138990

V. Motchulsky

Гость

Я бы запросы сохранил на сервере, и там и вставил отбор по
WHERE ID=user_id()

...

Рейтинг:

0 / 0

11.04.2003, 16:41

| Ответить | Цитировать | Написать

CurrentUser()

#32139114

SergeyParfenov

Гость

По разному пробовал, не получается.
Любое число считывает, а как к нему букву добавишь не читает.

Какой выход?

...

Рейтинг:

0 / 0

11.04.2003, 18:04

| Ответить | Цитировать | Написать

CurrentUser()

#32139131

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

Сделай в конструкторе рабочий запрос и покажи
Да кстате у меня была проблемка с фоксовскими таблицами они иначе чем "LIKE UserName*" не как находить не хотели

...

Рейтинг:

0 / 0

11.04.2003, 18:11

| Ответить | Цитировать | Написать

CurrentUser()

#32139140

SergeyParfenov

Гость

SELECT g.Name
FROM g
WHERE (((g.Id)="sp"))
WITH OWNERACCESS OPTION;

Результат Sergey.

...

Рейтинг:

0 / 0

11.04.2003, 18:18

| Ответить | Цитировать | Написать

CurrentUser()

#32139149

Sfagnum

Участник

Откуда: из лесу

Сообщения: 1 502

Рейтинг: 0 / 0

rst.Open ("SELECT g.Name FROM g WHERE (((g.Id)=""" & CurrentUser() & """)) WITH OWNERACCESS OPTION;"), CurrentProject.Connection

а так пробывал?

...

Рейтинг:

0 / 0

11.04.2003, 18:22

| Ответить | Цитировать | Написать

25 сообщений из 29, страница 1 из 2

все

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / CurrentUser()

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32138631&tid=1681833]:	0ms
get settings:	7ms
get forum list:	18ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	10ms
get forum data:	2ms
get page messages:	83ms
get tp. blocked users:	2ms
others:	215ms

total:	373ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы