osama457

معليش على التطفل لكن هذه إضافة على المثال لزياده الفايدة Text_Num3.zip

المثال مرة ثانيه وايضا http://www.pcpages.com/osama457/STU_Ex1.zip STU_Ex1.zip

لزيادة الفائده هذا نموذج سبق صممته في برنامج مسابقة يختار سؤال عشوائي من جدول الاسئلة بشرط انه ما يكون مسجل في جدول الاسئله المستخدمه ، ثم يسجله في جدول الاسئلة المستخدمة لأجل ما يختار مرة ثانية ممكن تستفيد منه ChooseRnd2.zip

مثال بعدة طرق (حذف المثال)

اولا اعمل شريط قايمة مختصرة أدوات - تخصيص - أشرطه ادوات - جديد وسميه مثلا A ثم ضع لشريط الادوت الجديد الازرار مثل ما تريد ثم ظلل شريط الادوات واختر خصايص وخلي النوع منبثق ثانيا : روح للنموذج وفي خصايص النموذج - غير ذلك - قايمة مختصرة: نعم - شريط القوايم المختصره: A

الكود لعموم الفايدة Option Compare Database Option Explicit Dim GroubsCount As Integer Function GroubNumber(ByVal InNumber As Integer) As Integer GroubsCount = DFirst("[b_Groubs]", "[b_tbl]") If GroubsCount = 0 Then Exit Function InNumber = TrueSerial(InNumber) If InNumber Mod GroubsCount = 0 Then GroubNumber = GroubsCount Else GroubNumber = InNumber Mod GroubsCount End If End Function Function SerialNumber(ByVal InNumber As Integer) As Integer GroubsCount = DFirst("[b_Groubs]", "[b_tbl]") If GroubsCount = 0 Then Exit Function InNumber = TrueSerial(InNumber) If InNumber Mod GroubsCount = 0 Then SerialNumber = (InNumber - (InNumber Mod GroubsCount)) / GroubsCount Else SerialNumber = (InNumber - (InNumber Mod GroubsCount)) / GroubsCount + 1 End If End Function Private Function TrueSerial(ByVal InNumber As Integer) As Integer Dim dbs As Database Dim rst As Recordset Dim I As Integer Set dbs = Application.CurrentDb Set rst = dbs.OpenRecordset("Code_Q", dbOpenSnapshot) If rst.RecordCount <> 0 Then rst.MoveFirst Do Until rst.EOF I = I + 1 If InNumber = rst!a_Number Then InNumber = I Exit Do End If rst.MoveNext Loop End If rst.Close Set rst = Nothing Set dbs = Nothing TrueSerial = InNumber End Function

المثال http://www.pcpages.com/osama457/SerialInGroub2.zip فيه استعلامين Simple_Q هذا بدون كود لكن لازم تكون الارقام المسجلة متسلسلة يعني بدون ارقام مفقودة ، ولازم تكون السجلات مفروزة حسب الرقم Code_Q بالكود ، ويمشي حتى لو كانت الارقم المسجلة ملخبطة وناقصة . SerialInGroub2.zip