ben olduğu gibi office prg gönderiyorum, şu an onun için uğraşıyorum rapidshareye koyup adresi size yazacam.. biraz inceledim baktım, sanırım sizdeki office eksik.. o yüzden office 2003 olduğu gibi yüklüyorum..
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Access program veya projenizi paketleyin
- Konbuyu başlatan cuneyta
- Başlangıç tarihi
merhaba,
package wizard da dil problemi olan (office prg eksik yüklenmiş demektir) arkadaşlar için office2003 ;
http://rapidshare.com/files/54293163/office2003-00.rar
http://rapidshare.com/files/54298288/office2003-0.rar
http://rapidshare.com/files/54302984/office2003-1.rar
http://rapidshare.com/files/54285466/office2003-2.rar
http://rapidshare.com/files/54289720/office2003-3.rar
office2003 tam sürüm.. Rar dosyaları açıyoruz hepsini tek klasörde birleştiriyoruz. (RAr dosyalara benzeyen Cab dosyalarını Açmıyoruzzz!!)
iyi çalışmalar.
package wizard da dil problemi olan (office prg eksik yüklenmiş demektir) arkadaşlar için office2003 ;
http://rapidshare.com/files/54293163/office2003-00.rar
http://rapidshare.com/files/54298288/office2003-0.rar
http://rapidshare.com/files/54302984/office2003-1.rar
http://rapidshare.com/files/54285466/office2003-2.rar
http://rapidshare.com/files/54289720/office2003-3.rar
office2003 tam sürüm.. Rar dosyaları açıyoruz hepsini tek klasörde birleştiriyoruz. (RAr dosyalara benzeyen Cab dosyalarını Açmıyoruzzz!!)
iyi çalışmalar.
Nassil Olcak
Ya ilişikdeki dosyayi indirdim ama yükleyemedim nasıl yükleyecegim hata veiryor hata da şu windows bu dosyayi yukleyemedi sisiteminiz güvenli modda calisiyor yada windows installer dogru yüklenmemiş bunu nasil halledebiliriz
Ya ilişikdeki dosyayi indirdim ama yükleyemedim nasıl yükleyecegim hata veiryor hata da şu windows bu dosyayi yukleyemedi sisiteminiz güvenli modda calisiyor yada windows installer dogru yüklenmemiş bunu nasil halledebiliriz
program ekle/kaldır dan windows installeri silmişsiniz.. yani windowsun can damarını koparmışsın.. windowsu ya onarman gerek veya yeni baştan yüklemen gerek arkadaşım..
windows cd si tak, bilgisayarı yeniden başlat, sistem önyüklemesi için bir tuşa bas yazar, tuşa bas.. sonra ki adımları takip et , windows onar seçeneğini seçiyorsun..
saygılar
ya bağlantın zayıf veya rapidde sorunlar oluyordur..
Bırde sız takıldıgım bır nokta var onu sorayım yaptıgım projeyı paketlerken proje setup halıne gelınce calıstırdıgımızda(kurduktan sonra tabı
projenın gorev cubuguna degılde sıstem (sag alt koseye wınanmp messenger gıbı gelmesını acces paketlemeden once kodlarlamı yoksa setup kısmında oyle bır ayar varmı bılgınız var ıse bu konuda bılgılendırırsenız sevınırım.
projenın gorev cubuguna degılde sıstem (sag alt koseye wınanmp messenger gıbı gelmesını acces paketlemeden once kodlarlamı yoksa setup kısmında oyle bır ayar varmı bılgınız var ıse bu konuda bılgılendırırsenız sevınırım.onun setup ile bi alakası yok.. kodlarla program içinde yapabilirsin..
saygılar..
Pekı bu kodlar ıle ılgılı bılgınız varmı hazır onlarıda koyayım o sekılde paketlıyeyım projeyı bu arada dosya yuzde 52 oldu nıyıor sonunda
saygılarımla...
saygılarımla...
setupu açtığında program fileste hangi dosya açılacaksa yani programın bulunduğu dosya nerdesye oraya simge koyuyorsun ismi şu olacak icon.ico (program msn gibi aşağıda beklemeye geçtiğinde görünecek simge için)
daha sonra programında bir modül açıyorsun şunu aynen kopyalıyorsun;
Kod:
Option Compare Database
Option Explicit
Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_GETICON = &H7F
Public Const WM_SETICON = &H80
Public Const ICON_SMALL = 0
Public Const ICON_BIG = 1
'// LoadImage() image types
Public Const IMAGE_BITMAP = 0
Public Const IMAGE_ICON = 1
Public Const IMAGE_CURSOR = 2
Public Const IMAGE_ENHMETAFILE = 3
'// LoadImage() flags
Public Const LR_DEFAULTCOLOR = &H0
Public Const LR_MONOCHROME = &H1
Public Const LR_COLOR = &H2
Public Const LR_COPYRETURNORG = &H4
Public Const LR_COPYDELETEORG = &H8
Public Const LR_LOADFROMFILE = &H10
Public Const LR_LOADTRANSPARENT = &H20
Public Const LR_DEFAULTSIZE = &H40
Public Const LR_LOADMAP3DCOLORS = &H1000
Public Const LR_CREATEDIBHeader = &H2000
Public Const LR_COPYFROMRESOURCE = &H4000
Public Const LR_SHARED = &H8000
Public Function SetFormIcon(MyIcon As String, Optional Frm As String, Optional HwndFRM As Long) As Boolean
'Place un icon dans le menu de l'application ou dans un formulaire
Dim hIcon As Long
Dim hWnd As Long
Dim IconPath As String
IconPath = CurrentProject.Path & MyIcon
If Len(Dir(IconPath)) = 0 Then
SetFormIcon = False
Exit Function
Else
If Frm = "" Then
hWnd = Application.hWndAccessApp
ElseIf Frm = "Multi" Then
hWnd = HwndFRM
Else
hWnd = Forms(Frm).hWnd
End If
hIcon = LoadImage(0&, IconPath, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
'// wParam = 0; Setting small icon. wParam = 1; setting large icon
If hIcon <> 0 Then
Call SendMessage(hWnd, WM_SETICON, 0, ByVal hIcon)
SetFormIcon = True
End If
End If
End Function
Kod:
Option Compare Database
Option Explicit
Private Const WM_GETICON = &H7F
Private Const WM_SETICON = &H80
Private Const IMAGE_BITMAP = 0
Private Const IMAGE_ICON = 1
Private Const IMAGE_CURSOR = 2
Private Const LR_LOADFROMFILE = &H10
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 5
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function apiLoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpszName As String, ByVal uType As Long, ByVal cxDesired As Long, ByVal cyDesired As Long, ByVal fuLoad As Long) As Long
Private Declare Function apiSendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function apiSHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function apiDestroyIcon Lib "user32" Alias "DestroyIcon" (ByVal hIcon As Long) As Long
Private Declare Function apiShellNotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Declare Function apiCallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function apiSetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
'//SHGetFileInfo flags
Private Const SHGFI_ICON = &H100
Private Const SHGFI_DISPLAYNAME = &H200
Private Const SHGFI_TYPENAME = &H400
Private Const SHGFI_ATTRIBUTES = &H800
Private Const SHGFI_ICONLOCATION = &H1000
Private Const SHGFI_EXETYPE = &H2000
Private Const SHGFI_SYSICONINDEX = &H4000
Private Const SHGFI_LINKOVERLAY = &H8000
Private Const SHGFI_SELECTED = &H10000
Private Const SHGFI_ATTR_SPECIFIED = &H20000
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const SHGFI_OPENICON = &H2
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const SHGFI_PIDL = &H8
Private Const SHGFI_USEFILEATTRIBUTES = &H10
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const MAX_PATH = 260
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Private psfi As SHFILEINFO
'//Shell_NotifyIcon Flags
Private Const NIM_ADD As Long = &H0
Private Const NIM_MODIFY As Long = &H1
Private Const NIM_DELETE As Long = &H2
'//NOTIFYICONDATA flags
Private Const NIF_TIP As Long = &H4
Private Const NIF_MESSAGE As Long = &H1
Private Const NIF_ICON As Long = &H2
'//Messages
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private nID As NOTIFYICONDATA
Global lpPrevWndProc As Long
Private mblnCustomIcon As Boolean
Public Const GWL_WNDPROC As Long = (-4)
Global DB_hWnd As Long
Public Function ApplicationOff()
Call sHookTrayIcon("fWndProcTray", "program adı", CurrentProject.Path & "\icon.ico")
End Function
Function fWndProcTray(ByVal hWnd As Long, _
ByVal uMessage As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) _
As Long
'receives messages indirectly from the operating system
'but allows us to perform additional functions
'for some of those messages.
'
On Error Resume Next
Select Case lParam
Case WM_LBUTTONUP: 'Left Button Up
Case WM_LBUTTONDBLCLK: 'Left Button Double click
Case WM_LBUTTONDOWN: 'Left Button down
Call apiShowWindow(hWnd, SW_SHOWMAXIMIZED)
Call sUnhookTrayIcon
DoCmd.Maximize
Case WM_RBUTTONDBLCLK: 'Right Double-click
Case WM_RBUTTONDOWN: 'Right Button down
Call apiShowWindow(hWnd, SW_SHOWMAXIMIZED)
Call sUnhookTrayIcon
Case WM_RBUTTONUP: 'Right Button Up
End Select
'return the messages back
fWndProcTray = apiCallWindowProc( _
ByVal lpPrevWndProc, _
ByVal hWnd, _
ByVal uMessage, _
ByVal wParam, _
ByVal lParam)
End Function
Sub sHookTrayIcon(strFunction As String, Optional strTipText As String, Optional strIconPath As String)
'Initialize the tray icon first
If fInitTrayIcon(strTipText, strIconPath) Then
Call apiShowWindow(DB_hWnd, SW_HIDE)
'Set new address for window's message handler
lpPrevWndProc = apiSetWindowLong(DB_hWnd, GWL_WNDPROC, AddressOf fWndProcTray)
End If
End Sub
Sub sUnhookTrayIcon()
'Restore the original message handler
Call apiSetWindowLong(DB_hWnd, GWL_WNDPROC, lpPrevWndProc)
'Call apiShowWindow(DB_hWnd, SW_SHOWMAXIMIZED)
'Remove the icon in the SysTray
Call apiShellNotifyIcon(NIM_DELETE, nID)
'Destroy the icon
Call apiDestroyIcon(psfi.hIcon)
End Sub
Public Function fExtractIcon() As Long
' Extracts the icon associated with an Access form
'
On Error GoTo ErrHandler
Dim hIcon As Long
'Don't need the full file name as Access form shortcuts
'have MAF extension. The SHGFI_USEFILEATTRIBUTES
'lets us pass an "invalid" file name to SHGetFileInfo
hIcon = apiSHGetFileInfo(".MAF", FILE_ATTRIBUTE_NORMAL, _
psfi, LenB(psfi), _
SHGFI_USEFILEATTRIBUTES Or _
SHGFI_SMALLICON Or SHGFI_ICON)
'Make sure there were no errors
If Not hIcon = 0 Then fExtractIcon = psfi.hIcon
ExitHere:
Exit Function
ErrHandler:
fExtractIcon = False
Resume ExitHere
End Function
Private Function fSetIcon(strIconPath As String) As Long
Dim hIcon As Long
'Load the 16x16 icon from file
hIcon = apiLoadImage(0&, strIconPath, IMAGE_ICON, 16&, 16&, LR_LOADFROMFILE)
If hIcon Then
'First set the form's icon
'Call apiSendMessageLong(frm.hwnd, WM_SETICON, 0&, hIcon&)
Call apiSendMessageLong(DB_hWnd, WM_SETICON, 0&, hIcon&)
'This will tell us afterwards if we need to reset the form's icon
mblnCustomIcon = True
'Now return the hIcon
fSetIcon = hIcon
End If
End Function
Private Function fInitTrayIcon(strTipText As String, strIconPath As String) As Boolean
Dim hIcon As Long
'If the user didn't specify the tip text, use a default value
If strTipText = vbNullString Then strTipText = "MSAccess Form"
If (strIconPath = vbNullString) Or (Dir(strIconPath) = vbNullString) Then
'if there's no icon specified, use the form's default icon
hIcon = fExtractIcon()
Else
'load and set the icon
hIcon = fSetIcon(strIconPath)
End If
'If we were successful in previous step, then continue
'to place the icon in the system tray
If hIcon Then
With nID
.cbSize = LenB(nID)
.hWnd = DB_hWnd
.uID = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = hIcon
.szTip = strTipText & vbNullChar
End With
Call apiShellNotifyIcon(NIM_ADD, nID)
fInitTrayIcon = True
End If
End Functionsonra formda hangi düğmeye basıldığında program aşağıya simge olarak geçecekse o düğmenin tıklandığında olayına aynen şunu yapıştırıyorsun: Call ApplicationOff
saygılar
sayın cuneyta sonunda dıl sorunu duzeldı sayenızde offıce yenıden kurdum ve paketleme oldu ama nedense paketlıyınce ıkona tıkladıgımda aynı normal tasarım modundakı projen cıkıyor karsıma yanı kullanıcı arayuzu cıkmıyor bunun sebebı paketleme yaparken yaptıgım ayarlardanmı acba yanı kımsenın duzen ıle oynayamıyacagı sekılde paketleme munkummu acaba sadece ana tablo cıkacak programın ekranı yanı
saygılarımla...
saygılarımla...
selam,
aslında anlamadım ama anladığımı söyleyeyim; peketleme yaptıktan sonra setupu çalışırıp programı kurdun, sonra masa üstüne atılan ikonla programı açtın ve açtığında programın tasarımımı çıktı! Yoksa shiftle birlikte bastığında tasarım moduna geçti de , geçmemesini istiyordun.. öylemi..
Setup yaparken resimlerde gösterdiğim gibi, include runtime access işaretli olmalı .. iki yerde de.. resimlere bakabilirsin..
saygılar..
yanı sunu demek ıstemıstım aslında dıyelımkı bıttı projem ve artık kullanılmaya hazır onu setuplu yapınca dıleyen kullanacak ama onların karsısına sadece kullanma menusu gelıcek yanı normal programların arayuzu gıbı (oynama yapamıyacaklar datayı acamıyacaklar sadece ana ekrandakı menu olcak ve kullanacaklar )bende ıse aynı eskısı gıbı bısı farketmeden tasarım modulu gıbı gelıyor . onun ıcın ne yapmam lazım acaba bır yerlerı eksık mı ısaretlıyorum setup yaperken yoksa
saygılarımla...
saygılarımla...
özel mesajda sana rapidden gönderdiğim prgda sadece form açılıyor...
access te paketleme olayı , setup hazırlama programıdır.. exe v.s yapmak için kullanılmaz, ki access hiç bir zaman exe olmaz..
Ama dersen ki shift ile birlikte açılmasın onun için gerekli kodları gönderebilirim sana..
- Katılım
- 21 Mart 2006
- Mesajlar
- 43
sayın cuneyta,
sonunda developer'ı kullanmayı başardım.
Yardımlarınız için çok teşekkür ediyorum.
projemi paketledim ve çok güzel oldu.
selamlar
sonunda developer'ı kullanmayı başardım.
Yardımlarınız için çok teşekkür ediyorum.
projemi paketledim ve çok güzel oldu.
selamlar
Cuneyt Arkadasim Saygilar
Buradaki iliskileri ilgi ile takip ettim.
Ve Cok Sevindim.. Bilginin paylasimini Acikkalplerle ve fedakarliklar gostererek sunmaniz beni cok duygulandirdi..Comertligin koku cennetteymis verdikce cogalir ve kok salarmis...
Tek kelime ile Taktir
Buradaki iliskileri ilgi ile takip ettim.
Ve Cok Sevindim.. Bilginin paylasimini Acikkalplerle ve fedakarliklar gostererek sunmaniz beni cok duygulandirdi..Comertligin koku cennetteymis verdikce cogalir ve kok salarmis...
Tek kelime ile Taktir
Tekrar Selamlar;
Benim bir sorum olacakti. tabii bu soruyu sormadan once forma komple gozattim ama benim icin bir tarif gerekli.
Yazmis oldugum Adres ve personel takip programini 20 bilgisayarda kullandiracagim. giris yapacak arkadaslarin farkli sifreler ve yetkilerle girmesini istiyorum.
herhangi bir yerde anlatimi tam bulamadim.
Lutfen yardim.!
simdiden cok tessekkurediyorum.
Belki ben gorememisimdir lutfen alinti olarak tekrar verebilirmisiniz.
Saglicakla kalin...
Benim bir sorum olacakti. tabii bu soruyu sormadan once forma komple gozattim ama benim icin bir tarif gerekli.
Yazmis oldugum Adres ve personel takip programini 20 bilgisayarda kullandiracagim. giris yapacak arkadaslarin farkli sifreler ve yetkilerle girmesini istiyorum.
herhangi bir yerde anlatimi tam bulamadim.
Lutfen yardim.!
simdiden cok tessekkurediyorum.
Belki ben gorememisimdir lutfen alinti olarak tekrar verebilirmisiniz.
Saglicakla kalin...