نجوم المشاركات

السلام عليكم لو فرضنا أن هذه القيم موجودة في العمود A فإن المعادلات (حل من الحلول الكثيرة) في أي خلية كانت في غير العمود A تكون كما يلي: للأعداد الموجبة: =SUMIF(A:A;">0";A:A) للأعداد السالبة: =SUMIF(A:A;"<0";A:A) بن علية حاجي

وعليكم السلام سؤال: 1. هل قصدك ان الرقم المسلسل يبدأ من اليوم الى ما لا نهاية من السنوات ، او 2. الرقم المسلسل يبدأ سنويا؟ اذا جوابك كان رقم 2 ، فيجب وجود حقل في الجدول فيه معلومة عن تاريخ ادخال السجل ، وانا دائما يكون عندي حقلين في جميع الجداول اللي اعملها: Auto_ID : ترقيم تلقائي ، Auto_Date : نوع تاريخ ، ونضع القيمة الافتراضية التالية في الجدول: Now بهذه الطريقة ، يكون كود الترقيم: If Len(Me.Seq & "") <> 0 Then Exit Sub Me.Seq = Nz(DMax("[Seq]", "tb1", "year([Auto_Date])=" & Year(Now)), 0) + 1 جعفر 679.1.ترقيم جديد كل سنة جديدة وبجداول جديدة.accdb.zip

بفضل الله أولاً ومن ثم بفضل فكرة استاذي الكبير @Shivan Rekany تمكنت من ايجاد الكود التالي مع بعض التعديلات عليه ليقوم بالمهمة المطلوبة Sub DownloadUpdate() Dim FileNum As Long Dim FileData() As Byte Dim MyFile As String Dim WHTTP As Object Dim str_folder As String On Error Resume Next myIp = "www.google.com" strCommand = "%ComSpec% /C %SystemRoot%\system32\ping.exe -n 1 -w 500 " & myIp & " | " & "%SystemRoot%\system32\find.exe /i " & Chr(34) & "TTL=" & Chr(34) strPing = fShellRun(strCommand) If strPing = "" Then MsgBox "تحقق من اتصالك بالانترنت لكي يتم تنزيل الملف", vbCritical, "فشل التحديث" Else Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5") If Err.Number <> 0 Then Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1") End If On Error GoTo 0 MyFile = "https://drive.google.com/drive/folders/0B9STtJY2DhAoQ1JET3F5N3NiMDQ" WHTTP.Open "GET", MyFile, False WHTTP.send FileData = WHTTP.ResponseBody Set WHTTP = Nothing If Dir("C:\MyDownloads", vbDirectory) = Empty Then MkDir "C:\MyDownloads" FileNum = FreeFile Open "C:\MyDownloads\Activation.mde" For Binary As #FileNum Put #FileNum, 1, FileData Close #FileNum MsgBox " [ C:\MyDownloads ]تم تنزيل ملف التفعيل في المسار التالي", vbInformation + vbMsgBoxRight, "تنبيه" str_folder = "C:\MyDownloads" ' folder to open Call Shell("explorer.exe " & str_folder, vbNormalFocus) DoCmd.Quit End If

وعليكم السلام شوف الرابط التالي ، قد يفيدك جعفر

هل عدد الأرقام ثابت أم أنه متغير .. وإذا كان المطلوب وضع صفر واحد فقط على يسار الرقم فيمكن استخدام معادلة بسيطة ="0" & A1 إذا لم تكن الإجابة كافية فيمكن إرفاق ملف يعبر عن المطلوب بدقة

شكرا على التوضيح

السلام عليكم ورحمة الله وبركاته مشاركة مع استاذي القدير جعفر الحبيب على الرعم ان تم الوصول الى النتيجة لكن اريد ان اشارك معكم بطريقة اخرى اتفضل اليك هذا سطر من الكود لكي تعطيه بعد تحديث حقل التاريخ Private Sub date1_AfterUpdate() If Len(Me.Seq & "") = 0 Then Me.Seq = Nz(DMax("[Seq]", "tb1", Left(DMax("[Seq]", "tb1"), 2) = Right(Year([date1]), 2)), Right(Year([date1]), 2) & 0) + 1 Else Exit Sub End Sub 679.ترقيم جديد كل سنة جديدة.rar

السلام عليكم ورحمة الله بارك الله فيك اخى الكريم ياسر مجرد مرورك على اى موضوع اشارك فيه هو شرف كبير

بارك الله فيك أخي الحبيب زيزو .. كم تعجبني مشاركاتك وعملك في صمت جزاك الله كل خير

صحيح كان الاولى التجربة حتى نختصر الوقت والجهد تفضل اخي الحبيب Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = CLng(Mid(DMax("ID", "tbl1"), 2, 2)) xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = "S" & prtyr & Format(xNext, "00000") End Sub ترقيم مع السنة وزيادة حرف.rar

السلام عليكم.. اعزائي الكرام..انا محتاجة اني اتشارك قاعدة بيانات مع موظف أخر في محافظة أخرى من البلد..حاولت استخدم ميزة pubish on web في اكسس 2010 ولكنه لم يتقبل ال URL Server ويقول انه لم يتم العثور على هذا السيرفر, فماهي المشكلة ارجو المساعدة.

السلام عليكم يرجى مراجعة الرابط التالي http://www.officena.net/ib/index.php?s=f6aee96466ae56e1c9f1e006a385ca33&showtopic=56791