Shivan Rekany

استاذن من استاذ جعفر اليك هذه الاكواد هذا للاضافة Private Sub Command29_Click() Dim i As Integer Dim StMyPathPic As String DoCmd.GoToRecord , , acFirst For i = 0 To Me.Form.Count - 1 StMyPathPic = Dir(CurrentProject.Path & "\" & "Image" & "\" & Me.ID & ".*") If StMyPathPic = "" Then Me.swra = "" Else Me.swra = CurrentProject.Path & "\" & "Image" & "\" & StMyPathPic End If DoCmd.GoToRecord , , acNext Next i End Sub وهذا للحذف Private Sub Command30_Click() Dim StSql As String StSql = "UPDATE Table1 SET Table1.swra = null;" DoCmd.SetWarnings False DoCmd.RunSQL (StSql) DoCmd.SetWarnings True Me.Form.Refresh End Sub Uploading Picture.zip

فقط عليك ان تكتب هذه السطور في اعلى الصفحة الاكواد Public txtScrollStatus As String ' Needed for Status Bar Public txtScrollCaption As String Public txtScrollText As String اتفضل نتائج المجمع __.rar

في الحقيقة استاذ جمال انا ما فهمت ما هو المطلوب بالضبط اذا تقدر ان تشرح لي اكثر بالمثال سنكون من الشاكرين

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

شوية صعبة لكي يظهر كما في النموذج لكن شو رأيك اذا يظهر هكذا في التقرير DBProg4500.rar

تأكد من لغة الكمبيوتر اليك هذا الرابط للاستاذ @jjafferr تم الرد على هذه المشاكل اللى فيها هذه الكلمة https://www.officena.net/ib/topic/59481-استفسار-هام-بخصوص-اللغة-والبرمجة/?do=findComment&comment=381019

اتفضل انتقال المؤشر الى نموذج الفرعي.zip

اولا يجب ان تعمل تركيز على نموذج الفرعي وبعدين على حقل تيكست بوكس Me.FrmNameSub.SetFocus FrmNameSub!NameTxtbox.SetFocus

لذلك اليك رابطين واحد منه بها كود التخفيض للتعليم والاخر بها طريقة استاذنا @jjafferr ستستفيد منه ان شاء الله

اتفضل هناك احتمال ان لا يشتغل نموذج كلندر وجزاك الله كل خير VBALibraryAccessVer4-2003.zip

لان كان صورك محملة في داخل قاعدة البيانات لذلك انا استخدمت هذا عند تحريك مؤشر الماوس على زر Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Commande0.Picture = "1" End Sub واضفت ليبل حول الزر وعند تحريك الماوس عليه استخدمت هذا الكود Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Commande0.Picture = "0" End Sub لكي يظهر صورة الاولى على الزر Database3.zip

اتفضل VBALibraryAccessVer4.rar

انا نزلت المرفق ... صحيح كان طلبت ذلك ... لكن انا فتحت محرر فيجوال والغيت اشارة صح امام المكتبة وتم تشغيل بشكل عادي ..

تم اضافة مكتبة ويندوز ميديا بلاير شوف الصورة فتحت محرر الاكواد بعدين من قائمة تولس تم اختيار ريفرينس اي المكتبات وبعدين بحثت عن اسم ويندوس ميديا بلاير و عطيت علامة صح امامه وضغط اوكي وبعد تم تشغيل بشكل اعتيادي

اضف مكتبة ويندوز ميديا بلاير Database3.rar

ما رأيك ان تعمل ملف وينرار محمي بكلمة سر ؟

بعد وانا استخدم microsoft security essentials لكن اذار ذاكرتي لم يخونني ... مرة انا استخدمت برامج Vbs To Exe وبعد انا فحصت برامج الفايروس عليه وتم حذفت الملف exe

كيف يعني شوف الصورة اذا يجب عليك ان تخبرني ماذا تريد نعمل لكي يظهر عندنا كما يظهر عندك

السلام عليكم ورحمة الله وبركاته انا حاولت ان انزل المرفق لكن برنامج الحماية لا يخلي ان انزله ويقول ان به فايروس لترى ما هو السبب ؟

حسب فهمي للموضوع ان كل هذه المشكلة يرجع للتنسيق التاريخ فقط غير سطر الشرط بهذا If DCount("*", "حركات", "[البيان]='" & Me.supplier & "'" & "and [تاريخ الحركة]=#" & Format(Me.payment_date, "dd/mm/yyyy") & "#") > 0 Then اي اضفنا Format(Me.payment_date, "dd/mm/yyyy") ترحيل (1).rar

أتفضل تم استخدام هذا الكود للنموذج Private Sub date_day_AfterUpdate() On Error Resume Next Dim myid As Long If DCount("[date_day]", "dday", "[date_day]=#" & Format(Me.date_day, "yyyy/mm/dd") & "#") > 0 Then myid = DLookup("[id]", "dday", "[date_day]=#" & Format(Me.date_day, "yyyy/mm/dd") & "#") DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, (myid) Else Me.Text5 = Me.date_day End If End Sub Private Sub Form_Current() Me.date_day = Me.Text5 End Sub وتم اضافة حقل جديد في جدول dday باسم id وتم اضافة مربع نصي جديد في النموذج اليك المرفق test (1).rar

الیک ھذا الكود سيعطيك مساحة اجمالي ومساحة خالي لكل قرص Const strComputer = "." Dim objWMIService, colItems, objItem Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType = '3'") For Each objItem In colItems MsgBox "Directory: " & objItem.Name & vbCrLf & _ "Size: " & Round(Cdbl(objItem.Size) / 1073741824) & "GB" & vbCrLf & _ "Free Space: " & Round(CDbl(objItem.FreeSpace) / 1073741824) & "GB" Next

اتفضل اليك نسخة من زيب الشعب يشكرك على ما تقدمه للشعب تم تغيير شيء في الاكواد الان هذه هو الاكواد المستخدمة Option Compare Database Private Sub Form_Open(Cancel As Integer) Me.pr = "سيبدأ التحميل ..." End Sub Private Sub Form_Timer() Static intCount As Integer intCount = intCount + 1 If intCount = 100 Then DoCmd.Close acForm, Me.Name DoCmd.OpenForm "FrmHello", acNormal ElseIf intCount Then Me.pr = "تقدم مؤشر التحقق " & intCount & "%" Me("sq" & intCount).Visible = True End If End Sub استاذنا @sandanet قام بالرد عليك وانا اضفت في الملف الجديد سبحان الله ... كان متصفح مفتوح وما رايت المشاركات الاخيرة مؤشر تحميل.zip

هل تريد ان يظهر هكذا في الاعلى

نشكرك .. لكن تقدر تستخدم دالة if مرة واحدة بدل 100 مرات هكذا Static intCount As Integer intCount = intCount + 1 If intCount = 1 Then Me.pr = "تقدم مؤشر التحقق 1%" Else If intCount = 2 Then Me.pr = "تقدم مؤشر التحقق 2%" Else If intCount = 3 Then Me.pr = "تقدم مؤشر التحقق 3%" Else If intCount = 4 Then Me.pr = "تقدم مؤشر التحقق 4%" Else If intCount = 5 Then Me.pr = "تقدم مؤشر التحقق 5%" Else If intCount = 6 Then Me.pr = "تقدم مؤشر التحقق 6%" Else If intCount = 7 Then Me.pr = "تقدم مؤشر التحقق 7%" Else If intCount = 8 Then Me.pr = "تقدم مؤشر التحقق 8%" Else If intCount = 9 Then Me.pr = "تقدم مؤشر التحقق 9%" Else If intCount = 10 Then Me.pr = "تقدم مؤشر التحقق 10%" Else If intCount = 11 Then Me.pr = "تقدم مؤشر التحقق 11%" Else If intCount = 12 Then Me.pr = "تقدم مؤشر التحقق 12%" Else If intCount = 13 Then Me.pr = "تقدم مؤشر التحقق 13%" Else If intCount = 14 Then Me.pr = "تقدم مؤشر التحقق 14%" Else If intCount = 15 Then Me.pr = "تقدم مؤشر التحقق 15%" Else If intCount = 16 Then Me.pr = "تقدم مؤشر التحقق 16%" Else If intCount = 17 Then Me.pr = "تقدم مؤشر التحقق 17%" Else If intCount = 18 Then Me.pr = "تقدم مؤشر التحقق 18%" Else If intCount = 19 Then Me.pr = "تقدم مؤشر التحقق 19%" Else If intCount = 20 Then Me.pr = "تقدم مؤشر التحقق 20%" Else If intCount = 21 Then Me.pr = "تقدم مؤشر التحقق 12%" Else If intCount = 22 Then Me.pr = "تقدم مؤشر التحقق 22%" Else If intCount = 23 Then Me.pr = "تقدم مؤشر التحقق 23%" Else If intCount = 24 Then Me.pr = "تقدم مؤشر التحقق 24%" Else If intCount = 25 Then Me.pr = "تقدم مؤشر التحقق 25%" Else If intCount = 26 Then Me.pr = "تقدم مؤشر التحقق 26%" Else If intCount = 27 Then Me.pr = "تقدم مؤشر التحقق 27%" Else If intCount = 28 Then Me.pr = "تقدم مؤشر التحقق 28%" Else If intCount = 29 Then Me.pr = "تقدم مؤشر التحقق 29%" Else If intCount = 30 Then Me.pr = "تقدم مؤشر التحقق 30%" Else If intCount = 31 Then Me.pr = "تقدم مؤشر التحقق 31%" Else If intCount = 32 Then Me.pr = "تقدم مؤشر التحقق 32%" Else If intCount = 33 Then Me.pr = "تقدم مؤشر التحقق 33%" Else If intCount = 34 Then Me.pr = "تقدم مؤشر التحقق 34%" Else If intCount = 35 Then Me.pr = "تقدم مؤشر التحقق 35%" Else If intCount = 36 Then Me.pr = "تقدم مؤشر التحقق 36%" Else If intCount = 37 Then Me.pr = "تقدم مؤشر التحقق 37%" Else If intCount = 38 Then Me.pr = "تقدم مؤشر التحقق 38%" Else If intCount = 39 Then Me.pr = "تقدم مؤشر التحقق 39%" Else If intCount = 40 Then Me.pr = "تقدم مؤشر التحقق 40%" Else If intCount = 41 Then Me.pr = "تقدم مؤشر التحقق 41%" Else If intCount = 42 Then Me.pr = "تقدم مؤشر التحقق 42%" Else If intCount = 43 Then Me.pr = "تقدم مؤشر التحقق 43%" Else If intCount = 44 Then Me.pr = "تقدم مؤشر التحقق 44%" Else If intCount = 45 Then Me.pr = "تقدم مؤشر التحقق 45%" Else If intCount = 46 Then Me.pr = "تقدم مؤشر التحقق 46%" Else If intCount = 47 Then Me.pr = "تقدم مؤشر التحقق 47%" Else If intCount = 48 Then Me.pr = "تقدم مؤشر التحقق 48%" Else If intCount = 49 Then Me.pr = "تقدم مؤشر التحقق 49%" Else If intCount = 50 Then Me.pr = "تقدم مؤشر التحقق 50%" Else If intCount = 51 Then Me.pr = "تقدم مؤشر التحقق 51%" Else If intCount = 52 Then Me.pr = "تقدم مؤشر التحقق 52%" Else If intCount = 53 Then Me.pr = "تقدم مؤشر التحقق 53%" Else If intCount = 54 Then Me.pr = "تقدم مؤشر التحقق 54%" Else If intCount = 55 Then Me.pr = "تقدم مؤشر التحقق 55%" Else If intCount = 56 Then Me.pr = "تقدم مؤشر التحقق 56%" Else If intCount = 57 Then Me.pr = "تقدم مؤشر التحقق 57%" Else If intCount = 58 Then Me.pr = "تقدم مؤشر التحقق 58%" Else If intCount = 59 Then Me.pr = "تقدم مؤشر التحقق 59%" Else If intCount = 60 Then Me.pr = "تقدم مؤشر التحقق 60%" Else If intCount = 61 Then Me.pr = "تقدم مؤشر التحقق 61%" Else If intCount = 62 Then Me.pr = "تقدم مؤشر التحقق 62%" Else If intCount = 63 Then Me.pr = "تقدم مؤشر التحقق 63%" Else If intCount = 64 Then Me.pr = "تقدم مؤشر التحقق 64%" Else If intCount = 65 Then Me.pr = "تقدم مؤشر التحقق 65%" Else If intCount = 66 Then Me.pr = "تقدم مؤشر التحقق 66%" Else If intCount = 67 Then Me.pr = "تقدم مؤشر التحقق 67%" Else If intCount = 68 Then Me.pr = "تقدم مؤشر التحقق 68%" Else If intCount = 69 Then Me.pr = "تقدم مؤشر التحقق 69%" Else If intCount = 70 Then Me.pr = "تقدم مؤشر التحقق 70%" Else If intCount = 71 Then Me.pr = "تقدم مؤشر التحقق 71%" Else If intCount = 72 Then Me.pr = "تقدم مؤشر التحقق 72%" Else If intCount = 73 Then Me.pr = "تقدم مؤشر التحقق 73%" Else If intCount = 74 Then Me.pr = "تقدم مؤشر التحقق 74%" Else If intCount = 75 Then Me.pr = "تقدم مؤشر التحقق 75%" Else If intCount = 76 Then Me.pr = "تقدم مؤشر التحقق 76%" Else If intCount = 77 Then Me.pr = "تقدم مؤشر التحقق 77%" Else If intCount = 78 Then Me.pr = "تقدم مؤشر التحقق 78%" Else If intCount = 79 Then Me.pr = "تقدم مؤشر التحقق 79%" Else If intCount = 80 Then Me.pr = "تقدم مؤشر التحقق 80%" Else If intCount = 81 Then Me.pr = "تقدم مؤشر التحقق 81%" Else If intCount = 82 Then Me.pr = "تقدم مؤشر التحقق 82%" Else If intCount = 83 Then Me.pr = "تقدم مؤشر التحقق 83%" Else If intCount = 84 Then Me.pr = "تقدم مؤشر التحقق 84%" Else If intCount = 85 Then Me.pr = "تقدم مؤشر التحقق 85%" Else If intCount = 86 Then Me.pr = "تقدم مؤشر التحقق 86%" Else If intCount = 87 Then Me.pr = "تقدم مؤشر التحقق 87%" Else If intCount = 88 Then Me.pr = "تقدم مؤشر التحقق 88%" Else If intCount = 89 Then Me.pr = "تقدم مؤشر التحقق 89%" Else If intCount = 90 Then Me.pr = "تقدم مؤشر التحقق 90%" Else If intCount = 91 Then Me.pr = "تقدم مؤشر التحقق 91%" Else If intCount = 92 Then Me.pr = "تقدم مؤشر التحقق 92%" Else If intCount = 93 Then Me.pr = "تقدم مؤشر التحقق 93%" Else If intCount = 94 Then Me.pr = "تقدم مؤشر التحقق 94%" Else If intCount = 95 Then Me.pr = "تقدم مؤشر التحقق 95%" Else If intCount = 96 Then Me.pr = "تقدم مؤشر التحقق 96%" Else If intCount = 97 Then Me.pr = "تقدم مؤشر التحقق 97%" Else If intCount = 98 Then Me.pr = "تقدم مؤشر التحقق 98%" Else If intCount = 99 Then Me.pr = "تقدم مؤشر التحقق 99%" Else If intCount = 100 Then Me.pr = "تم إكتمال التحقق 100%" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If غيره الى هذا Static intCount As Integer intCount = intCount + 1 If intCount Then Me.pr = "تقدم مؤشر التحقق " & intCount & "%" End If