jjafferr

حيا الله أخونا العود أبوخليل لكم وحشه لما اكون بعيد عن المنتدى جعفر

هذا معناه ان عندك صور مضمنه في النماذج او التقارير ، وعليك جعلها مرتبطه جعفر

اعتذر عن الخطأ ، ما اعرف كيف تحول الواحد الى صفر جعفر

وعليكم السلام أخي علي نعم ، الضغط والاصلاح جعفر

عفوا ، الكود هو (تغيير الواحد الى صفر): Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(0) & "'" DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria وتفضل المرفق جعفر 108.NCustomers.mdb.zip

تفضل النموذج frm_Balance به المطلوب ، وعند تغيير اي مادة في النموذج الفرعي ، فالقيم في النموذج الرئيسي تتغير كما يمكنك ان تغير النموذج الرئيسي الى نموذج يعرض سجل واحد فقط ، اذا شئت جعفر 110.Aziz (2).accdb.zip

السلام عليكم أخي أحمد وأخوي رمهان أخي أحمد ، اليك اسهل طريقة لجمع أكثر من شرط Dim stLinkCriteria As String stLinkCriteria = "[AutoNum]=" & Me![AutoNum] stLinkCriteria = stLinkCriteria & " And [ZCustomerID] ='" & Me.CusName.Column(1) & "'" DoCmd.OpenForm "FrmUpdateBianat", , , stLinkCriteria وهو الجواب لسؤالك جعفر

السلام عليكم وأخيرا اصبح الكمبيوتر امامي ومع الاعتذار لأخي أبوخليل للمداخلة تفضل هذه محاولتي: جعفر 107.zip

السلام عليكم وهذه محاولة مني :-) http://www.officena.net/ib/topic/63113-نسخ-ملف-خارجي-في-مجلد-خارجي/ جعفر

وعليكم السلام أخي كريمو :-) للأسف لا أستطيع :-( 1. انا لازلت في سفر ، و عندي سفر آخر بعده مباشرة ، 2. كنا في نقاشنا في المشاركة ، وانت قررت عدم الرد على سؤالي الأخير ، و قررت عدم مواصلة الموضوع ، وفتح سؤال جديد لنفس موضوع. وهذا من حقك :-) 3. هذا برنامجك ، فانت تعرف مداخله و مخارجه ، أما بالنسبة لنا ، فلمعرفة جزئيات البرنامج ، فهذا يأخذ منا مجهودا للتعمق فيه لفهمه ، ثم لإعطاء الحل :-( جعفر

وعليكم السلام أخوي الشاعر :-) رجاء تشوف مشاركتي في الرابط التالي: http://www.officena.net/ib/topic/60480-طباعة-اصناف-محددة-معينة-بالنموذج-الفرعي-وليس-كل-الاصناف/?do=findComment&comment=391647 انسخ الوحدة النمطية RowCounter ، واتبع الخطوة إللى بعدها في كيفية مناداة الوحدة النمطية من الإستعلام :-) والمشاركة فيها مرفق كذلك :-) جعفر

كذلك في الهاتف المتحرك عند عمل تعديل على الاقتباس ، فيظهر برواز الاقتباس ، ولكن لا تظهر الكلمات التي بداخله. هذا الرابط به مثال: http://www.officena.net/ib/topic/63318-مشكلة-في-كتابة-الأكواد/?do=findComment&comment=411302 جعفر

لا وانت الصادق اخوي ابوخليل :-) الله يسلمك ، اكلتها يوم من الايام في احد برامجي ، في بداية مشواري مع الاكسس :-) لهذا السبب ما احب هذا الحدث ، يدوخ الرأس ;-) جعفر

حياك الله اخوي ابوخليل :-) جعفر

السلام عليكم :-) بالإضافة إلى توضيح أخونا ابوخليل ، فالتقرير لا يحترم تسلسل / فرز الإستعلام (النموذج يعمل بفرز الإستعلام) ، في التقرير لعمل الفرز ، يجب الذهاب الى الأمر/الزر Group and Sort و عمل المطلوب :-) أنظر الصورة في الرابط: http://www.baycongroup.com/access2007/images/07_GroupSort1.gif جعفر

شكرا جزيلا أخي محمد على هذا الإطراء الجميل :-) وعندي ملاحظة على لوحتك لي ، أنه لا دخل لمسقط بالبحرين :-) جعفر

وعليكم السلام :-) و سلامي لأخي ابوخليل :-) السبب هو: - في احد نماذجك ، عندك حدث On Timer ، - وهذا النموذج مفتوح ، وليس في وضع تصميم. الحل هو أن: - أما أن تجعل النموذج هذا في وضع تصميم ، أو أن تغلقه أثناء عملك في الكود :-) جعفر

السلام عليكم ورحمة الله وبركاته الموقع يعمل بشكل جميل على الهاتف المتحرك ، و لكن هناك بعض الملاحظات عند استعماله بالهاتف المتحرك: المواضيع تكون بعرض الهاتف ، ولكن: 1. هناك banner دعايات في اعلى الصفحة و آخر في نهاية الصفحة ، و هما أعرض من الصفحة ، مما يجعل الصفحة نصف فارغة من اليسار ، 2. بالإضافة إلى banner اوفسينا الأول من اليسار ، والذي كذلك خارج عرض الصفحة ، 3. عند الكتابة ، و عند الضغط على الزر Enter ، فينتقل الـ cursor إلى السطر التالي ، ولكن الصفحة لا تظل ثابته ، بل تزحف إلى اليسار أو إلى الأعلى ، مما يتطلب تضبيط الصفحة يدويا لمكان الكتابة مرة أخرى ، 4. عند كتابة جملة ثم تريد أن تضيف حرف إلى احد الكلمات السابقة ، فالحرف الجديد لا يكون مشبوك مع الكلمة. 5. عند كتابة كلمة ، وأردت مسحها باستخدام زر back space ، فالـ cursor لا يمسح من نهاية الكلمة ، و إنما يعدي الحرف الأخير ويمسح ما قبله ، 6. عند اختيار الوجوه ، النافذة الجديدة كذلك أعرض من صفحة المنتدى ، ولكن لا يمكن زحف الصفحة يدويا ، عمل مبارك إن شاء الله ، وعلى بركة الله جعفر

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

تفضل والكود اصبح: Option Compare Database Dim rst As DAO.Recordset Private Sub cmd_Open_desktob_Click() 'On Error Resume Next 'Dim x As FileDialog 'Set x = Application.FileDialog(msoFileDialogFilePicker) 'x.AllowMultiSelect = True 'If x.Show = -1 Then 'For i = 1 To x.SelectedItems.Count 'CurrentDb.Execute "insert into [tbl_emp_wared]([emp_id],[file_loc]) values(" & ID & ",'" & x.SelectedItems(i) & "')" 'Next i 'Me.sfrm_emp_wared.Requery 'End If Dim strFileNames As Variant 'check if the Dir exists If Dir(Me.pate, vbDirectory) = "" Then MsgBox "المسار" & vbCrLf & Me.pate & vbCrLf & _ "غير موجود في الكمبيوتر" & vbCrLf & _ "Sorry, this folder does not exist" Exit Sub End If 'call the open dialog API ' set the Filter for the Multi File Dialog, so it only shows these files 'strFilter = "Image Files " & _ "(*.JPG,*.JPEG,*.JPE,*.GIF,*.BMP,*.DIB,*.TIF,*.TIFF,*.PNG,*.PCX,*.PCD,*.ICO,*.WMF,*.EMF,*.EPS,*.fpx)" & vbNullChar & _ "*.JPG;*.JPEG;*.JPE;*.GIF;*.BMP;*.DIB;*.TIF;*.TIFF;*.PNG;*.PCX;*.PCD;*.ICO;*.WMF;*.EMF;*.EPS;*.fpx" & vbNullChar & vbNullChar strFilter = "All Files " & _ "(*.*)" & vbNullChar & _ "*.*" & vbNullChar & vbNullChar sFolder = "C:\" ' call the API for the Multi File Dialog strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter) ' user didn't select any file, s/he proceed cancel If UBound(strFileNames) = 0 Then Exit Sub End If SelectedFiles = UBound(strFileNames) ' number of selected files ' take the 1st file name and extract the Folder name from it ' Don't Dim sFolder, it has been declared as Global variable ' so that the last folder visited will be opened again sFolder = strFileNames(1) Do While Right(sFolder, 1) <> "\" sFolder = Left(sFolder, Len(sFolder) - 1) Loop sFolder = Replace(sFolder, "\\", "\") Set rst = Me.sfrm_emp_wared.Form.RecordsetClone ' Add the selected items, and seperate them by a ; so that we use it as Row Source for ' list the files selected in the Listbox lstMultipleFiles For i = 1 To UBound(strFileNames) FileExt = Right(strFileNames(i), 3) File_Path_Name = Replace(strFileNames(i), "\\", "\") File_Name = Replace(File_Path_Name, sFolder, "") ' Copy the original file to Folder in the main Form FileCopy File_Path_Name, Me.pate & "\" & File_Name rst.AddNew rst!name_morfke = File_Name rst!tayp = FileExt rst!File_Check = 2 rst!emp_id = Me.id_m rst.Update Next i End Sub Private Sub cmd_Open_Folder_Click() Dim strFolderName As String Dim strMsg As String If Len(Me.pate & "") <> 0 Then Dim Msg, Style, Response Msg = "مسار الملف موجود ، هل تريد تغيير المسار" & vbCrLf & _ "هل انت متاكد انك تريد الاستمرار في العملية" & vbCrLf & _ "Do you want to continue ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then strMsg = "رجار اختيار المجلد" & vbCrLf & _ "What Folder you want to select?" strFolderName = BrowseFolder(strMsg) If Len(strFolderName & "") <> 0 Then Me.pate = strFolderName Me.name_folder = Mid(Me.pate, InStrRev(Me.pate, "\") + 1) End If End If Else strMsg = "رجار اختيار المجلد" & vbCrLf & _ "What Folder you want to select?" strFolderName = BrowseFolder(strMsg) If Len(strFolderName & "") <> 0 Then Me.pate = strFolderName Me.name_folder = Mid(Me.pate, InStrRev(Me.pate, "\") + 1) End If End If 'Len 'save this Record, to save the ID, so that the subForm can use it DoCmd.RunCommand acCmdSaveRecord 'now bring the files from the folder Call Make_File_Array End Sub Function Make_File_Array() On Error GoTo err_Make_File_Array 'Folder info Dim File_Count As Integer Dim fdr As Variant Dim Files_Array() As Variant iPath_In = Me.pate iCondition = "*.*" 'No Path, exit If Len(iPath_In & "") = 0 Then Exit Function 'get the file count from the Forlder, and 'place the files in an array fdr = Dir(iPath_In & "\" & iCondition) File_Count = 0 Do While fdr <> "" File_Count = File_Count + 1 ReDim Preserve Files_Array(File_Count) Files_Array(File_Count) = fdr fdr = Dir Loop 'got the folder file count=File_Count, and the files=Files_Array(i) 'SubForm Records 'Dim rst As DAO.Recordset Set rst = Me.sfrm_emp_wared.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount '1. Make all Records, File_Check=1 (No File) For j = 1 To RC rst.Edit rst!File_Check = 1 rst.Update rst.MoveNext Next j '2. Compare For i = 1 To UBound(Files_Array) 'File_Count iname_morfke = Files_Array(i) itayp = Mid(Files_Array(i), InStrRev(Files_Array(i), ".") + 1) rst.FindFirst "name_morfke='" & iname_morfke & "'" If rst.NoMatch Then 'No Match rst.AddNew rst!name_morfke = iname_morfke rst!tayp = itayp rst!File_Check = 2 rst!emp_id = Me.id_m rst.Update Else 'Matching 'but is it the same extension If rst!tayp = itayp Then 'Matching rst.Edit rst!File_Check = 0 rst.Update Else 'No Match rst.AddNew rst!name_morfke = iname_morfke rst!tayp = itayp rst!File_Check = 2 rst!emp_id = Me.id_m rst.Update End If End If Next i rst.Requery Exit Function err_Make_File_Array: If Err.Number = 3021 Then 'ignor, SubForm is empty Resume Next ElseIf Err.Number = 9 Then 'ignor, SubForm is empty Exit Function Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function Private Sub Form_Current() 'now bring the files from the folder Call Make_File_Array End Sub جعفر 207.2.m.salama.accdb.zip

الحقل الوحيد الذي موجود في الجدول هو حقل1 ، وهو مضمن في النموذج :)

هلا والله

السلام عليكم للعلم والاستفادة من التجارب طُلب مني التعديل على برنامج مخازن ، و عندما انتهينا من عمل تغييرات وتحديثات كبيرة ، عملنا على شئ اسمه حركة المادة (طبعا لا ينطبق على جميع أنواع المواد): - في مادة الطاولات مثلا ، عند صرف طاولة ، عملت نموذج فرعي يفرز سجلات بعدد الطاولات ، وعند الصرف / استرجاع / اعادة صرف / .... فنعطي المعلومة بمكان وجود هذه المادة / القطعة. بهذه الطريقة ، بإمكان المؤسسة معرفة مكان تواجد جميع المواد ، و معرفة جميع المواد الموجودة في أي قسم. جعفر

جرب هذا الكود Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "D:\prog" Backup_Folder = "D:\back_folder" 'Do a copy from a PC name jj ONLY ' If VBA.Environ("Computername") <> "wael" Then Exit Sub 'Delete the old saved accdb Kill Backup_Folder & "\AA_BE_*.accdb" 'Now lets work on saving the new accdb''Is this PC name = jj' ' BE_Address = BE_or_FE & "\AA_BE.accdb" BK_Address = Backup_Folder & "\AA_BE_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".accdb*" 'Debug.Print "xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34) Call Shell("xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34), vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Or Err.Number = 53 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub انا انتظر جوابك بسرعة لوسمحت ، حتى نحصل على نتيجة قبل ان انام ان شاء الله جعفر عفوا شئ آخر مهم: الكود يشتغل اذا اغلقت النموذج ، ولا يشتغل اذا اغلقت البرنامج. جعفر