Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Контрол с календариком  [new]
Дима342
Guest
Мне нужно на Access'овской форме разместить поле типа Дата с всплывающим календарем типа как в дельфи DateTimePicker.

Подскажите плиз
16 июн 04, 12:18    [744751]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
funddd
Member

Откуда: Алма-Ата, Казахстан
Сообщений: 1369
поиск по форуму.
16 июн 04, 12:19    [744754]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
Дима342
Guest
Спасибо

Но, я нашел только это
https://www.sql.ru/forum/actualthread.aspx?bid=4&tid=29834&hl=datetimepicker

а там не написано как положить контрол на форму.
У меня в тул баре нет такого контрола. Кнорка "Другие элементы" выводит огромный список, ничего подходящего я не нашел.

Подскажите, пожалуйста!
16 июн 04, 12:32    [744814]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
self
Guest
Public Sub CreateDTPControl()
Dim udtICC As INITCOMMONCONTROLSEXSTRUCT
Dim lngStyle As Long
Dim hInstance As Long
Dim lngRet As Long

Dim udtRECT As RECT

'Position of the Command Button
Dim lngIC As Long
Dim lngYdpi As Long
Dim lngTempRight As Long
Dim lngTempBottom As Long
Dim lngPrevStyle As Long

' Courtesy of Ken Getz
hInstance = apiGetWindowLong(Application.hWndAccessApp, GWL_HINSTANCE)
udtICC.dwsize = Len(udtICC)
udtICC.dwICC = ICC_DATE_CLASSES
Call apiInitCommonControlsEx(udtICC)
lngStyle = WS_BORDER Or WS_CHILD Or WS_VISIBLE 'Or m_DateFormat 'DTS_SHORTDATEFORMAT
hWndDTP = apiCreateWindowEx(0&, _
"SysMonthCal32", _
"DateTimePicker", _
lngStyle, _
30, _
30, _
250, _
250, _
Me.hWnd, _
0&, _
hInstance, _
ByVal 0&)
'If the Selected date is allready set make that selection
Dim udtST As SYSTEMTIME
If Not IsNull(m_SelectedDate) Then
With udtST
.wYear = Year(m_SelectedDate)
.wMonth = Month(m_SelectedDate)
.wDay = Day(m_SelectedDate)
End With
Call apiSendMessage(hWndDTP, MCM_SETCURSEL, ByVal 0&, udtST)
End If
' Modified to allow for different screen resolutions
' and printer output. Needed to Calculate Font size
lngIC = apiCreateIC("DISPLAY", vbNullString, vbNullString, vbNullString)
If lngIC <> 0 Then
lngYdpi = apiGetDeviceCaps(lngIC, LOGPIXELSY)
apiDeleteDC (lngIC)
Else
lngYdpi = 120 'Default average value
End If
Call apiSendMessage(hWndDTP, MCM_GETMINREQRECT, ByVal 0&, udtRECT)
With udtRECT
'Resize for the number of month to show
'I still don't known why but if I don't add that 0.1
'it will not show the correct number of month's
.Right = .Right * (m_MonthColumns + 0.1)
.Bottom = .Bottom * m_MonthRows
Call apiSetWindowPos(hWndDTP, 0&, 0&, 0&, .Right, .Bottom, 0&)
End With
'Get the Windows style so we can calculate a good RECT :-)
lngPrevStyle = apiGetWindowLong(Me.hWnd, GWL_STYLE)
lngRet = apiAdjustWindowRect(udtRECT, lngPrevStyle, False)
' I've placed the CommandButton at the Bottom of the Control
' so we have to add its Height to our Y size var.
With udtRECT
Call apiSetWindowPos(Me.hWnd, 0&, 0&, 0&, .Right, _
.Bottom + Abs(.Top) + (cmdOK.Height / (TWIPSPERINCH / lngYdpi)), 0&)
'We have to add 1 pixels( 12 TWIPS) otherwise Access refuses to set the new height.
Me.Section(acDetail).Height = (.Bottom * (TWIPSPERINCH / lngYdpi)) + Me.cmdOK.Height + 12
Me.cmdOK.Top = .Bottom * (TWIPSPERINCH / lngYdpi)
Me.cmdOK.Width = .Right * (TWIPSPERINCH / lngYdpi)
End With
'Align the COmmandButton to the Far left.
Me.cmdOK.Left = 0
End Sub

http://www.mvps.org/access/forms/frm0052.htm
16 июн 04, 14:53    [745454]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
yufhd
Guest
надо подключить ActiveX mscomct2.ocx
DateTimePicker называется Microsoft Date and Time picker control 6.0 (SP4)
16 июн 04, 17:21    [746131]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
Partner
Member

Откуда:
Сообщений: 81
посмотри здесь
https://www.sql.ru/forum/actualthread.aspx?bid=4&tid=59742&hl=datepikerv3
16 июн 04, 17:59    [746281]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
Partner
Member

Откуда:
Сообщений: 81
посмотри здесь
https://www.sql.ru/forum/actualthread.aspx?bid=4&tid=59742&hl=datepikerv3
16 июн 04, 18:00    [746289]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
Всплывающие календари:

для Web страниц
http://kozin1.narod.ru/newsite/index.html?webinterface.htm

для Access 2000->

http://kozin1.narod.ru/newsite/index.html?datepicker.htm
16 июн 04, 18:00    [746290]     Ответить | Цитировать Сообщить модератору
 Re: Контрол с календариком  [new]
LeXXicon
Guest
extrax.ocx
Валяется где-то на майкрософте
17 июн 04, 11:49    [747454]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить