DD's Employee Example


Employee Example Gallery


Downloads

Employee Example V5

Employee Example V4

Employee Example V3


DD's Stats

Members
Total Members: 160
Latest: drakopp
New This Month: 10
New This Week: 3
New Today: 1
Stats
Total Posts: 888
Total Topics: 452
Most Online Today: 1
Most Online Ever: 52
(May 02, 2020, 05:24:19 pm)
Users Online
Members: 0
Guests: 1
Total: 1

Recommended Posts

DD Approved Members group Added by DD Admin
05-06-2020, 12:48:35


Posting Additions or alterations rules by DD Admin
27-02-2020, 10:33:01


A Trip Down Memory Lane by DD Admin
24-08-2019, 14:17:16


Todays Birthdays

DD's Top Posters

DD Admin
Posts: 923
borobutch
Posts: 70
Carol
Posts: 12
Ram
Posts: 8
Clarissa
Posts: 8
richardsoj
Posts: 5
ComputerTech
Posts: 5

Author Topic: Employee System Example V4 Errors And Corrections  (Read 432 times)

0 Members and 0 Guests are viewing this topic.

Offline DD Admin

  • Administrator
  • Hero Member
  • *****
  • Posts: 923
  • Karma: +5/-0
  • Gender: Male
  • Db Dreams Owner
  • Location: Margate, UK
  • Referrals: 16
Re: Employee System Example V4 Errors And 64Bit Corrections
« on: December 29, 2019, 09:33:04 am »
In Mod Calendar1

Replace This API Calls For Those below

Code: [Select]
#If VBA7 Then 'use PtrSafe & LongPtr
Declare PtrSafe Sub GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As FormCoords)
Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As Long
Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long
Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long
Declare PtrSafe Function apiSystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, _
                    ByVal uParam As Long, lpvParam As RECT, ByVal fuWinIni As Long) As Long
#Else
'API Declarations
Declare Sub GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As FormCoords)
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long

Declare Function apiSystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As RECT, ByVal fuWinIni As Long) As Long

#End If

Open ModColorPicker And replace This

Code: [Select]
Private Type COLORSTRUC
  lStructSize As Long
  hWnd As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  Flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type

Private Const CC_SOLIDCOLOR = &H80
Private Const CC_OPENALL = &H2
Private Const CC_RGBINIT = &H1

#If VBA7 Then 'use PtrSafe & LongPtr
    Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As COLORSTRUC) As Long
#Else
    Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As COLORSTRUC) As Long
#End If

With This
Code: [Select]
Private Const CC_SOLIDCOLOR = &H80
Private Const CC_OPENALL = &H2
Private Const CC_RGBINIT = &H1

#If VBA7 Then 'use PtrSafe & LongPtr

Private Type COLORSTRUC
  lStructSize As Long
  hWnd As LongPtr
  hInstance As LongPtr
  rgbResult As Long
  lpCustColors As String
  Flags As Long
  lCustData As LongPtr
  lpfnHook As LongPtr
  lpTemplateName As String
End Type

    Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As COLORSTRUC) As Long
   
#Else

Private Type COLORSTRUC
  lStructSize As Long
  hWnd As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  Flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type

    Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As COLORSTRUC) As Long
#End If

« Last Edit: December 29, 2019, 10:17:08 am by Michael »

 

Related Topics

  Subject / Started by Replies Last post
0 Replies
512 Views
Last post February 22, 2019, 07:29:00 pm
by DD Admin
10 Replies
204 Views
Last post September 01, 2019, 11:14:46 pm
by DD Admin
0 Replies
23 Views
Last post October 14, 2019, 09:47:50 am
by DD Admin
2 Replies
33 Views
Last post April 08, 2020, 07:58:55 pm
by DD Admin
0 Replies
11 Views
Last post November 16, 2020, 06:55:45 am
by DD Admin

DD's Social Media

DD's Programs


Development Schedule

DD's Freeware

Apollo

DJ 2020

Chart Tracker Elite

Works Manager

Contact Manager

Simple Home Accounts

Book Library

Picture Library

Project Manager (accde)


Developer Tools

Project Manager (accdb)

Style Manager

Code Library


Open Code Templates

Master Template

Task Management

Charitable Contributions

Bug Tracker Template

Time And Billing Template

Real Estate Template

Household Inventory V1


Open Code Examples

DD's Northwind V1

Employee Example V5

Grid Demo Example V1

Employee Example V4

Small Examples


Recent Topics

Apollo Project Status by DD Admin
January 20, 2021, 05:42:43 pm

Please welcome drakopp to DD by DD Admin
January 20, 2021, 03:06:42 pm

UK Singles/Albums Charts 08 Jan 2021 to 14 Jan 2021 Analysis by borobutch
January 20, 2021, 02:58:50 pm

Apollo Manual: Other Items by DD Admin
January 19, 2021, 09:46:46 am

Please welcome aaronsql2019@ to DD by DD Admin
January 18, 2021, 09:09:47 pm

Apollo Manual: Recordings by DD Admin
January 18, 2021, 01:40:58 pm

Apollo Manual: Preferences by DD Admin
January 18, 2021, 11:36:26 am

Database Dreams is not affiliated with Microsoft