jjafferr

وعليكم السلام هنا كان في نقاش طويل حول هذا الموضوع ، واتضح ان الاكسس/الكود هو جزء من المشكلة ، وليس كل المشكلة: http://www.officena.net/ib/topic/65045-كود-طباعة-باركود-علي-ملسقات-طابعة-زبرا/ جعفر

السلام عليكم المسألة كانت تحدي ، وقبلت التحدي انا غيرت اسماء النموذج الرئيسي والفرعي الى اسماء frm_Search و sfrm_Search. الآن يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها: . والكود: Option Compare Database Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From [المستندات]" Me.n2 = "" If Len(Me.n2 & "") = 0 Then Me.sfrm_Search.Form.RecordSource = mySQL End If End Sub Private Sub n2_Change() 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where" 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Dim x() As String Dim A As String A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 Me.n2.SetFocus If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL End Sub . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_jj.mdb.zip 309.Search_as_you_Type_jj.mdb.zip

أخي محمد ومن قال انه في طريقة واحدة لتحقيق المطلوب!! هناك مجموعة طرق ، والكود دائما موجود ، فلهذا السبب ، وبعيد عن يصير/مايصير ، ارفق مثالك واخبرنا الحقول والجداول ، وخلينا نحاول جعفر

Parent بمعنى والدين وبما اننا ننادي من النموذج الفرعي ، ننادي حقل في النموذج الرئيسي ، فلهذا السبب نخبر الكمبيوتر ان الحقل n1 موجود في النموذج الاب (النموذج الرئيسي) جعفر

هلا اخوي سلمان بنفس الطريقة اللي قال لك اياها اخونا ابو خليل هنا: http://www.officena.net/ib/topic/61220-مشكله-في-اداه-الصور-وتسجيل-مكتبة/?do=findComment&comment=394460 جعفر

في اي نموذج؟

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

وعليكم السلام 1. غير الاعدادات حسب السهم الى نعم 2. ضع الكود في حدث النقر المزدوج للحقل كود الصنف: Private Sub كود_الصنف_DblClick(Cancel As Integer) Me.Parent.n1 = Me.كود_الصنف End Sub جعفر

تفضل هذا الرابط http://www.officena.net/ib/topic/65726-هدية-المدة-بين-تاريخين-،-و-اضافةخصم-سنوات-واشهر-وايام/ جعفر

وعليكم السلام شو يعني فرق التاريخ بشكل عامودي؟ اعطنا مثال او اثنين لوسمحت جعفر

هذه المعلومة غير صحيحة انظر في اعدادات الكومبوبوكس: . اذا كانت قيمة "الالتزام بالقائمة" = لا ، فتستطيع ان تُدخل بيانات جديدة في الكمبوبوكس ، واذا كانت قيمة "الالتزام بالقائمة" = نعم ، فلا تستطيع ان تُدخل بيانات جديدة في الكمبوبوكس ، وانما تستطيع ان تختار فقط (معظم برامجي تقوم على هذا الاختيار). جعفر 0.Combobox_Limit_to_List.bmp

اولا ، لا يوجد مرفق (المنتدى يقبل الملف المضغوط zip او rar) ثانيا ، يعني تريد تبحث عن شئ غير موجود!! جعفر

طيب تأكد ان الكمبيوتر الجديد موجود عليه هذا المجلد ، واذا لقيت المجلد موجود ، جرب تضغط عليه وتدخل فيه ، ثم جرب الكود ، فبعض الاوقات المجلد يكون غير متصل (نعم صار معي هذا سابقا ، والحل الصحيح هو ان لا تنادي الجلد بطريقتك ، وانما تناديه حسب وجوده في الشبكة ، هكذا مثلا \\Server01\ALL_PENDING.xlsx اما سؤالك ثانيا ، فيجب عمل كود يأخذ الملف total_pending.xlsx ، ثم يضيفه الى الملف السابق ، ولا ، لا اعرف هذا الكود ويجب ان ابحث واجرب اولا ، واذا توصلت لنتيجة ، اخبرك عنها جعفر

وعليكم السلام تحليلي للكود يقول بأن الكمبيوتر الذي يشتغل عليه الكود ، يوجد عليه Mapped Harddrive اسمه Y ، والمجلد الاصلي موجود على الشبكة على كمبيوتر آخر. اما الكبيوتر الجديد ، فلا يعرف ماهو المجلد Y جعفر

وعليكم السلام أخي كريمو هذا تصحيح لعمل الكود : Private Sub detaché_AfterUpdate() On Error GoTo Err_detaché_Click If IsNull(txtMonth) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If If Me.[detaché].Value = "موظف" Then DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" Reports!rptDiscount!Report_Title = "للموظفين" elseIf Me.[detaché].Value = "منتدب" Then DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" Reports!rptDiscount!Report_Title = "للعمال المنتدبين" elseIf Me.[detaché].Value = "متعاقد كامل" Then DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" Reports!rptDiscount!Report_Title = "للعمال المتعاقدين بالتوقيت الكامل" elseIf Me.[detaché].Value = "متعاقد جزئي" Then DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" Reports!rptDiscount!Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي" elseIf Me.[detaché].Value = "عون نظافة" Then DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" Reports!rptDiscount!Report_Title = "للعمال اعوان النظافة والتطهير" endif Exit_detaché_Click: Exit Sub Err_detaché_Click: MsgBox Err.Description Resume Exit_detaché_Click End Sub جعفر

اللي يريحك

أخي محمد ارفق جزء من برنامجك اللي تريدنا نساعدك فيه ، وخلينا نشوف اللي تشوفه انت جعفر

وعليكم السلام استعملت: ---------------------------------------------- 3. اعمل وحدة نمطية ، مثلا function make_shortcut() الكود يأتي هنا end function ثم اعمل ماكرو ، واطلب من الماكرو ان: شغل الكود make_shortcut شغل النموذج الفلاني ---------------------------------------------- فك المرفق في مجلد واحد ، وافتح البرنامج بطريقة عادية ، واغلق البرنامج ، سترى الاختصار على سطح المكتب ، ومن الان فصاعدا استخدمه للدخول لبرنامجك وكلما حذفت الاختصار ، سيتكون من جديد جعفر Export to Excel And Make Dektop shortcut.zip

وعليكم السلام في البحث ، بدل ان تستخدم / جرب واستخدم * او % جعفر

1. نعم المفروض ان يعطيك نفس النتيجة ، ولكن تأكد ان السكانر موصل بالكمبيوتر ومعرّف عليه ، 2. افتح النموذج وسترى الحقل patth ، والذي الاخ سعيد كان يريد ان الاسكانر يحفظ مباشرة في مساره جعفر

شكرا على التصحيح الفني ولكني اللي فهمته ان #If VBA7 Then 'هذه لنسخة 64 بت Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean #Else 'وهذه لنسخة 32 بت Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long #End If سيجعل الكود يعمل على 32بت (والذي يعمل عندي) و 64بت (كما اكده الاخ كرار karrar sabry). ورجوعا الى رابط تعديل الكود بين 32بت و64بت ، وجدت هذه الملاحظة : 'This is one of the few API functions that requires the Win64 compile constant: #If VBA7 Then #If Win64 Then Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr #Else Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr #End If #Else Private Declare Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long #End If جعفر

عدة طرق: 1. ضبط الكود في Notepad حسب المسارات الصحيحة ، ثم احفظ الملف بصيغة vbs او bat اينما شئت ، وانقر عليه مرتين ، وسترى الاختار موجود على سطح المكتب ، او 2. ضع الكود على حدث التحميل للنموذج الرئيسي للبرنامج ، او 3. اعمل وحدة نمطية ، مثلا function make_shortcut() الكود يأتي هنا end function ثم اعمل ماكرو ، واطلب من الماكرو ان: شغل الكود make_shortcut شغل النموذج الفلاني واهم شئ هو ان تحفظ الماكرو باسم autoexec ، والذي سوف يشغله البرنامج تلقائيا كلما تفتح البرنامج. جعفر