• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

ابو سلاف

اعضاء
  • عدد المشاركات

    111
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

5 عادي

عن ابو سلاف

  • الرتبة
    عضو
  1. السلام عليكم كيف أبحث بهذه الطريقة : لدي جدول به تاريخ بداية وتاريخ نهاية  date_start و date_end لدي حقلين غير منظمين في النموذج str  و end   هناك مجموعة من السجلات اريد وضع معيار في الاستعلام بحيث يظهر لي مجموعة السجلات التي تقع قبل البداية وبعد النهاية ولا يظهر أي سجل تتداخل فيه التاريخين بناءاً على الحقوق غير المنظمة .
  2. السلام عليكم كيف أبحث بهذه الطريقة : لدي جدول به تاريخ بداية وتاريخ نهاية  date_start و date_end لدي حقلين غير منظمين في النموذج str  و end   هناك مجموعة من السجلات اريد وضع معيار في الاستعلام بحيث يظهر لي مجموعة السجلات التي تقع قبل البداية وبعد النهاية ولا يظهر أي سجل تتداخل فيه التاريخين بناءاً على الحقوق غير المنظمة .
  3. السلام عليكم كيف أبحث بهذه الطريقة : لدي جدول به تاريخ بداية وتاريخ نهاية  date_start و date_end لدي حقلين غير منظمين في النموذج str  و end   هناك مجموعة من السجلات اريد وضع معيار في الاستعلام بحيث يظهر لي مجموعة السجلات التي تقع قبل البداية وبعد النهاية ولا يظهر أي سجل تتداخل فيه التاريخين بناءاً على الحقوق غير المنظمة .
  4.   بعد إذن صاحب الموضوع يشترط للاستفادة من قواعد بيانات sql وجود استضافة ويندوز وهي رخيصة إذا كانت مشتركة أما إذا كانت غير مشتركة فالسعر أعلى وهناك عدة شركات تقدم هذه الخدمة وأفضلها الأجنبية إبحث في قوقل عن استضافة ويندوز .
  5. الطريقة الأفضل من وجهة نظري هو استخدام أحد امرين : 1- ربط الأكسس بجداول mysql عبر الانترنت . 2- ربط الأكسس بقاعدة بيانات sql server عبر الانترنت سواء استضافة مشتركة أو VPS .   وفي جميع الأحوال سرعة النت ومواصفات الاستضافة هي الفيصل .
  6. أخي الكريم سأقول لك ماطبقته أنا وتم بنجاح : لدي جهازين الأول قمت بتثبيت windows server 2008r2 والآخر ويندوز 7 أو أي ويندوز . على الجهاز الأول بعد التثبيت قمت بتحويله من مجموعة عمل الى دومين وقمت بتثبيت الـ DNS و الـ DHCP . الآن أصبح السيرفر عبارة عن مجال يمكن الارتباط به من اي جهاز ومنحه آيبي . قمت بانشاء مستخدم جديد في السيرفر . قمت بتثبيت  sql server 2008r2 على السيرفر مع العلم ان مايكروسوفت لا تنصح بتثبيته على دومين ( مجال ) لأغراض أمنية . قمت بانشاء اسم مستخدم في sql server وربطه بمستخدم اليوزر في ويندوز سيرفر . ربط الجهاز مع السيرفر من خلال سوتش شبكة . من الجهاز الآخر قمت بالانضمام الى المجال باستخدام اليوزر والباس المسجل بالسيرفر . الآن اصبح الجهاز الآخر كلاينت مرتبط مع السيرفر وله آيبي خاص به . من ODBC الجهاز الآخر ابحث عن السيرفر سيظهر لك اسمه واختر قاعدة البيانات .   تحياتي
  7. بارك الله فيك أخي ابو يوسف هذا المطلوب بالضبط شكرا لك . وتحيه وشكر وتقدير لأخي أبو محمد .
  8. بارك الله فيك لم أتحدث عن الصلاحيات اطلاقاً والكود الأخير هو فقط للتوضيح . اعلم جيداً الفرق بين جدول للمستخدمين وآخر للصلاحيات وما تطرقت له فقط معلومة اضافية للمستخدم لن تكون مطلوبة الا عند اضافة مستخدم جديد وتظهر تلقائياً بعد دخول المستخدم لأي نموذج بعد وضع الكود المناسب .   البرنامج بالفعل يحتوي على جدولين منفصلين للمستخدمين وآخر للصلاحيات وبالتأكيد هذا الأمر منطقي كما في المثال وكما تفضلت به أخي الكريم . اعلم جيدا الاكواد والدوال التي يمكنني من خلالها استدعاء قيمة من نموذج نشط أو من جدول بوضع شروط خاصة وهي احد الحلول ولكني اريد تجربة هذا الامر لابتعد عن كثرة الاكواد وجعل المصدر ثابت .   اشكرك جزيلا أخي العزيز وإن أمكن تقوم بالتعديل حسب المطلوب . والله ولي التوفيق
  9. بارك الله فيك أخي الكريم تعبتك معايا القصد هو كالتالي : وضع العنوان كما تفضلت به ولكن أن يكون مدمج بشكل تام مع البرنامج بمعنى انه عندما اقوم باضافة مستخدم جديد ادخل اسم المستخدم وكلمة المرور والعنوان وهذا يتطلب التعديل على كود اضافة مستخدم من النموذج user name : Dim N As Long DoCmd.SetWarnings False If IsNull([UN]) Then MsgBox "ÃÏÎá ÇÓã ÇáãÓÊÎÏã", vbOKOnly + vbMsgBoxRight, "äÞÕ ÈÇáÅÏÎÇá" Exit Sub ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ãÊØÇÈÞÉ" + vbCr + "Ãæ ÃäåÇ ÝÇÑÛÉ" + vbCr + "ÇáÑÌÇÁ ÅÚÇÏÉ ßÊÇÈÉ ßáãÉ ÇáãÑæÑ", vbOKOnly + vbMsgBoxRight + vbExclamation, "ÎØà ÈÇáÅÏÎÇá" Exit Sub ElseIf Nz(OpenArgs, "") = "Add" Then DoCmd.RunSQL "INSERT INTO Users ( UName, PW ) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2;" N = DLast("[SN]", "users") DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRM1) SELECT" & Str(N) & " AS Expr1,FRMS.FRM,FRM1 FROM FRMS;" Else DoCmd.RunSQL "UPDATE Users SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & Str(UNUM) & ");" End If DoCmd.SetWarnings True DoCmd.Closeعلى سبيل المثال قمت بالتعديل كالتالي : Dim n As Long DoCmd.SetWarnings False If IsNull([UN]) Then MsgBox "أدخل اسم المستخدم", vbOKOnly + vbMsgBoxRight, "نقص بالإدخال" Exit Sub ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then MsgBox "كلمة المرور غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال" Exit Sub ElseIf Nz(OpenArgs, "") = "Add" Then DoCmd.RunSQL "INSERT INTO Users1 ( UName, PW, hos_name, mobile, hos_Num, em_name ) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2, '" & hos & "' AS Expr3,'" & Mobile & "' AS Expr4,'" & hosnumber & "' AS Expr5,'" & emname & "' AS Expr6;" n = DLast("[SN]", "users1") DoCmd.RunSQL "INSERT INTO [Frm Ability] (SN,FRM,FRMAR) SELECT" & str(n) & " AS Expr1,FRMS.FRM,FRMAR FROM FRMS;" Else DoCmd.RunSQL "UPDATE Users1 SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & str(UNUM) & ");" End If DoCmd.SetWarnings True DoCmd.closeوقمت باضافة الحقول اللازمة في الجدول وكل شي تمام . الطريقة التي تفضلت بها جيدة وتعمل ولكن ما اردته هو أن يتم التعديل على الموديل Cuser لتصبح هذه الحقول الجديدة متاحة ويمكن استدعائها من اي مكان وعلى أي نموذج اريده بعد عملية الدخول وهذا الأمر يفيدني في عملية تصفية البيانات في النماذج والاستعلامات حسب عنوان او رقم جوال المستخدم .   اضافة : الكود الأصلي من المبرمج كالتالي : Private Sub Form_Open(Cancel As Integer)RefreshDim SF As controlWith MyUser If .GetAbility(Me.Name, OpenForm) Then Me.AllowAdditions = .GetAbility(Me.Name, Add) Me.AllowEdits = .GetAbility(Me.Name, Edit) Me.AllowDeletions = .GetAbility(Me.Name, Del) For Each SF In Me.Controls If SF.ControlType = acSubform Then SF.Form.AllowAdditions = Me.AllowAdditions SF.Form.AllowEdits = Me.AllowEdits SF.Form.AllowDeletions = Me.AllowDeletions End If mes = MyUser.username Next ElseDoCmd.OpenForm "noper" Cancel = True End IfEnd Withلاحظ انه تم استدعاء username من myuser الموجود في الموديل Cuser وجعله قيمة للحقل mes  . اريد نفس الأمر تماما ليصبح مثلا  add=MyUser.Addressee   لا اعرف هل ما أفكر به منطقي وممكن أم الأكتفاء بالحل الذي تفضلت به ابو محمد .   جزاك الله خير
  10. بارك الله فيك يابو محمد ربما لم اوضح المطلوب بشكل جيد   ما اريده هو تعديل جذري بحيث يتم اضافة حقل جديد الى جدول المستخدمين مثلاً عنوان سكن المستخدم او الدولة بحيث انه عند اضافة مستخدم جديد يتم ادخال العنوان وبعد الدخول الناجح يظهر حقلين واحد لاسم المستخدم والآخر لعنوان السكن ويحتاج ذلك ربما الى تعديل الوحدة النمطية .   شكرا لك
  11. السلام عليكم في الرابط نسخه من نظام المستخدمين والصلاحيات  اريد اضافة العنوان مثلاً بعد دخول المستخدم بحيث يظهر اسم المستخدم في الفورم . وشكرا لكم       http://arabteam2000-forum.com/index.php?app=core&module=attach&section=attach&attach_id=82783
  12. بارك الله فيك بالنسبة لعملية الاعداد ماهي الطريقة الصحيحة لذلك ؟
  13. السلام عليكم  ما هو أفضل أسلوب للوصول الى قاعد البيانات من أي مكان ؟ هل الـ  Dedicated  IP    يفي بالغرض بتثبيته على ويندوز سيرفر ليكون هناك شبكة داخلية وفي نفس الوقت يمكن الوصول الى القاعدة خارجياً ؟ هل هناك فرق بين هذه الخدمة وخدمة استضافة VPS ويندوز أم أن السرعة ستكون متطابقة ؟     وشكرا
  14. هل هذا الأمر هو مانحتاجه ؟   You can use a DSN to create linked SQL Server tables in Microsoft Access. But when you move the database to another computer, you must re-create the DSN on that computer. This procedure may be problematic when you have to perform it on more than one computer. When this procedure is not performed correctly, the linked tables may not be able to locate the DSN. Therefore, the linked tables may not be able to connect to SQL Server. When you want to create a link to a SQL Server table but do not want to hard-code a DSN in the Data Sources dialog box, use one of the following methods to create a DSN-less connection to SQL Server. Method 1: Use the CreateTableDef method The CreateTableDef method lets you create a linked table. To use this method, create a new module, and then add the following AttachDSNLessTable function to the new module. '//Name : AttachDSNLessTable'//Purpose : Create a linked table to SQL Server without using a DSN'//Parameters'// stLocalTableName: Name of the table that you are creating in the current database'// stRemoteTableName: Name of the table that you are linking to on the SQL Server database'// stServer: Name of the SQL Server that you are linking to'// stDatabase: Name of the SQL Server database that you are linking to'// stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection'// stPassword: SQL Server user passwordFunction AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) On Error GoTo AttachDSNLessTable_Err Dim td As TableDef Dim stConnect As String For Each td In CurrentDb.TableDefs If td.Name = stLocalTableName Then CurrentDb.TableDefs.Delete stLocalTableName End If Next If Len(stUsername) = 0 Then '//Use trusted authentication if stUsername is not supplied. stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes" Else '//WARNING: This will save the username and the password with the linked table information. stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword End If Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect) CurrentDb.TableDefs.Append td AttachDSNLessTable = True Exit FunctionAttachDSNLessTable_Err: AttachDSNLessTable = False MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.DescriptionEnd FunctionTo call the AttachDSNLessTable function, add code that is similar to one of the following code examples in the AutoExecmacro or in the startup form Form_Open event: When you use the AutoExec macro, call the AttachDSNLessTable function, and then pass parameters that are similar to the following from the RunCode action.AttachDSNLessTable ("authors", "authors", "(local)", "pubs", "", "")When you use the startup form, add code that is similar to the following to the Form_Open event.Private Sub Form_Open(Cancel As Integer) If AttachDSNLessTable("authors", "authors", "(local)", "pubs", "", "") Then '// All is okay. Else '// Not okay. End IfEnd SubMethod 2: Use the DAO.RegisterDatabase methodThe DAO.RegisterDatabase method lets you create a DSN connection in the AutoExec macro or in the startup form. Although this method does not remove the requirement for a DSN connection, it does help you resolve the issue by creating the DSN connection in code. To use this method, create a new module, and then add the following CreateDSNConnection function to the new module. Note You must adjust your programming logic when you add more than one linked table to the Access database.'//Name : CreateDSNConnection'//Purpose : Create a DSN to link tables to SQL Server'//Parameters'// stServer: Name of SQL Server that you are linking to'// stDatabase: Name of the SQL Server database that you are linking to'// stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection'// stPassword: SQL Server user passwordFunction CreateDSNConnection(stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) As Boolean On Error GoTo CreateDSNConnection_Err Dim stConnect As String If Len(stUsername) = 0 Then '//Use trusted authentication if stUsername is not supplied. stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr & "Trusted_Connection=Yes" Else stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr End If DBEngine.RegisterDatabase "myDSN", "SQL Server", True, stConnect '// Add error checking. CreateDSNConnection = True Exit FunctionCreateDSNConnection_Err: CreateDSNConnection = False MsgBox "CreateDSNConnection encountered an unexpected error: " & Err.Description End FunctionNote If the RegisterDatabase method is called again, the DSN is updated. To call the CreateDSNConnection function, add code that is similar to one of the following code examples in the AutoExecmacro or in the startup form Form_Open event: When you use the AutoExec macro, call the CreateDSNConnection function, and then pass parameters that are similar to the following from the RunCode action.CreateDSNConnection ("(local)", "pubs", "", "")When you use the startup form, add code that is similar to the following to the Form_Open event.Private Sub Form_Open(Cancel As Integer) If CreateDSNConnection("(local)", "pubs", "", "") Then '// All is okay. Else '// Not okay. End IfEnd SubNote This method assumes that you have already created the SQL Server linked tables in the Access database by using "myDSN" as the DSN name.   -------------------------- ايضاً : Function LinkTable(DbName As String, SrcTblName As String, _ Optional TblName As String = "", _ Optional ServerName As String = DEFAULT_SERVER_NAME, _ Optional DbFormat As String = "ODBC") As BooleanDim db As dao.DatabaseDim TName As String, td As TableDef On Error GoTo Err_LinkTable If Len(TblName) = 0 Then TName = SrcTblName Else TName = TblName End If 'Do not overwrite local tables.' If DCount("*", "msysObjects", "Type=1 AND Name=" & Qt(TName)) > 0 Then MsgBox "There is already a local table named " & TName Exit Function End If Set db = CurrentDb 'Drop any linked tables with this name' If DCount("*", "msysObjects", "Type In (4,6,8) AND Name=" & Qt(TName)) > 0 Then db.TableDefs.Delete TName End If With db Set td = .CreateTableDef(TName) td.Connect = BuildConnectString(DbFormat, ServerName, DbName) td.SourceTableName = SrcTblName .TableDefs.Append td .TableDefs.Refresh LinkTable = True End WithExit_LinkTable: Exit FunctionErr_LinkTable: 'Replace following line with call to error logging function' MsgBox Err.Description Resume Exit_LinkTableEnd FunctionPrivate Function BuildConnectString(DbFormat As String, _ ServerName As String, _ DbName As String, _ Optional SQLServerLogin As String = "", _ Optional SQLServerPassword As String = "") As String Select Case DbFormat Case "NativeClient10" BuildConnectString = "ODBC;" & _ "Driver={SQL Server Native Client 10.0};" & _ "Server=" & ServerName & ";" & _ "Database=" & DbName & ";" If Len(SQLServerLogin) > 0 Then BuildConnectString = BuildConnectString & _ "Uid=" & SQLServerLogin & ";" & _ "Pwd=" & SQLServerPassword & ";" Else BuildConnectString = BuildConnectString & _ "Trusted_Connection=Yes;" End If Case "ADO" If Len(ServerName) = 0 Then BuildConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & DbName & ";" Else BuildConnectString = "Provider=sqloledb;" & _ "Server=" & ServerName & ";" & _ "Database=" & DbName & ";" If Len(SQLServerLogin) > 0 Then BuildConnectString = BuildConnectString & _ "UserID=" & SQLServerLogin & ";" & _ "Password=" & SQLServerPassword & ";" Else BuildConnectString = BuildConnectString & _ "Integrated Security=SSPI;" End If End If Case "ODBC" BuildConnectString = "ODBC;" & _ "Driver={SQL Server};" & _ "Server=" & ServerName & ";" & _ "Database=" & DbName & ";" If Len(SQLServerLogin) > 0 Then BuildConnectString = BuildConnectString & _ "Uid=" & SQLServerLogin & ";" & _ "Pwd=" & SQLServerPassword & ";" Else BuildConnectString = BuildConnectString & _ "Trusted_Connection=Yes;" End If Case "MDB" BuildConnectString = ";Database=" & DbName End SelectEnd FunctionFunction Qt(Text As Variant) As StringConst QtMark As String = """" If IsNull(Text) Or IsEmpty(Text) Then Qt = "Null" Else Qt = QtMark & Replace(Text, QtMark, """""") & QtMark End IfEnd Function