alhajri

السلام عليكم حل آخر : اذا كنت تريد تخزين الصورة داخل القاعدة ودون خاصية الزر الايسر للفاره انشأ حقل OLE في النموذج وسمه الصورة انسخ هذا الكود وضعه في وحده نمطيه واحفظه باي اسم . Option Compare Database Option Explicit Public Const adhcAccErrSuccess = 0 Public Const adhcAccErrUnknown = -1 Const adhcSP_MAXPATH = 260 Const adhcSP_MAXDRIVE = 3 Const adhcSP_MAXDIR = 256 Const adhcSP_MAXFNAME = 256 Const adhcSP_MAXEXT = 256 Public Const adhcFileExistsYes = 1 Public Const adhcFileExistsNo = 0 Declare Function adh_accFileExists Lib "msaccess.exe" Alias "#57" _ (ByVal strSrc As String) As Integer Declare Function adh_accFullPath Lib "msaccess.exe" Alias "#58" _ (ByVal strAbsPath As String, ByVal strFullPath As String, _ ByVal cchFullPathMax As Integer) As Integer Declare Sub adh_accSplitPath Lib "msaccess.exe" Alias "#59" _ (ByVal strPath As String, ByVal strDrive As String, _ ByVal strDir As String, ByVal strFName As String, ByVal strExt As String) Public Const adhcAccErrGFNCantOpenDialog = -301 Public Const adhcAccErrGFNUserCancelledDialog = -302 Public Const adhcGfniConfirmReplace = &H1 Public Const adhcGfniNoChangeDir = &H2 Public Const adhcGfniAllowReadOnly = &H4 Public Const adhcGfniAllowMultiSelect = &H8 Public Const adhcGfniDirectoryOnly = &H20 Public Const adhcGfniInitializeView = &H40 Public Const adhcGfniViewDetails = 0 Public Const adhcGfniViewPreview = 1 Public Const adhcGfniViewProperties = 2 Public Const adhcGfniViewList = 3 Type adh_accOfficeGetFileNameInfo hwndOwner As Long strAppName As String * 255 strDlgTitle As String * 255 strOpenTitle As String * 255 strFile As String * 4096 strInitialDir As String * 255 strFilter As String * 255 lngFilterIndex As Long lngView As Long lngFlags As Long End Type Type tagOPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long strFilter As String strCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long strFile As String nMaxFile As Long strFileTitle As String nMaxFileTitle As Long strInitialDir As String strTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer strDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Declare Function adh_accOfficeGetFileName Lib "msaccess.exe" _ Alias "#56" (gfni As adh_accOfficeGetFileNameInfo, ByVal fOpen As Integer) As Long Declare Function adh_accChooseColor Lib "msaccess.exe" _ Alias "#53" (ByVal hwnd As Long, RGB As Long) As Long Declare Function adh_apiGetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function adh_apiGetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long Global Const adhOFN_READONLY = &H1 Global Const adhOFN_OVERWRITEPROMPT = &H2 Global Const adhOFN_HIDEREADONLY = &H4 Global Const adhOFN_NOCHANGEDIR = &H8 Global Const adhOFN_SHOWHELP = &H10 Global Const adhOFN_NOVALIDATE = &H100 Global Const adhOFN_ALLOWMULTISELECT = &H200 Global Const adhOFN_EXTENSIONDIFFERENT = &H400 Global Const adhOFN_PATHMUSTEXIST = &H800 Global Const adhOFN_FILEMUSTEXIST = &H1000 Global Const adhOFN_CREATEPROMPT = &H2000 Global Const adhOFN_SHAREAWARE = &H4000 Global Const adhOFN_NOREADONLYRETURN = &H8000 Global Const adhOFN_NOTESTFILECREATE = &H10000 Global Const adhOFN_NONETWORKBUTTON = &H20000 Global Const adhOFN_NOLONGNAMES = &H40000 Global Const adhOFN_EXPLORER = &H80000 Global Const adhOFN_NODEREFERENCELINKS = &H100000 Global Const adhOFN_LONGNAMES = &H200000 Function adhCommonFileOpenSave( _ Optional ByRef flags As Variant, _ Optional ByVal InitialDir As Variant, _ Optional ByVal Filter As Variant, _ Optional ByVal FilterIndex As Variant, _ Optional ByVal DefaultExt As Variant, _ Optional ByVal FileName As Variant, _ Optional ByVal DialogTitle As Variant, _ Optional ByVal OpenFile As Variant) As Variant Dim OFN As tagOPENFILENAME Dim strFileName As String Dim strFileTitle As String Dim fResult As Boolean ' Give the dialog a caption title. If IsMissing(InitialDir) Then InitialDir = "" If IsMissing(Filter) Then Filter = "" If IsMissing(FilterIndex) Then FilterIndex = 1 If IsMissing(flags) Then flags = 0& If IsMissing(DefaultExt) Then DefaultExt = "" If IsMissing(FileName) Then FileName = "" If IsMissing(DialogTitle) Then DialogTitle = "" If IsMissing(OpenFile) Then OpenFile = True strFileName = Left(FileName & String(256, 0), 256) strFileTitle = String(256, 0) With OFN .lStructSize = Len(OFN) .hwndOwner = Application.hWndAccessApp .strFilter = Filter .nFilterIndex = FilterIndex .strFile = strFileName .nMaxFile = Len(strFileName) .strFileTitle = strFileTitle .nMaxFileTitle = Len(strFileTitle) .strTitle = DialogTitle .flags = flags .strDefExt = DefaultExt .strInitialDir = CurDir .hInstance = 0 .strCustomFilter = "" .nMaxCustFilter = 0 .lpfnHook = 0 End With If OpenFile Then fResult = adh_apiGetOpenFileName(OFN) Else fResult = adh_apiGetSaveFileName(OFN) End If If fResult Then If Not IsMissing(flags) Then flags = OFN.flags adhCommonFileOpenSave = adhTrimNull(OFN.strFile) Else adhCommonFileOpenSave = Null End If End Function Function adhAddFilterItem(strFilter As String, _ strDescription As String, Optional varItem As Variant) As String If IsMissing(varItem) Then varItem = "*.*" adhAddFilterItem = strFilter & _ strDescription & vbNullChar & _ varItem & vbNullChar End Function Function adhTrimNull(ByVal strItem As String) As String Dim intPos As Integer intPos = InStr(strItem, vbNullChar) If intPos > 0 Then adhTrimNull = Left(strItem, intPos - 1) Else adhTrimNull = strItem End If End Function Function adhOfficeGetFileName(gfni As adh_accOfficeGetFileNameInfo, _ ByVal fOpen As Integer) As Long Dim lng As Long With gfni .strAppName = RTrim$(.strAppName) & vbNullChar .strDlgTitle = RTrim$(.strDlgTitle) & vbNullChar .strOpenTitle = RTrim$(.strOpenTitle) & vbNullChar .strFile = RTrim$(.strFile) & vbNullChar .strInitialDir = RTrim$(.strInitialDir) & vbNullChar .strFilter = RTrim$(.strFilter) & vbNullChar SysCmd acSysCmdClearHelpTopic lng = adh_accOfficeGetFileName(gfni, fOpen) .strAppName = RTrim$(adhTrimNull(.strAppName)) .strDlgTitle = RTrim$(adhTrimNull(.strDlgTitle)) .strOpenTitle = RTrim$(adhTrimNull(.strOpenTitle)) .strFile = RTrim$(adhTrimNull(.strFile)) .strInitialDir = RTrim$(adhTrimNull(.strInitialDir)) .strFilter = RTrim$(adhTrimNull(.strFilter)) End With adhOfficeGetFileName = lng End Function ثم انشأ زر اخر على النموذج وسمه بأي اسم . وضع هذا الكود عند الضغط على الزر Dim lngFlags As Long Dim gfni As adh_accOfficeGetFileNameInfo lngFlags = lngFlags Or adhcGfniInitializeView With gfni .lngView = 1 .lngFlags = lngFlags .strFilter = "صور jpg(*.jpg)|صور bmp(*.bmp)|صور gif(*.gif)|جميع الملفات(*.*)" .lngFilterIndex = 3 .strFile = "" .strDlgTitle = "تحديد صورة " .strOpenTitle = "فتح" .strInitialDir = "" End With If adhOfficeGetFileName(gfni, True) = adhcAccErrSuccess Then الصورة.SourceDoc = Trim(gfni.strFile) الصورة.Action = acOLECreateLink End If واذا اردت مسح الصورة انشأ زر اخر وضع هذا الكود فيه عند النقر [الصورة] = Null ويمكن من خصائص النموذج في التوبيب غير ذلك ستجد بند باسم قائمة مختصره غيره من نعم الى لا وبذلك تبطل مفعول استخدام زر الفأرة الايمن هذا الكود من مثال للاخ ابو هاجر هذا والله اعلم

شرح وافي جزاك الله خير وبارك الله فيك

على الرحب والسعه يا امير عاطف والله يسمع منك ان شاء الله :lol:

السلام عليكم هذه اداة اضافية وجدتها من شخص اسمه Hosain21 في بوابة العرب تقوم باستيراد النماذج والتقارير من قاعدة بيانات بتنسيق MDE الى قاعدة بيانات بتنسيق MDB هذا رابط التحميل الاول http://www.freewebs.com/psdk/mdex.zip والثاني هنا http://www30.brinkster.com/alhajri/mdex.rar امل ان تجدوا طريقه لردعها والا لن تكون هناك حماية كافية لل MDE :cry:

السلام عليكم اظن بانك تقصد حقل نص وليس رسائل الاكسس اذهب الى النموذج وافتحه في عرض التصميم ثم انقر على خصائص الحقل المراد واختر من الخصائص التبويب (غير ذلك ) ستجد هناك بند باسم (سلوك مفتاح الادخال ) غيره من (افتراضي) الى (سطر جديد في حقل) هذا اللي فهمته من سؤالك والله اعلم

السلام عليكم في حدث عند الخروج للحقل المراد ضع هذا الكود وغير اسم الحقل المكتوب بالعربي الى اسم الحقل الذي تريده If IsNull(Me![أكتب هنا اسم الحقل]) Then MsgBox "لايمكن ترك هذا الحقل بدون بيانات ." Cancel = -1 End If

الرابط يعمل وجربته الان وشغال لكن ممكن ارسله لك من عيوني اكتب بريدك وانا حاضر

كتب الاخ خضر ترزي شرح عن بعنوان ( كيف توزع برامجك المصنوعة ب Access إلى أجهزة لا يوجد بها Microsoft Access، بالخطوات ) بحثت عن رابطه ولم اجده ويوجد نسخه من تلك الصفحه لدي حاولت انزالة في موقع http://www.brinkster.com لكي يتم تحميلها لمن اراد لكن دون جدوى حجمها كبير فنقلت الصور الى موقع اخر وهاهو الشرح كاملا بالصوره للاخ خضر ترزي : ربما هو احد أكثر الأسئلة شيوعا في المنتديات العربية، اليكم بالصور ابسط الطرق لذلك، قاعدة بيانات بسيطة مبنية بواسطة Access XP سوف توزع على عدة أجهزة، باستخدام برنامج Microsoft Office XP Developer. الخطوة الأولى هي تشغيل أل Packaging Wizard كما تبين الصورة التالية: http://alfahad99.jeeran.com/ac1.png سوف تظهر شاشة شرح عمل البرنامج و الخطوات التي سوف تمر بها، كما توضح الصورة التالية http://alfahad99.jeeran.com/ac2.png الشاشة التالية سوف تختار بواسطتها قاعدة البيانات التي ترغب ببناء ملف التثبيت الخاص بها: http://alfahad99.jeeran.com/ac3.png من الشاشة التالية يمكنك تحديد اسم البرنامج و الشركة المصنعة و رقم النسخة و هي أمور سوف تظهر في شاشة التثبيت: http://alfahad99.jeeran.com/ac4.png من الشاشة التالية سوف تحدد إذا أردت وضع ملفات أخرى مثل الأيقونة مثلا، ملفات إضافية ربما: http://alfahad99.jeeran.com/ac5.png الشاشة التالية تحدد المكان الذي ترغب بتثبيت برنامجك الجديد في القرص الصلب: http://alfahad99.jeeran.com/ac6.png الشاشة التالية تحدد إذا كنت ترغب بإضافة Access Runtime و أمور أخرى سوف تمكن من ليس لديهم Access من تشغيل برنامجك: http://alfahad99.jeeran.com/ac7.png الشاشة التالية تحدد إذا أردت إضافة النسخة المجانية من SQL Server إلى برنامج التثبيت الخاص بك، فقد يكون برنامجك صنع ل SQL Server و هو بحاجة إليه: http://alfahad99.jeeran.com/ac8.png الشاشة التالية تحدد مكان وضع البرنامج في القائمة ابدأ و الاسم الذي ترغب به هناك: http://alfahad99.jeeran.com/ac9.png الشاشة التالية تحدد إذا رغبت بتشغيل برنامج ما في نهاية التثبيت: http://alfahad99.jeeran.com/ac10.png الشاشة التالية تخبرك بأنه يمكنك بدء بناء برنامج التثبيت أو حفظ التعديلات و الرجوع إليها لاحقا: http://alfahad99.jeeran.com/ac11.png الشاشة التالية تطلب منك مكان حفظ ملفات التثبيت الجديدة و التي لاحقا سوف تنسخها على قرص ليزر و توزعها ربما: http://alfahad99.jeeran.com/ac12.png الشاشة التالية تظهر بدء عملية بناء برنامج التثبيت: http://alfahad99.jeeran.com/ac13.png الشاشة التالية تطلب منك وضع القرص الليزر الخاص ب Office العادي و هي سوف تقوم باستيراد الملفات المهمة من Access و سوف تبني لك Access RunTime: http://alfahad99.jeeran.com/ac14.png الشاشة التالية تخبرك بان العملية تمت بنجاح: http://alfahad99.jeeran.com/ac15.png الشاشة التالية تظهر الملفات الجديدة التي يمكنك ان توزعها لاحقا: http://alfahad99.jeeran.com/ac16.png الشاشة التالية تظهر برنامجك في القائمة الخاصة بالزر ابدء: http://alfahad99.jeeran.com/ac17.png الشاشة التالية تظهر برنامجك في قائمة الغاء التثبيت عندما يرغب الشخص بالغائه من الجهاز http://alfahad99.jeeran.com/ac18.png اعتقد بان الأمر يكن ان يكون ابسط من ذلك بالتوفيق في توزيع برامجكم. انتهى شرح خضر ترزي هنا.............. امل ان يستفاد منها

السلام عليكم هذا مثال الاخ micro لمن يريده على هذا الرابط http://www30.brinkster.com/alhajri/micro.rar

الله يعيطكم العافية ما قصرتوا ومشكور يا عبدالله على هذه الاداه حيث انها كانت تنقصني ايضا لتشغيل المثال وجزاكم الله خير

الله يجزاكم خير يا امير عاطف وعبد الله فتحي على الشرح والمثال بارك الله فيكم ولكم

تفضل شوف مثالك الحين لقد تم تغيير الوحده النمطيه واستبدلتها بوحده اخرى من عمل احد اعضاء الفريق العربي وتؤدي غرضك في العرض والطباعة http://www30.brinkster.com/alhajri/print_subform.rar

السلام عليكم ضع المثال في موقع مجاني وضع وصله له هنا لكي يتم تحميله لحل المشكله انشاء الله

السلام عليكم افتح النموذج في عرض التصميم واختر خصائص النموذج ومن التبويب (تنسيق ) ستجد بند باسم (نمط الحدود ) مقابله ستجد مربع به عدة خيارات اختر منها (يمكن تغيير حجمه ). ثم افتح النموذج بالعرض الطبيعي بدون حفظ وحرك بالفاره طول وعرض النموذج على ما تريد . بعد ذلك اغلق النموذج سيطالبك بالحفظ اختر موافق بعد ذلك ارجع وافتح النموذج في عرض التصميم مره اخرى ونفس الخطوات السابقه ولكن هذه المره اختر من البند السابق (مربع حوار ) ثم اذهب الى بند ( تغيير حجم تلقائي ) اختر (لا ) وبعدين حفظ وخلاص هذا حسب افادتك والله اعلم لاكن لو تنزل المثال هنا يكون افضل لك وسهل لكي يفهم من يريد مساعدتك ماذا تريد بالظبط .

اخي محمد والله اخر كرم الله يجزاك خير وان شاء الله ساجربها تباعا واختار اسهلها . اخي امير عاطف البرنامج رائع وهو على صفحة ويب والطريقة 100/100 الله يبارك فيك ويكثر من امثالك لكم كل الشكر والتقدير