Хотел я сделать небольшую бд, сделал таблицы, накорябал формочку, стал их связывать. Вроде все казалось не так уж и плохо, и даже вон то поле внизу с подстановкой уже существующих данных (по человеку) не так пугало.
Но выбор даты что-то заставил взгрустнуь немношк от отсутствия date picker`а по дефолту (только через доустановку mscomct2.ocx, либо Add-in`ы на всех машинах, где оно будет запускаться).
Идея делать это в экселе изначально порочна?
ps. просто у вас тут так душевно, не хотелось искать новый форум, теперь уже по аксесу )
Всем привет,
Хотел я сделать небольшую бд, сделал таблицы, накорябал формочку, стал их связывать. Вроде все казалось не так уж и плохо, и даже вон то поле внизу с подстановкой уже существующих данных (по человеку) не так пугало.
Но выбор даты что-то заставил взгрустнуь немношк от отсутствия date picker`а по дефолту (только через доустановку mscomct2.ocx, либо Add-in`ы на всех машинах, где оно будет запускаться).
Идея делать это в экселе изначально порочна?
ps. просто у вас тут так душевно, не хотелось искать новый форум, теперь уже по аксесу )
В чем суть вопроса? За вас нужно форму написать или дать ответ в какой среде лучше разработать приложение(имеется в виду быстродействие). Так все зависит от размеров базы и подходов поиска/запросов ИМХО. Что касается даты, уже давно на этом форуме в том числе есть готовые решения календаря
В чем суть вопроса? За вас нужно форму написать или дать ответ в какой среде лучше разработать приложение(имеется в виду быстродействие). Так все зависит от размеров базы и подходов поиска/запросов ИМХО. Что касается даты, уже давно на этом форуме в том числе есть готовые решения календаряKamikadze_N
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
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
Kamikadze_N Да, оказывается я плохо искал. Действительно нашел тут на форуме пару календарей из стандартных элементов управления JP_Сalendar от Alex_ST и от Serge_007.
krosav4ig К сожалению на других компьютерах нет прав администратора и их не получить. Да и хотелось бы избежать лишних телодвижений.
Я скорее надеялся услышать совет в духе "делать такое (как на скрине) в экеселе муторнее, чем в аксесе" или "все нормально, ты на верном пути".
Kamikadze_N Да, оказывается я плохо искал. Действительно нашел тут на форуме пару календарей из стандартных элементов управления JP_Сalendar от Alex_ST и от Serge_007.
krosav4ig К сожалению на других компьютерах нет прав администратора и их не получить. Да и хотелось бы избежать лишних телодвижений.
Я скорее надеялся услышать совет в духе "делать такое (как на скрине) в экеселе муторнее, чем в аксесе" или "все нормально, ты на верном пути".user0