-
Posts
2,256 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
136
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kanory
-
انظر المرفق ..... ربما هو طلبك ... pro.accdb
-
ممكن مثال لمطلوبك للتوضيح ...
-
اريد اظهار شريط taskbar عند العمل علي البرنامج
kanory replied to Ahmed Fahmy 2022's topic in قسم الأكسيس Access
الحمد لله رب العالمين -
me.kan=" "
-
اريد اظهار شريط taskbar عند العمل علي البرنامج
kanory replied to Ahmed Fahmy 2022's topic in قسم الأكسيس Access
طيب بلاش الكود .... جرب المرفق عسى يكون المطلوب ... kan_a.accdb -
اريد اظهار شريط taskbar عند العمل علي البرنامج
kanory replied to Ahmed Fahmy 2022's topic in قسم الأكسيس Access
استخدم هذا الكود .... Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW) -
الحمد لله رب العالمين ....... بالتوفيق ,,,,
-
وعليكم السلام اوقف عمل هذا الجزء 'Me.Undo
-
تسلم سيدي ... تراني امزح ... هنا في المنتدى واجبنا الاجابة ... لاننا المستفيد الاول .. بارك الله فيك ... اشكر لك سعة صدرك ... بالتوفيق
-
حياك الله شيخ الزهارين ..... بالتوفيق ... ليش حذف افضل اجابة ؟؟؟؟؟ ههههههه
-
انسخ ملفات ال PDF الى مجلد بجوار القاعدة وسمي المجلد مثلا Kanory ثم استبدل الكود لديك بهذا الكود ... Me.AcroPDF1.LoadFile (CurrentProject.Path & "\" & "kanory" & "\" & Me.mo3amlano & ".pdf") Me.AcroPDF1.setShowToolbar (False) Me.AcroPDF1.Height = 5000 Me.AcroPDF1.Width = 10000 Me.AcroPDF1.setView ("FullScreen") Me.AcroPDF1.Visible = True كدة هيشتغل معاك البرنامج في اي مكان في جهاز الحاسب بدون مشاكل .... بشرط وجود مجلد Kanory بجوار القاعدة .....
-
الافضل ان تكون الملفات في مجلد خاص بجوار قاعدة البيانات
-
ملفات ال PDF بدلا من 1 - 2 -3 اصبجت برقم العميل 11 - 12 - 13 عدلها
-
-
وعليكم السلام لاحظ تغيير اسماء ملفات PDF حسب رقم الموظف ..... جرب المرفق واعلمنا بيالنتيجة mm.rar
-
تشغيل ماكروا بشكل تلقائى بعد الإنتقال من حقل لحقل جديد بالنموذج
kanory replied to figo82eg's topic in قسم الأكسيس Access
واياك ... -
تشغيل ماكروا بشكل تلقائى بعد الإنتقال من حقل لحقل جديد بالنموذج
kanory replied to figo82eg's topic in قسم الأكسيس Access
مثالك بعد التعديل ..... تعديل (1).mdb تم تعديل الحدث ... Me.Text72 = Mid(Costomer, 1, 12) & "0" & Mid(Costomer, 13, 2) -
تشغيل ماكروا بشكل تلقائى بعد الإنتقال من حقل لحقل جديد بالنموذج
kanory replied to figo82eg's topic in قسم الأكسيس Access
حسب الصورة لاستعلامات التحديث .... اضافة 0401 اضاف 000 حذف اول رقمين حذف اول سته ارقام عكس شرحك ..... ارجو التوضيح ..... على العموم انظر المرفق بدون الحاجة للاستعلامات ..... فقط ادخل الرقم ثم انتر تجد الرقم معدل مباشرة جرب وأعلمنا بالنتيجة ... تعديل (1).mdb تم استخدام هذا الحدث .... Me.Text72 = "0401" & Mid(Costomer, 7, 8) & "000" -
مشاركة بالفكرة السابقة ..... للتجربة على ملفك ........ kanory.mdb
-
فكرة بفكرة يمكن تنفيذها وهي : اولا نحتاج تغيير امتداد ملفك الى ملف امتداد ملف اكسس ثانيا نفحص هذا الملف هل هو ملف اكسس صالح فيعطي رسالة بذلك او معطوب فيعطي رسالة ايضا بذلك . . . . افكر في تنفيذها إن اردت .... جاري العمل على ذلك ..............
-
ربما هذا يفيدك .... copy.accdb
-
مساهمة مع الاساتذه الكرام .... جرب المرفق واعلمنا بالنتيجة الارقام.accdb
-
ممكن مثال لماتريد للتطبيق عليه
-
استخدم هذا الفانك ولاحظ التغيرات وحاول فهم التعديل ...... Function kanory1() On Error Resume Next Dim RSB As DAO.Recordset Dim RSD As DAO.Recordset Dim RSJ As DAO.Recordset Set RSB = CurrentDb.OpenRecordset("tblTempS", 2) Set RSD = CurrentDb.OpenRecordset("tblTempe", 2) Set RSJ = CurrentDb.OpenRecordset("tblTempS", 2) Dim I As Integer ', ClassDay As String, BM RSB.MoveLast RSB.Edit RSB!F24 = "الجهة" RSB.Update RSB.MoveFirst '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Do Until RSB.EOF see: If RSB!F24 Like "*الجهة*" Then g = RSB!f7 ' ElseIf RSB!F20 Like "*الخدمة الرئيسية*" Then ' t = RSB!f5 ' ElseIf RSB!F20 Like "*الخدمة الفرعية*" Then ' s = RSB!f6 End If RSB.MoveNext If RSB!F24 Like "*الجهة*" Then GoTo se Loop '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ se: Do Until RSJ.EOF If IsNumeric(RSJ!F25) Then RSD.AddNew RSD!f3 = RSJ!F2 RSD!f4 = RSJ!F25 RSD!f5 = RSJ!F22 RSD!F6 = RSJ!F18 RSD!f7 = RSJ!F16 RSD!F8 = RSJ!f14 RSD!F9 = RSJ!F13 RSD!F10 = RSJ!F10 RSD!f11 = RSJ!F8 RSD!f12 = RSJ!F6 RSD!f1 = g ' RSD!F2 = t ' RSD!f3 = s RSD.Update End If RSJ.MoveNext If RSJ!F24 Like "*الجهة*" Then g = "" t = "" s = "" GoTo see End If Loop DoCmd.OpenTable "tblTempe" DoCmd.Close acForm, "frmdrjat" End Function
-
عند الضغط على زر فتح موقع ويب يظهر هذا الخطا
kanory replied to User user's topic in قسم الأكسيس Access