SEMO.Pa3x

اهلا استاذي. نعم جربت والنتيجة توووووب Function Excel_qry_Filter_Assisstnce_Gaved() On Error GoTo Excel_qry_Filter_Assisstnce_Gaved_Err DoCmd.OutputTo acOutputQuery, "qry_Filter_Assisstnce_Gaved", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint Excel_qry_Filter_Assisstnce_Gaved_Exit: Exit Function Excel_qry_Filter_Assisstnce_Gaved_Err: MsgBox Error$ Resume Excel_qry_Filter_Assisstnce_Gaved_Exit End Function

السلام علكيم. الاغلب يعاني من مشكلة تصدير البيانات كان تكون جداول او استعلامات او تقارير..الخ الى اكسل ولكن! مع بقاء مسميات الحقول العربية ( Caption ) الان لنفرض لدي الجدول اسمة Customers وهذه الاعمدة الخاصة به واما المسميات فهي هذه الان عند محاول تصدير هذا الجدول الى اكسل بإستخدام VBA يتم تصديره ولكن لا تظهر المسميات العربية مثل اسم الموظف, الرقم الوظيفي..الخ بل تظهر اسماء الحقول باللغة الانكليزية , وهذه مشكلة. الان قم بأنشاء ماكرو جديد ثم طبق كما موجود بالصورة, اختر نوع الكائن الذي تريد تصديره جدول استعلام ... الخ واسم الكائن ، واهم شي تنتبه للتنسيق اختار كما قمت انا بأختياره وسيتم تصدير الجدول بالمسميات العربية. ارفقت لكم قاعدة بيانات كـ مثال للشرح لمن واجه صعوبة في شيئ ما. حسنين export_to_excel_semo_pa3x.accdb

اكتب في المعايير >= [التاريخ الاول] And <= [التاريخ الثاني] وايضا يمكنك استخدام الدالة Between

استخدم الدالة IsNull لتفادي اخطاء المسافات.

examp 21_semo.accdb

جرب الان examp 21_semo.accdb

اكيد يمكن وبكل بساطة, ارفق قاعدة بياناتك لكي اساعدك. حسنين

حسناً, جرب وأخبرني النتيجة. examp 21_semo.accdb

اريد ان يتم تغيير حتى الحقول الفارغة! ماذا تقصد ؟؟؟

ارفق قاعدتك حتى اعدلها لك

تفضل اسم الحقل = change_characters(Nz([اسم الحقل])) مثل كأن يكون اسم الحقل txt_fullName txt_fullName = change_characters(Nz([txt_fullName]))

Function change_characters(str_Name As String) As String str_Name = Replace(str_Name, "1", "2") change_characters = str_Name End Function الاستدعاء كالاتي, لنفرض انك تريد عرض الناتج في MsgBox MsgBox change_characters(Nz(x)) حيث x هو النص او الرقم او التاريخ الذي تريد استبداله او اسم حقل النص حسنين

هل تريد الاستبدال كما هو يبقى ؟ يبحث عن الرقم 1 ويستبدله بالرقم اثنان سواء كان المدخل تاريخ, رقم, نص.. الخ ؟

طيب بعد ماقسمتي الملف الى 20 ملف اكسل خليهن على مجلد المشاركة ( Share Folder ) حتى الموظفات ياخذوهم وين المشكلة يعني؟

جميل جدا عزيزي. خصوصا استعمالك لدوال NetRemoteTOD و NetApiBufferFree وانا اشجع جميع المبرمجين ان يجعلوا winAPI في اولويات اهتماماتهم لانها طبعا الاسرع والاقوى تنفيذا في الذاكرة. لمن يحب الاطلاع اكثر، اضغط على اسم الدالة لعرض تفاصيلها. لديك خطأ في Form_Main احذف منه End Function واستبدلها بـ End Sub ثانياً: بدل ان تجعل المستخدم يقوم بكتابة الايبي يدوياً اجعل العملية تتم اوتوماتيكياً، استخدم هذا الفنكشن Public Function GET_LOCAL_IP_ADDRESS() 'recoded semo.pa3x Dim objWMIService As Object Dim colItems As Object Dim itm As Object Set objWMIService = GetObject("winmgmts:\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") For Each itm In colItems GET_LOCAL_IP_ADDRESS = GET_LOCAL_IP_ADDRESS & itm.Properties_("IPAddress")(0) & vbCrLf Next GET_LOCAL_IP_ADDRESS = Split(GET_LOCAL_IP_ADDRESS, vbCrLf)(1) End Function استبدل السطر الاتي: strPcIP = DLookup("[ip]", "tblSecurityIP") استبدله بـ strPcIP = GET_LOCAL_IP_ADDRESS موفق عزيزي.

رائع يامعلم

المشكلة تخبرك بانك استخدمت رقم ID و اسم موجود مسبقا. لحل المشكلة قم بازالة المفتاح الرئيسي او الفهرسة

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

الذي فهمته من طلبك كالاتي: انتي فاتحه ملفين اكسل واحد اسمه X والثاني اسمة Y طيب ؟ انتي الان تعملين في الملف الذي اسمه Y تريدين الملف الذي اسمه X يحفظ تلقائي ويعمل رفرش بدون التأثير على الملف Y صح ؟

اخي الكريم اقرأ ردي في الاعلى ففهيه جوابك لسؤالك.

هل هذا التعديل الذي تريده ؟ انظر الى النموذج حسنين شركة.accdb

لم افهم طلبك اشرح بصورة ابسط حسنين

السلام عليكم. طريقة اخرى عن طريق winAPI '---------------------------------- 'API CONSTANTS FOR PRIVATE INPUTBOX '---------------------------------- Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long 'Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long '---------------------------------- 'PRIVATE PASSWORDS FOR INPUTBOX '---------------------------------- '//////////////////////////////////////////////////////////////////// 'Password masked inputbox 'Allows you to hide characters entered in a VBA Inputbox. ' 'Code written by Daniel Klann 'March 2003 '//////////////////////////////////////////////////////////////////// Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then 'A window has been activated RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox 'This changes the edit control so that it display the password character *. 'You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If 'This line will ensure that any other hooks that may be in place are 'called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function Function InputBoxDK(Prompt, Title) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title) UnhookWindowsHookEx hHook End Function 'Call: InputBoxDK("Enter your Password.", "Password Required") حسنين

اكتب في السطر الاول من اكوادك on error resume next حسنين