ان يتم البحث عن اكبر قيمه فى خانه الترقيم التلقائى
ثم تجمع عليه واحد
كما يلى :-
كود :
cn1.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path + "\Sys.mdb;Jet OLEDB:Database"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open " select max(CompanyID)from CompanyINFO ", cn1, adOpenKeyset, adLockOptimistic
Dim X As Integer
Text1.Text = 0
Text1.Text = rsitem1.Fields(0).Value
Text1.Text = Text1.Text + 1
rsitem1.Close
حيث sys.mdb هى قاعده البيانات
و الـ CompanyINFO هو اسم الجدول
و الــ CompanyID هى التى سيتم زياده الرقم التلقائى بداخلها
و نقوم بأخذ قيمتها فى التكست بوكس رقم واحد
ثم نجمع القيمه المأخوذة + 1
لتعطى الرقم الجديد
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم