DB + Userform (Excel vs Access)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » DB + Userform (Excel vs Access) (Макросы/Sub)

user0

Дата: Вторник, 13.12.2016, 14:44 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 152

Репутация: 8 ±

Замечаний: 0% ±

Excel 2013, 2016

Всем привет,

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

Но выбор даты что-то заставил взгрустнуь немношк от отсутствия date picker`а по дефолту (только через доустановку mscomct2.ocx, либо Add-in`ы на всех машинах, где оно будет запускаться).

Идея делать это в экселе изначально порочна?

ps. просто у вас тут так душевно, не хотелось искать новый форум, теперь уже по аксесу )

Сообщение отредактировал user0 - Вторник, 13.12.2016, 14:52

Ответить

Kamikadze_N

Дата: Вторник, 13.12.2016, 15:00 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 75

Репутация: 6 ±

Замечаний: 0% ±

Excel 2010

В чем суть вопроса? За вас нужно форму написать или дать ответ в какой среде лучше разработать приложение(имеется в виду быстродействие). Так все зависит от размеров базы и подходов поиска/запросов ИМХО. Что касается даты, уже давно на этом форуме в том числе есть готовые решения календаря

Ответить

krosav4ig

Дата: Вторник, 13.12.2016, 16:36 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

если проблема в отсутствии date picker, то можно решить ее так:
скопировать себе модули классов из файла отсюда
Прикрепление и извлечение различных файлов из книги Excel
у себя запустить
[vba]

Код

Sub ПрикрепитьФайл()    ' прикрепляем файл к книге Excel
    If IsError([SheetForAttachedFiles!A1]) Then
        With ThisWorkbook.Sheets
            With .Add(.Item(1))
                .Visible = xlVeryHidden
                .Name = "SheetForAttachedFiles"
            End With
        End With
    End If
    Dim FileManager As New AttachedFiles, res As Boolean
    res = FileManager.AttachNewFile(Environ("windir") & "\system32\mscomct2.ocx")
End Sub

[/vba]
на других компьютерах при открытии файла
[vba]

Код

Sub ИзвлечьФайл()    ' извлекаем и регистрируем
    Dim FileManager As New AttachedFiles, res As Boolean
    On Error Resume Next ' на случай, если среди вложений нет файла mscomct2.ocx
    If Dir$(Environ("windir") & "\system32\mscomct2.ocx") = "" Then _
    res = FileManager.GetAttachment("mscomct2.ocx").SaveAs(Environ("windir") & "\system32\mscomct2.ocx")
    CreateObject("wscript.shell").Run ("regsvr32.exe """ & Environ("windir") & "\system32\mscomct2.ocx" & """ /s")
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

user0

Дата: Вторник, 13.12.2016, 17:15 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 152

Репутация: 8 ±

Замечаний: 0% ±

Excel 2013, 2016

Kamikadze_N
Да, оказывается я плохо искал. Действительно нашел тут на форуме пару календарей из стандартных элементов управления JP_Сalendar от Alex_ST и от Serge_007.

krosav4ig
К сожалению на других компьютерах нет прав администратора и их не получить. Да и хотелось бы избежать лишних телодвижений.

Я скорее надеялся услышать совет в духе "делать такое (как на скрине) в экеселе муторнее, чем в аксесе" или "все нормально, ты на верном пути".