Moosak

أخي @RaDwAn00 ضع عند حدث فتح التقرير هذا الأمر : DoCmd.Restore بدل ال DoCmd.Maximize

مشاركة مع أخي عمر 🙂 Status: IIf(Date()>=[nometprn] And Date()<=[DAu];"((مازال قيد الاجازة))";IIf(Date()>[DAu];"(( تم العودة من الاجازة))";"((الإجازة لم تبدأ بعد))")) 174971286_11.accdb

تفضل هذا طلبك أخي @naguib_3778 🙂 Private Sub Command1_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) End If End Sub Private Sub Command0_Click() Dim s As String s = InputBox("أدخل الرقم السري", "", "123") If s = 123 Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes Call DoCmd.SelectObject(acTable, , True) 'Unhide the navigation pane End If End Sub Hide Navigation Pane.accdb

جرب نقل التركيز للنموذج الفرعي أولا

أنا جربته على زر في نموذج منقسم ونجح الأمر ( طبعا تشغيل / وإطفاء ) بنفس الكود .. وحسب المصدر هذه طريقة فتح استعلام وتشغيل المجاميع بنفس الأمر DoCmd.OpenQuery CustName, acViewNormal CommandBars.ExecuteMso "RecordsTotals" أو ضع أنت مرفق مبسط حسب تصميم برنامجك لنجرب الأمر عليه 🙂

وعليك السلام ورحمة الله وبركاته أخي عبدالله .. 🙂 استخدم هذا الأمر : Application.CommandBars.ExecuteMso "RecordsTotals"

مع البحث وجدت هذا الموضوع فيه كود لعله يساعدك : https://stackoverflow.com/questions/37426141/access-vba-connection-to-test-existence-of-sql-server وهذا هو الكود : Public Function IsSqlServer( _ ByVal TestNewConnection As Boolean, _ Optional ByVal Hostname As String, _ Optional ByVal Database As String, _ Optional ByVal Username As String, _ Optional ByVal Password As String, _ Optional ByRef ErrNumber As Long) _ As Boolean Const cstrQuery As String = "VerifyConnection" Dim dbs As DAO.Database Dim qdp As DAO.QueryDef Dim rst As DAO.Recordset Dim booConnected As Boolean Dim strConnect As String Dim strConnectOld As String Dim booCheck As Boolean Set dbs = CurrentDb Set qdp = dbs.QueryDefs(cstrQuery) If Hostname & Database & Username & Password = "" Then If TestNewConnection = False Then ' Verify current connection. booCheck = True Else ' Fail. No check needed. ' A new connection cannot be checked with empty parameters. End If Else strConnectOld = qdp.Connect strConnect = ConnectionString(Hostname, Database, Username, Password) If strConnect <> strConnectOld Then If TestNewConnection = False Then ' Fail. No check needed. ' Tables are currently connected to another database. Else ' Check a new connection. qdp.Connect = strConnect booCheck = True End If Else ' Check the current connection. strConnectOld = "" booCheck = True End If End If On Error GoTo Err_IsSqlServer ' Perform check of a new connection or verify the current connection. If booCheck = True Then Set rst = qdp.OpenRecordset() ' Tried to connect ... If ErrNumber = 0 Then If Not (rst.EOF Or rst.BOF) Then ' Success. booConnected = True End If rst.Close End If If strConnectOld <> "" Then ' Restore old connection parameters. qdp.Connect = strConnectOld End If End If Set rst = Nothing Set qdp = Nothing Set dbs = Nothing IsSqlServer = booConnected Exit_IsSqlServer: Exit Function Err_IsSqlServer: ' Return error. ErrNumber = Err.Number ErrorMox "Tilslutning af database" ' Resume to be able to restore qdp.Connect to strConnectOld. Resume Next End Function

وعليكم السلام أخي أزهر 🙂 عملت لك الكود التالي في حدث عند عدم وجود في القائمة للقائمة المنسدلة : Private Sub numb_NotInList(NewData As String, Response As Integer) CurrentDb.Execute " INSERT INTO tbb ( numb, nameb ) VALUES ( '" & NewData & "' , '" & NewData & "' );" numb = Null numb.Requery numb = NewData End Sub bl.accdb

وعليكم السلام أخي طارق 🙂 تم عمل المجاميع عن طريق الاستعلام "مجاميع" طبعا يتم تحديث المجموع بناءا على الفرز المبني على القوائم المنسدلة الثلاثة .. وكذلك التي عليها علامة صح كما هو موضح وفي حال أن القوائم المنسدلة فارغة فإنه يأتي بمجموع جميع النتائج الظاهرة جمع المبالغ التي امامها علامة صح.rar

أنا أستخدم هذا الكود لفحص الاتصال عندما تكون قاعدة البيانات مقسمة إلى FE و BE .. ولم أجرب الاتصال بقاعدة SQL سابقا .. وضيفة الكود أن تعطيه اسم أحد الجداول المرتبطة فيفحصه إذا كان متصل أم لا ويعطيك النتيجة True / False Private Function TableLinkOkay(strTableName As String) As Boolean 'Function accepts a table name and tests first to determine if linked 'table, then tests link by performing refresh link. 'Error causes TableLinkOkay = False, else TableLinkOkay = True Dim CurDB As dao.Database Dim tdf As TableDef Dim strFieldName As String On Error GoTo TableLinkOkayError Set CurDB = DBEngine.Workspaces(0).Databases(0) Set tdf = CurDB.TableDefs(strTableName) TableLinkOkay = True If tdf.Connect <> "" Then '#BGC updated to be more thorough in checking the link by opening a recordset 'ACS 10/31/2013 Added brackets to support spaces in table and field names strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name 'Do not test if nonlinked table End If TableLinkOkay = True TableLinkOkayExit: Exit Function TableLinkOkayError: TableLinkOkay = False GoTo TableLinkOkayExit End Function وتستدعيه بهذه الطريقة : TableLinkOkay("strTableName") جربه أنت مع قاعدة الـ SQL وأخبرنا بالنتيجة 🙂

أهلا بك أخي aboeyad2007 🙂 هنيئا لك الحل وبارك الله فيك ، وبدل الحذف أقترح عليك وضع الملف بعد الحل في رد جديد ( ليستفيد الآخرين من تجربتك ) وتؤشر عليه كأفضل إجابة 🙂

حسب ما أذكر هناك طريقة سهلة لسحب البيانات من المواقع للأكسل .. فإذا نجحت العملية يمكن عمل ذلك بالأكسل ثم استيراد البيانات للأكسس حيث أن هذه العملية أسهل .. وقد جربت محاولة الدخول للموقع ولكن :

وهذه على طريقتي دكتورنا العزيز 😇 والمرفق في المشاركة الأصلية 😉👌🏼

ما تخدش في بالك يباش مهندس .. أحنا العمانيين ما بنزعلش بسهولة 😂 بالعكس تماما .. مداخلاتك إثراء للموضوع وتضفي على الجمال جمالاً 😊🌹

حكم تنهال علينا كالدرر .. فلله در قائلها ☺️ ولما بنتكلم عن الإبداع في الإخراج واللعب في الأحجام بنقول أيييييييه ؟ 😁 مع إدخال التنسيق الشرطي لمربعات النص في اللعبة

أحلى شي فيها أنها جابتك لينا .. ورجعتك بالسلامة 😂

أخي @صابر سليمان أعطني اسم النموذج الذي تعرض فيه الفواتير وبعض أرقام الفواتير التي لا تظهر كاملة ..

:: بسم الله الرحمن الرحيم :: ** السلام عليكم ورحمة الله وبركاته ** .. أما قبل .. فالصورة التالية تحكي لكم الفكرة باختصار : .. أما بعد : .. فإليكم الطريقة كما هداني إليها رب العالمين 🙂 : أولا :: تقوم بتصميم جدولك وإضافة حقول نعم/لا بالطريقة العادية ثانيا :: تصمم استعلام يكون مصدره جميع حقول جدولنا الجميل 🙂 ثالثا :: تضيف حقول جديدة في الاستعلام ( حقل مقابل كل حقل من نوع (نعم/لا) في الجدول ) نسميه بنفس اسم العقل مع إضافة رقم2 لتفنيده عن الحقل الأصلي وتضيف له هذه الدالة : .. NewFeildName: IIf([TrueOrFalseFeild]=-1;ChrW(10004);ChrW(10008)) وتقوم بتغيير اسم الحقل لكل واحد من حقول الجدول ملاحظة : ChrW(10004) تعطيك الرمز ✔ و ChrW(10008) تعطيك الرمز ✘ لتكون التيجة النهائية هكذا : وعند حفظ الاستعلام وعرضه يظهر لنا هكذا : رابعا :: تقوم بإنشاء نموذج جديد مبني على الاستعلام الظريف وتنسقه بالطريقة التي تحبها .. وتنتبه أنك ستدرج الحقول الجديدة التي أنشأناها في الاستعلام بدلا عن الحقول الأصلية .. ستكون الحقول البديلة عبارة عن حقول نصية عادية غير قابلة للتعديل ( لأنها حقول محسوبة ) .. لذلك سيسهل عليك تنسيقها باللون والشكل الذي تحبه تماما كما تنسق أي حقل نصي آخر 🙂 خامسا :: فقط بقي علينا أن نظيف أمر تغيير قيمة حقول (نعم/لا) الأصلية عند النقر على الحقول البديلة .. ولعمل ذلك نضع الأمر (الكود) البسيط التالي في حدث عند النقر على لكل خانة ( IsActive كمثال ) : Private Sub IsActive2_Click() IsActive = Not IsActive x.SetFocus End Sub وتكرر نفس العملية لكل واحد مع تغيير أسماء الحقول .. لاحظ أنني أضفت هذي للكود ( x.SetFocus ) في النهاية ، وهي باختصار حركة تجميلية .. حيث قمت بإضافة مربع نص (غير منظم) للنموذج وسميته x وجعلت لونه ولون حدوده نفس لون خلفية النموذج ، وجعلت حجمه صغيييييييييييييييير جدا 🙂 يعني الطول x العرض بمقدار = 0.01 تقريبا ..( الهدف أنه ما يظهر للمستخدم) وبعدها خليت الأمر ينقل التركيز لهذا المربع الصغير .. فكانت النتيجة كما شاهدتم سيداتي وسادتي 😊 ونكون بذلك قد انتهينا من عمل مربعات صح أو خطأ كبيرة وجميلة وتنفتح لها النفس 😉👌 وبعدها ينفتح لكم باب الخيال الواسع للإبداع والزيادة كما تشتهي أنفسكم وتلذ أعينكم 😊 ولا تنسونا من صالح دعواتكم وزكواتكم وهداياكم 😅 :: وختامها رابط المثال للتحميل (مجاناً) 😁 :: صح أو خطأ.accdb

جرب ضع هذا الأمر في حدث بعد التحديث للنموذج الأول : Private Sub Form_AfterUpdate() On Error Resume Next [Forms]![Form2].Requery End Sub

تعديل على كود أستاذنا @مبرمج سابق ليوافق سؤالك 🙂 : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[LockupFeildInTheTable] = " & Me.FeildInTheFormTxt If Not rs.NoMatch Then If MsgBox("هذه القيمة مكرره هل توافق على التكرار.", vbYesNo, "تنبيه") = vbNo Then Cancel = True End If Else End If rs.Close Set rs = Nothing End Sub

جرب الآن أخي أبو البشر 🙂 إرسال مع مرفقات .. ABO.mdb

جرب إضافة هذه قبل الرابط : http:\\

تفضل 🙂 ABO.mdb

جرب استخدم هذه الدالة لفتح الملفات : Public Sub OpenPath(strPath As String) Shell "explorer.exe" & " " & strPath, vbNormalFocus End Sub وطريقة استخدامها بالشكل التالي : OpenPath "C:\Windows"

أخي أبو الحسن رفع الله قدرك 🙂 ألاحظ أنك كلما تنزل موضوع وفيه نفس هذا البرنامج أنك لا تقدم كل المعطيات اللتي يحتاجها الإخوة لتقديم المساعدة .. - البرنامج له واجهة ( اسم مستخدم وكلمة سر ) ... !! لا تتوقع أننا عارفينها وحافظينها 😅 لازم تخبرنا بها كل مرة . - النموذج الذي تذكره مرتبط بتسجيل الدخول ولا يفتح ويعلق إلا إذا دخلنا باسم المستخدم وكلمة المرور . - وبهذا سيضطر الإخوة لإعادة سؤالك عن هذه المعطيات ( الأساسية ) كل مرة !! وهذا في اعتقادي سبب التأخر في الرد على مواضيعك دائما 😏 ومنك المعذرة .. أعتبرها نصيحة من أخوك المسلم 😊🌹