Нужно знать, кто в вашем бизнесе добавил ту или иную запись? Или кто последний раз обновлял? Это довольно распространенное требование, но, к сожалению, не то, для которого Microsoft Access имеет встроенную функциональность. Простого добавления поля «последнее обновление» в вашу таблицу может (во многих случаях) быть достаточно, чтобы удовлетворить most потребности, но как узнать, кто обновил запись, если Access не может вам об этом сказать? Все, что вам нужно, это небольшой код VBA, как показано в этой статье.
Нет необходимости создавать собственную форму входа для ввода имени пользователя.
Если ваша база данных не имеет собственной формы или механизма входа в систему, то единственный способ узнать, кто в настоящее время использует базу данных или вошел в нее, — это использовать один из файлов операционной системы Windows, а именно «mpr.dll». файл. Если вы раньше не использовали внешние dll в своем коде, это может показаться немного пугающим, но, как вы увидите в приведенном ниже коде, на самом деле все довольно просто.
Итак, давайте определим, что мы хотим, чтобы наш код делал…
«Дайте мне имя текущего пользователя, вошедшего в систему»
Во-первых, код:
Объявить функцию GetUser Lib "mpr.dll" Псевдоним "WNetGetUserA" (ByVal Name As String, ByVal UserName As String, Length As Long) As Long Общедоступная функция GetUserName() As String Dim returnStatus As Integer Dim Name, UserName As String 'Выделить пространство для сохранения имени пользователя в UserName = Space(255) ' Вызвать функцию с псевдонимом в файле mpr.dll. returnStatus = GetUser(Name, UserName, 255) If returnStatus = 0 Then 'Удалить имя пользователя из возвращаемой строки UserName = Left(UserName, InStr(UserName, Chr(0)) - 1) Else ' Произошла ошибка. GetUserName = "Ошибка при получении имени пользователя." End End If GetUserName = UserName End Функция
Код, объяснение
Первое, что вы увидите, это то, что мы делаем ссылку на внешнюю функцию, содержащуюся в файле mpr.dll. Мы делаем это, объявляя локальное имя (GetUser) для общедоступной функции, содержащейся в dll (в данном случае, WNetGetUserA). — мы также определяем, какие параметры необходимы для вызова функции — в данном случае параметры «Имя», «Имя пользователя» и «Длина». Единственное, что нас действительно интересует здесь, это «UserName», но остальные также должны быть предоставлены, поскольку именно так функция настроена в dll.
Теперь, когда это сделано, мы создаем нашу собственную функцию, из которой мы будем вызывать эту внешнюю функцию. Код для нашей функции довольно минимален, но давайте пробежимся по ключевым элементам:
- «UserName = Space(255)» — если вы пройдёте код в отладчике, вы увидите, что при вызове функции «GetUser()» переменная «UserName», которую мы ей передаем, фактически перезаписывается. Чтобы это произошло, переменной требуется достаточно памяти, выделенной для хранения данных, поэтому мы просто выделяем 255 пробелов для переменной, так как этого должно быть более чем достаточно для m.ost (если не все) имена пользователей, которые должны содержаться.
- Мы фиксируем возвращаемое значение из вызова функции в переменной «returnStatus». Ноль (0) здесь означает, что вызов был успешным, все остальное означает, что произошла ошибка.
- Наконец, переменная «UserName» нуждается в очистке, поскольку она будет по существу дополнена нулевыми символами, поэтому мы извлекаем символы, которые находятся в переменной, до того, как будет найден Chr (0).
Видите – это было не так уж и плохо! И теперь, по крайней мере, если вам придется иметь дело с повреждение базы данных mdb, вы будете знать, кто последним использовал базу данных, чтобы кого можно было обвинить! (я тут шучу, конечно!)
Об авторе:
Митчелл Понд — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт SQL Server проблема и программные продукты для восстановления Excel. Для получения дополнительной информации посетите www.datanumen.com
“. Вам не нужно изучать много фраз, чтобы поддерживать разговор, но вы можете ошеломить свою бразильянку, узнав некоторые основные моменты. Международные знакомства могут быть сложными, особенно если вы собираетесь завязать партнерские отношения с женщиной, в культуре которой вы ничего не понимаете. Собственно говоря, это пost вам точно хватитtarя встречаюсь с бразильскими женщинами! Несколько женщин работают на двух работах только для того, чтобы заработать достаточно денег на еду и на жизнь. Никогда не отправляйте свои личные данные или наличные деньги лицам на веб-сайтах невест по почте. Для иностранных мужчин, которые мечтают о красивой бразильской возлюбленной, международные веб-сайты знакомств с женщинами - идеальный выбор. Итак, ParPerfeito — отличный способ встретить бразильскую любовь. Он женился на своей бразильской возлюбленной в 2002 году. Он утверждал, что его дама заботлива, умна и красива. Вы также должны подумать о цене подарков для женщины, которая вам нравится. Вы можете использовать альтернативы обмена сообщениями, чтобы стать ближе к бразильским девушкам, а также выбрать ту, которая вам нравится.ost. Это помогает развивать счет, а также вы лучше знакомы друг с другом. Многие одинокие местные женщины выходят на глобальную сцену знакомств и ищут лучшего партнера по всему миру.
Он также сравнил ее с американками и заявил, что она просто идеальна для него. Бразильские невесты часто становятся невестами американских мужчин, а также строят счастливую семейную жизнь. Они уверены в том, что делают, а также в том, чего хотят в жизни (как правило, весело!). Действительно невежливо отговаривать ее от этих занятий. Другие предпочитают более интимные, а также сдержанные, но nostалгические проявления любви. Вы должны задать ей еще больше вопросов о ее жизни. Когда-нибудь ты удовлетворишь этого человека в реальном мире, и было бы очень жаль, если бы всплыла вся твоя ложь. Не можете выбрать лучший способ найти и познакомиться с бразильскими девушками для брака? Женитьба на бразильской женщине означает найти самого лучшего друга. Мы подготовили для вас контрольный список лучших сайтов с их ежемесячными посещениями, где вы можете найти свою будущую женщину из Бразилии. А также вам нужно будет выбрать из них, что может быть чрезвычайно сложным. Какое бразильское решение для знакомств лучше всего подходит для знакомства с любовью? Такой человек, безусловно, будет граничить с любовью и страстью. Потрясающие знакомства с бразильскими женщинами приносят удобство: когда вы посещаете сайт для будущих невест по почте, вы наверняка заметите, что регистрация, а также фильтрация могут быть предоставлены совершенно бесплатно.
В ситуации, когда женщины хотят их использовать, это определенно cost-бесплатно. Однако, если вы решите посетить Бразилию и лично удовлетворить девушек, это может быть решением, о котором вы наверняка пожалеете в случае неудачного знакомства. Независимо от того, выбираете ли вы знакомство с бразильскими девушками онлайн или отправляетесь в любовную экскурсию по Бразилии, вы можете найти что-то полезное в этом списке. Ищете самое лучшее решение для свиданий, чтобы удовлетворить великолепных бразильских невест? Когда вы узнаете об основных идеях вашего любовного путешествия, пришло время познакомиться с лучшими сайтами онлайн-знакомств. Вы можете найти лучшие способы установить связи с бразильскими женщинами и найти отзывы одной из них.ost известные сайты для будущих невест по почте. Мы обязательно покажем вам несколько интересных фактов о знакомствах с бразильскими женщинами, статистику их связей с иммигрантами, а также некоторые функциональные идеи, которые помогут вам завоевать невест из Бразилии. Продолжайте просмотр, чтобы найти множество полезных советов о том, как победить любую бразильскую женщину, а также не испортить случайно каждую мелочь неправильной похвалой или чем-то еще. Имейте в виду, что свидетели должны быть резидентами Бразилии.
Продолжайте читать и наслаждайтесь очаровательными историями! Мы знаем, что они очаровательны, супермужественны и чрезвычайно очаровательны. Бразильские девушки ориентированы на семью, а также постоянно заботятся о своих лучших половинах. Женившись на женщине из Бразилии, вы можете ожидать, что она обязательно позаботится о уюте и постоянстве в вашем доме. Прежде чем зарегистрироваться в системе знакомств, ознакомьтесь с отзывами других клиентов. Стоимость атрибутов на веб-сайтах с оплатой по факту использования. Пользователи платят только за функции (чат сообщений, видеозвонки по телефону и т. д.), которые они используют. Свадебное мероприятие. Состоит из стоимости свадьбы, свадебного наряда, колец, лицензии на брак и функции празднования свадьбы. Стоимость решений для онлайн-знакомств варьируется от сайта к сайту, а также зависит от продолжительности времени, в течение которого вы будете пользоваться сайтом невесты. Дополнительные услуги – Доставка подарков, уравнивание решений, поискost, функция «просмотреть все изображения» и другие услуги, как правило, оплачиваются отдельно. Однако есть обычная цена за месяц использования дейтинговых решений. Тем не менее, в Бразилии популярны пластические операции, но женщины делают их только для того, чтобы улучшить свою естественную привлекательность, а не для того, чтобы соответствовать западным стандартам красоты.
от
Гораздо проще использовать эту команду для получения той же информации:
Окружающая среда («ИМЯ ПОЛЬЗОВАТЕЛЯ»)
Кстати, это дает вам имя для входа в NT, которое может быть идентификатором сотрудника в зависимости от политики вашей компании. Более информативно, если вы можете получить отображаемое имя из Active Directory. Код могу показать, если есть интерес.
Привет, меня интересует код.
Спасибо, что поделились со мной.
Y