hanan_ms
-
Posts
171 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه hanan_ms
-
-
صفاء تقصدين اقصد احاول المساعده 😇
استاذي @ابو جودي ❤️🌹🌹
بتأكيد جواب ثاني
Function
= ((),())
===================================
انا احاول
dim NBX as string
NBX = len(me.this_number)
if left(me.text, NBX) = 5 then
' give And this why for save no give me Null = Error = ( Qury Nurmal cod iif(isnull([text1]) or [text1] ="" ,"",[text1]) ..........
me.text1 = set_text_S1(me.text)
me.text2 = set_text_S2(me.text)
me.text3 = set_text_S3(me.text)
compilt
with me.text
.
.
end with
or
docmd.gotorecord ' docmd.openform "", SQL,,,,
me.filter =true
end if
Public Function set_text_S1(ByVal strname As String) As String
set_text_S1 = left(strname, InStrRev(strname, "-"))
End Function
Public Function set_text_S2(ByVal strname As String) As Stringset_text_S2 = left(strname, InStrRev(strname, " "))
End Function
Public Function set_text_S3(ByVal strname As String) As String
set_text_S3 = mID(strname, Len(strname) + InStrRev(strname, " "))
End Function -
2 minutes ago, hanan_ms said:
فيديو السكانر شغال موضحه فيه تحديد الانش للورق واشلون تعدل علية ☕
وعلى فكرة تثبيت
QR_barcode
ملف ZXing_Library
نسخ ملفات dll
الى
1. Copy 3 files ini ke C:\Windows\System32
2. Jalankan file register.cmd dengan administrator
3. Restart
4. Di visual basic reference, arahkan ke file tlb yang ada di C:\Windows\System32 -
ست! راجل وكمان تشوف عيوني بتشوف النور ده اصلي 😂
استاذ @Moosak ❤️🌹
الاكواد وتصفيف من ايديك غير واحلا الكيك ينوكل من ايد صنيعي
اما انا وين محترفه! جبت العيد بالمرفقك موضح بعض الفكره
وطبعا انا مستأذنة منه بستخدام مرافقاته
16 hours ago, Moosak said:ما فهمتش حاجة
تحميل وتجربة
https://www.mediafire.com/file/0ic3il3u6siwvuw/list+menu+moosack.rar/file
-
1
-
-
شكرا استاذ @Moosak ❤️🌹
برنامج ممتاز 💯
ممكن تطوير اذا سمح لك الوقت
قائمة (List menu )
1- اضافة زرين سهم باليمين والشمال
اذا صغطة الشمال تبدأ (( مجموعة جديده )) من رقم 1
هل بفضل عمل عدد الجداول على عدد المجموعات؟! او يمكن من جدول واحد
عند اضافة حقل جديد مجموعة رقم 1 اظهار للكل بحقل =1
حقل 2 اظهار الكل بحقل =2
===================
2- قائمة الاعدادة
3اضافة اسم فورم 1واسم العنصر 2وتحديد نوع العنصر
تحديد نوع العنصر اذا كان صفحة ويب
حقل رقم 4
اكتب الموقع او مسار الملف
===================
3- اضافة اعدادة جديده
Progress bar
تحديد الوقت
او يعمل عند شرط رقم يقف الشرط نوع الشرط عام من غير سجل جدول
على سبيل المثال
شرط يبدأ من فورم آخر
-يتحقق من الاتصال الجدول
-يتأكد من نوع الحساب Admin
-يرقم ترقيم تلقائي برمجي كان جدول اساسي او فرعي نفس العملية
-يتأكد ان مسار المطلوب موجود
...
اذا كان الكل صحيح او خطأ
فقط كتابة الكود
Form_List_Menu.DoP=0
=========================
4- تغير لون الحقل والنص لكل سجل
القائمة اذا كان لون الحقل اصفر يكون لون النص اسود
==============================
لو كان الزر لا يظهر فلاش كويري لاستبدلته من حقول الى ازرار
عند حدث التفصيلي
الى حديث عند التلوين <
لتغير الون الزر عند تحريك المؤشر
مع الرموز وتغير الرمز ايقونة عند الضغط
تكبير الخط مع السمك
=================================
وشكرا
-
1
-
-
بعد استاذ @ازهر عبد العزيز ☕
تعديل المرفق لطلب @فؤاد الدلوي
على طريقة الاستاذ @Moosak
تحديد كل انواع العناصر وتشغيلها من غير تعديل وكتابة داخل محرر الاكواد
Form
Table
Report
Macro
Module
مع تحرير الاضافة وتعديل سهل
-
1
-
-
-
ان شاء الله اشتغل معاك الفيدير ?! يعمل الفيدر
كنت مشغولة وايد
تحديث + فيديو + صور +مرفق بس اكمل شوي واذا في احد عنده تعديل او استبدال وتصحيح يعديل بالمرفق ويرفعة للتحديث مع فيديو سحب الاوراق من الاسكانر
للمساعده _🌹❤️
ما في متطوع يفحص 😇
==============================( التحديث)☕
1- خيار سحب المرفقات اما ملون او ابيض واسوط
2-مع السحب QR-Barcode (Scanner-Add_Image )
3- بيحث ب QR-Barcode - with Number IMG
4- تحديث تلقائي مع اضافة تصحيح التحديث
5-اضافة ادوات الدوران 90 180 90-
6-ترقيم الصفحات الممسوح بالسكانر والصور المضافة تلقائي مع التحديث والفتح
7- تحديث الصفحة المحددة للاعادة السحب والاستبدال
8- اضافة انواع لاحجام الوراق بوحدة القياس الانش IN-Che ( A0 A1 A2 A3 A4 A5 A6 B4 B5 Letter And lager And Add U Custom Nmae Size with H W Inche ... )
9-اضافة وتصحيح عرض التقارير لطباعة المسحوبات السكانر ( برواز كامل -برواز محدد - فقط المسحوب والكل معرض QR-Barcode )
10- مع بعض الاضافات الاخرى
==============================( السابق )
1- بسهولة استبدال الاوراق المسحوبة
2- دوران الصفحات بالاتجاه المناسب
3-تحكم بالعرض وتحديد الصفحة
scanner_QRbarcod_Full_Control_paper_V1_7_0.part1.rar
-
كيف تعديل على نافذة تحريك النص
==============================(NText)☕
كيف تعديل حقل قناع للنص من غير تحديد عدد الحقول (2)
-
?! يعمل الفيدر
يوم الاحد اذا قدرة اجرب مرفقك بالسكانر
انت جرب مرفق الي انا رفعته لك
بس الجديد حدثته لك
1- بسهولة استبدال الاوراق المسحوبة
2- دوران الصفحات بالاتجاه المناسب
3-تحكم بالعرض وتحديد الصفحة
==============================( بتحديث)☕
1- التحكم بالكل
2- تحديث الصفحة المحددة للاعادة السحب
3-اضافة انواع لاحجام الوراق
تقدر تضيف زر موافق للحفظ لتقيد المستخدم بعدم التعديل الا بصلاحية
-
-
في حل الغاء مفتاح
space
حدث عند الادخال
حدث عند الخروج
اسهل ☕
On 11/9/2012 at 8:39 PM, فؤاديحيى said:مثل الحروف ( ر ، د ، ذ ؛ ز ؛ و ؛ ة ؛ أ )
طلب @فؤاديحيى
عند استاذي @ابو جودي❤️🌹🌹
شكلة استاذي بعد برنامج التقويم فكرة بالاجازة 😂
توحيد الحروف بدالة للفلترة والخاصة الهمزات
الكل في كلمة
او استعلام لان الفلتره فقط يستوعب حروف
English
في بداية الدالة ترميز
8_Unit 😇
-
@2saad ❤️🌹🌹
تفضل طريق تتعامل معها لجميع الاصدارات الاكسس
تقريبا
بسيط ربط ملف اكسل بالاكسس والحاق بالجدول مع تحديث الملف
(( Link_File - Link_db - Link... UrL))
ما ينفع تلحق حقل رقم بحقل نص ؟!!☕
تطابق نوع الحقول من اكسل الى اكسس والعكس
-
مرفقك شغال ؟!
وين الخلل؟
Where Flate bad ?! A======= AT ( End Paper = Finish Scanner paper ) Or A========== AT( Stop Scanner Or Selected Cod At Fix )
الخطأ عندك بالنسخ الاحتياطية او بتصميمك بشكل عام
حدد الخلل وارفع المرفق
ممكن تصور الرسالة الخطأ او اشلون ما اشتغل !
-
اذا اليوم خلصة باجر ارفع مرفق
يشتغل معاك
-
@safaa salem5صفاء ❤️🌹🌹
(( تقسمين المشروع-1 ))
FE , BE
للاستعادة النسخة يقوم بنسخ وستبدال ملف القاعدة
او الاتصال المباشر
تحذفين خيار ضغط واصلاح يكون عند اغلاق البرنامج بمربع حوار
-
يعمل الفيدر
وتغير الابعاد تأكد من الجدول DPI
تأكد ان الحقول ليسة مشروط ومحدد له معيار الصحة
يكون فارغ
من (( غير دوال )) لتغير ابعاد الصور لاحظ الفيديو بسهوله تحجيم الصفحات
العرض 8.27
الطول 11.2
وفي عضو ليش غير 11.69 !!!!!!!!!!!!
المرفق السابق لا يعمل مع الاسكنر 😗
اسوي واحد ثاني ☕
شوف الفيديو
-
بعد اذنكم ❤️🌹🌹
+ Video + طريقة ثانية ☕
محاولة على السريع بنموذج واحد لكافة النماذج
لتصحيح المسميات والهمزات وصحة المدخلات
عند انتهاء من كتابة الاسم اضغط دبل اكليك بالماوس
ويوجد خيار اذا كان الاسم جديد يمكن اضافة عند الاخال
لو عند فتح نموذج الفحص والتصحيح = اتصال وربط للقاعدة الاسماء والاغلاق اعادة ربط قاعدة المشروع 😇 من غير ازدحام
===============================================( هل نموذج مفيد )
1- تخصيص خيار الفحص لاي نموذج حتى آخر تفريع في النموذج
2- تحديد التصحيح
'================================(Cod Only One in Form One On All Form)
If Me.h1 = 1 Then 'On Error GoTo Form_Open_Err '================================( Chack Spaec Text ) Dim sp As Integer Dim spp1 As String Dim spp2 As String Dim spp3 As String For sp = 1 To 3 'If sp = 1 Then Me.s1 = Str_Txt(Me.T_C1) ' Delete space from start text 'If sp = 2 Then Me.ss2 = End_Text(Me.s1) ' Delete space from end text 'If sp = 3 Then Me.s3 = Mod_Txt(Me.ss2) ' text space end 1 Next On Error Resume Next Me.T_C1 = End_Text(Me.T_C1) 'Str_Txt (Me.T_C1) '=============================( Form_To_TextBox) Dim bForm As String Dim bTextBox As String bForm = Me.frm bTextBox = Me.txt '=============================( Aout ) Dim bEnabled As Boolean Dim strength As String Dim hasUpperCase As Boolean Dim hasLowerCase As Boolean Dim hasArCase As Boolean Dim hasDigit As Boolean Dim hasSpecialChar As Boolean '========================(Cahck Contril_Text_Auto) Dim bEn_A As Boolean Dim bEn_aa As Boolean Dim bAr As Boolean Dim bSomipl As Boolean Dim bN9 As Boolean Dim bSpaice As Boolean Dim bNumber_Text As Boolean Dim bN_T As String ' No Use Error As Long '============================( Run DlookUP IF Form And TextBox ) bEn_A = DLookup("[En-Captial]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bEn_aa = DLookup("[En-Smoll]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bAr = DLookup("[Ar]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bSomipl = DLookup("[sompil]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bN9 = DLookup("[N9]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bSpaice = DLookup("[Space_1]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") bNumber_Text = DLookup("[Number_Text]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") If IsNull(DLookup("[N_text]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ")) Then Else bN_T = DLookup("[N_text]", "Save_Text_Chack ", " [name_frm] ='" & [Forms]![frmCahck_text]![frm] & "' And [name_chack_textBox] ='" & [Forms]![frmCahck_text]![txt] & "' ") End If On Error Resume Next '============================== Dim s2 As String Dim ss As String s2 = Me.T_C1 If bEn_A = -1 Then Dim cc1 As Integer For cc1 = 1 To Len(s2) ss = Mid(s2, cc1, 1) If ss Like "[A-Z]" Then hasUpperCase = True MsgBox "chang No Use lang En_captial- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc1 Else End If If bEn_aa = -1 Then Dim cc2 As Integer For cc2 = 1 To Len(s2) ss = Mid(s2, cc2, 1) If ss Like "[a-z]" Then hasLowerCase = True MsgBox "chang No Use lang En_Smoll- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc2 Else End If If bAr = -1 Then Dim cc3 As Integer For cc3 = 1 To Len(s2) ss = Mid(s2, cc3, 1) If ss Like "[Ç-í]" Then hasArCase = True MsgBox "chang No Use lang Ar- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc3 Else End If If bN9 = -1 Then Dim cc4 As Integer For cc4 = 1 To Len(s2) ss = Mid(s2, cc4, 1) If ss Like "[0-9]" Then hasDigit = True MsgBox "chang lang Ar- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc4 Else End If If bSomipl = -1 Then Dim cc5 As Integer For cc5 = 1 To Len(s2) ss = Mid(s2, cc5, 1) If ss Like "[!@#$%^&*()_+{}:<>?~]" Then hasSpecialChar = True MsgBox "chang lang Somipl- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc5 Else End If If bSpaice = -1 Then Dim cc6 As Integer For cc6 = 1 To Len(s2) ss = Mid(s2, cc6, 1) If ss Like "[""]" Then s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Next cc6 Else End If If bNumber_Text = -1 Then If bN_T > Len(s2) Then Else MsgBox "chang lang Ar- {[ " & s2 & " ]}- ", vbExclamation, " close don " & Date s2 = "" txt_On_txt = "" DoCmd.Close acForm, Me.Form.Name Exit Sub End If Else End If If DCount("[ID]", "[Chack_text_on_text]") = 0 Then Me.cmd_New.Enabled = True Else Me.T_C2 = DLookup("[name_K]", "[Chack_text_on_text]") Me.T_C2.Enabled = False Me.cmd_New.Enabled = False End If If IsDate(txt_On_txt) Then Me.s1 = txt_On_txt.Value Else Me.s1 = Date End If Me.h1 = 0 End If Form_Open_Exit: Exit Sub Form_Open_Err: MsgBox Err.Description, vbCritical, "frmCalendar.Form_Open" Resume Form_Open_Exit End Sub
-
7 hours ago, Aws86A said:
هل يعمل الفيدر لديك مع قاعدة البيانات لان حاولت مع غير قاعدة بيانات وما اشتغل ويايه؟
(( هو شغال فقط اضغط زر (( اسكان
معاك خيارين حدد الي يناسبك
اما السكانر مو معاي حاليا
بس يتوفر ارفقه مع الفيديو والتحديث
اذا معاك سكنر بانسونك او كانون ممكن تعطيني النتيجة
-
بس غير الكود
وللصور جمع فلتر
عند حدث الزر :
Private Sub Command1_Click() On Error GoTo ABC '======================= Dim varFileX2 As Variant Dim destpathX2 As Variant '=========================== Dim X As Object Set X = Application.FileDialog(msoFileDialogFilePicker) 'Application.FileDialog(3) With X .AllowMultiSelect = False .Filters.Clear .Title = "pleas Selcted item PHOTO .. File_IMG" .Filters.Add "All png", "*.png;*.jpg" .Filters.Add "All File", "*.*" If .Show = True Then For Each varFileX2 In .SelectedItems destpathX2 = varFileX2 Me.ImgPath = destpathX2 Me.Image0.Picture = Me.ImgPath Next Else If Me.ImgPath = "" Then Me.Image0.Picture = "" End If MsgBox " No selected File IMG" End If End With Set X = Nothing ABB: Exit Sub ABC: Resume ABB End Sub -
!طلب مساعدة ولا رد
لو كان تغير لون او استعلام لتشكرة من زمان 😇🌹❤️
+ Video + محاولة مع نفسي 😏
1- اذا ما عندك اسكانر (جهاز الماسح الضوئي للاوراق والمستندات)
اضافة المسحوبات على الفرعي من غير تشغيل استعلام ☕
Private Sub Form_Timer() If Form_F_in.hck = 1 Then Dim Folder_test As String Folder_test = "C:\Users\Ezril\Desktop\New folder (79)\scan\test scaner" 'Application.CurrentProject.Path & "\" & "test scaner" Form_F_in.In_No = "888" DoCmd.Save acForm, "F_in" Dim rung As Integer For rung = 1 To 2 Forms![F_in]![T_In_Attache_Path subform].Form![In_Attache_Path] = Folder_test & "\" & rung & ".png" Forms![F_in]![T_In_Attache_Path subform].SetFocus SendKeys "{DOWN}", True On Error Resume Next DoCmd.GoToRecord , , acNext Next Form_F_in.hck = 0 Form_F_in.sc.Requery End If End SubOn Error Resume Next '... ليس فقط لتجاوز الاخطاء المنطقية - استدعاء ناقص من مصدر برمجة اكسس -وستهداف التركيز
2- استخراج المسحوبات Pdf
وطباعة
3-اداة اقتصاص الزائد بعد الانتهاء من سحب المستندات من السكانر
4- قائمة تعديل وضبط المقياس بزر الاعدادة
5- عند تجربتك للماسح الضوئي جرب الكود مع الاستبدال نسخ التقرير واضافة
Report1A$2 If Me.XXS = 0 Then If Me.Do = -1 Then DoCmd.OpenReport "Report1A$3", acViewPreview, , , acHidden DoCmd.OutputTo acReport, "Report1A$3", "PDFFormat(*.pdf)", IMG_PDF & "\" & Me.In_ID & "-" & Format(Now(), "Hh-Nn-ss-AM-PM") & ".pdf" DoCmd.OutputTo acReport, "Report1A$3", "PDFFormat(*.pdf)", IMG_PDF & "\" & Me.In_ID & ".pdf" '=======================================================( Out Print DoEvents Me.w.Visible = True Me.w.ControlSource = "=""" & IMG_PDF & "\" & Me.In_ID & ".pdf" & """" Me.w.Requery DoEvents DoCmd.SelectObject acReport, "Report1A$1" DoCmd.RunCommand acCmdPrint End Ifوطلب تصحيح بترتيب الدوال والمرفق او البديل
-
مهام المرفق
1-تصحيح وانشاء المسار تلقائي والملفات عند السحب
2-فحص اذا تم السحب سابقا بوجود ملف PDF
3- تلقائي استخراج الكل عند السحب
jpg
bmb
png
tiff
GIF
4- مع تفعيل الاعدادة
With div.items(1) .Properties("6146").Value = 1 'Colour intent (1 for color, 2 for grayscale, 4 for b & w) .Properties("6147").Value = DPI 'DPI horizontal .Properties("6148").Value = DPI 'DPI vertical .Properties("6149").Value = 0 'x point to start scan .Properties("6150").Value = 0 'y point to start scan .Properties("6151").Value = 8.27 * DPI 'Horizontal extent .Properties("6152").Value = 11.69 * DPI 'Vertical extent for letter End Withتعديل على المرفق
عند انتهاء من السحب يطبع المسحوبات ويستخرج
PDF
=======================
المطلوب:
تصحيح اخطاء الفيدر والاعدادة
With div.items(1)
وتغير وحدة القياس
8.27 * DPI
11.69 * DPI
عند التغير الارقام تظهر رسالة خطأ
-
اشرايكم ☕❤️🌹
استاذ @عمر ضاحى☕❤️🌹
استاذ @bidheel2009 ❤️🌹
واستاذ @AlwaZeeR ❤️🌹
with_FixAT واساتذه الكرام قبل التحديث
============================
تحديث قريبا برنامج مفتوح المصدر
v.2.9.7
التحديث القادم :
1-يحدد الجر المحدد باللون بذوقك ولكل جذر لون عند الضغط ولكل جذر باسم
IMG_ICon خاص فية = (بالاسم)
2-Root كامل لكل جذر = Link db Auto from Number YYYY
3- Chinge Lest Box To Tree ON Nod = (One Tablet NOD A,B,C,D)
تخصيص اكثر - تحكم اكثر بتخصيص
=============================( nod )
لكل جدول تدخل فية البيانات وتقدر تخلي اجزاء منة نموذج صندوق حوار او نموذج جدول اومصمم للحسابات او تحاليل طبية والكل الى شجر
===================================(Update no loading update tree look liest treeview )😇
سريع بالفتح من غير شريط تقدم للتحديث ☕😇
just now by hanan_ms
-
اشكرك استاذ @bidheel2009 ❤️☕🌹
---- عملك شبية بنظام القديم IFS
شاشة سوده واختصارات الكيبورد "تلوين الخط بنوع الخط "😇
-
مطلوب فلتره من جدول بناء على ثلاث حقول
في قسم الأكسيس Access
قام بنشر
بعد اذن استاذ @أبو إبراهيم الغامدي 🌹
صفاء اعتقد ان هو بعد طلبك
بحث محدد ينقصة معامل </>
=========================================(Video + Image + Form)
اما البحث العام لا اعلم بضبط حجم مساحة تخزين في الفورم لاستيعاب عدد السجلات المطلوب
لان يثقل لدرجة بطيييء والعميل يطر هو للاغلاق
نفترض عد الاسجلات Dcount
من 1 الى 6000
ومن 6000 الى 12000
سيكون الوسيط شريط التحريك Scrollbar
حجز الاستعلامات او الجدول وعرض مجموعة المسموحة للتخزين
اشلون اسويها
مع الكود
وشكرا 😇
Search By Characters.rar