السلام عليكم
وضعت ملف البيانات على الشبكة على طريقة ال Link Tables
لكن قابلتني مشكلة في رقم السند وهي ان رقم السند يظهر انه مكرر لان المستخدم الاخر استخدمه ويتم رفض العملية
ما اريده هو ان قبل ان يحفظ السند يعمل مراجعة على رقم السند + 1
الكود التالي هو ما استخدمه لكنه لا يعمل او كيف اجعله يعمل refresh او requery قبل عملية الحفظ؟
Me![TRANS_NO] = Nz(DMax("[TRANS_NO]", "[TRANSACTIONS]")) + 1
والسلام ختام
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
لديك حلين
الحل الأول : هو ان تقوم مشكورا بجعل رقم السند مفهرس بدون تكرار وبهذا تتغلب على اي مشكلة لتكرار رقم السند
الحق الثاني :
مراجعة هذا الرابط الخاص بمشاركة قواعد البيانات اكسيس على الشبكة
ومن ثم القيام بتغيير الفاصل الزمني لتحديث السجلات الى 5 ثواني بدلا من 60 ثانية حتى لا تعطي للمستخدم الآخر فرصة لكي يقوك بتحرير سجل جديد حتى يتم حفظ السجل الذي تم الإنتهاء منه
راجع الصور المرفقة في المشاركة لتعرف الطريقة .
السلام عليكم
شكرا على ردك الكريم
لكن اريد شيء اسهل او غير معقد
ما اريده هو كود لعمل refresh او requery لملف السنداد الا وهو TRANSACTIONS TABLE
بحيث اضع الكود قبل عملية الحفظ؟
اعتقد هذا اسهل بكثير ؟
والسلام ختام
اخي الفاضل اذا كنت تريد هذه الطريقة
فإليك الطريقة ضع هذا الكود في حدث قبل الإدارج الخاص بالنموذج
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = Nz(DMax("[ID]", "[Table]"), 0) + 1
End Subوهذا مثال على هذه الطريقة
السلام عليكم
الصراحة فكرة سديدة وجميلة انت رائع جدا
لكن للاسف لا تعمل معي هذه الفكرة لان النموذج الذي استخدمه عبارة عن نموذج updat اعني unbound يضيف
سند القبض عن طريق update query?
فهل هناك فكرة اخرى؟
التالي الكود الذي استخدمه لحفظ السند الرجاء النظر اليه اكيد هناك حل ما؟
Dim c As Integer
c = DCount("[TRANSACTIONS]![TRANS_NO]", "TRANSACTIONS", "([TRANSACTIONS]![TRANS_NO]=Forms![TRANS-ENTRY]![TRANS_NO]) AND ([TRANSACTIONS]![TRANS_DATE] =Forms![TRANS-ENTRY]![TRANS_DATE] )")
If (IsNull(Forms![TRANS-ENTRY]![OUT])) Or Forms![TRANS-ENTRY]![OUT] = 0 Or (IsNull(Forms![TRANS-ENTRY]![CUSTOMER_NAME_1])) Or (IsNull(Forms![TRANS-ENTRY]![POR])) Or (c >= 1) Then
MsgBox ("ÔÜÑæØ ÇÏÎÜÇÏ ÇáÓäÜÏ áÜã ÊßÊãÜá¿ ÍÜÇæá ãÜÑÉ ÃÎÜÜÑì áÜæ ÓãÍÜÊ ¿ž"), vbCritical + vbDefaultButton1, "***ÎØÜÜÜÜÃ***"
Me![POR].SetFocus
Exit Sub
End If
Dim mydb As Database, mytable As Recordset
Set mydb = CurrentDb
Set mytable = mydb.OpenRecordset("TRANSACTIONS")
If MsgBox("åÜá ÊÑíÜÏ ÇáÇÓÊãÜÜÜÑÇÑ ÝÜí ÚãáíÜÜÉ ÇáÍÝÜÜÙ", vbExclamation + vbYesNo, "***ÊäÈíÜÜÜÜÜå***") = vbYes Then
mytable.AddNew
mytable!CUS_CODE = [Forms]![TRANS-ENTRY]![CUS_CODE]
mytable!CUSTOMER_NAME_1 = [Forms]![TRANS-ENTRY]![CUSTOMER_NAME_1]
mytable!USER_NAME = [Forms]![TRANS-ENTRY]![uSER_NAME]
mytable!TRANS_DATE = [Forms]![TRANS-ENTRY]![TRANS_DATE]
mytable!CUS_CODE = [Forms]![TRANS-ENTRY]![CUS_CODE]
mytable!OUT = [Forms]![TRANS-ENTRY]![OUT]
mytable!TRANS_TYPE = [Forms]![TRANS-ENTRY]![TRANS_TYPE]
mytable!TRANS_NO = [Forms]![TRANS-ENTRY]![TRANS_NO]
mytable!MONTH = [Forms]![TRANS-ENTRY]![MONTH]
mytable!POR = [Forms]![TRANS-ENTRY]![POR]
mytable!CASH = [Forms]![TRANS-ENTRY]![CASH]
mytable!CHEQUEYN = [Forms]![TRANS-ENTRY]![CHEQUEYN]
mytable!CHEQUE_NO = [Forms]![TRANS-ENTRY]![CHEQUE_NO]
mytable!BANK_CODE = [Forms]![TRANS-ENTRY]![bANK_CODE]
mytable.Update
Else
Me![POR].SetFocus
Exit Sub
End If
mytable.Close
Set mydb = Nothing
'Me![TRANS_NO] = Nz(DMax("[TRANS_NO]", "[TRANSACTIONS]")) + 1
'Me![LASTTRANS_NO] = Nz(DMax("[TRANS_NO]", "[TRANSACTIONS]")) + 1
Me![TRANS_DATE] = Date
Me![OUT] = 0
Me![CUS_CODE] = ""
Me![CUSTOMER_NAME_1] = ""
Me![POR] = "ÏÝÚå"
Me![CASH] = True
Me![CHEQUEYN] = False
Me![CHEQUE_NO] = Null
Me![bANK_CODE] = Null
Me![bANKNAME] = Null
Me![CHEQUE2].Visible = False
Me![CHEQUEYN].Visible = False
Me![CHEQUE_NO].Visible = False
Me![NO].Visible = False
Me![bANK_CODE].Visible = False
Me![bANK].Visible = False
Me![bANKNAME].Visible = False
Me![POR].SetFocus
Me![totrec].Requery
End Sub
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…