الاخ الفاضل كمال النحال كل سنة وانت طيب ياراجل يا طيب وعيد سعيد عليك
الاستاذ كمال والله صراحة من غير زعل حضرتك توهتنى فى برنامجك حاولت اقوم بعمل مثله ولكن لا استطيع تارة اجد نموذج معين مثل نموذج الشركة لا يغلق تماماً الا عندما اقوم بقفل الجهاز وتارة افتح نموذج اجدل رسالة خطأ فى نافذة الفيجول بيسك اخى والله لو وضعت شرح كل ما انجزته فى هذا البرنامج ليكون افضل بكثير احسن من اننا ناخذ البرنامج على علته ثم نقوم بالعمل عليه وعندما تحدث اخطاء فلا نستطيع معالتجها اخى سوف انسخ لك بعض الاوامر لتشرح لى ما هى فى الوحدة النمطية modMain
Option Compare Database
Option Explicit
Sub SortAccounts()
On Error Resume Next
Dim MaxOrder As Long
Dim Digits As Integer
MaxOrder = DMax("AccID", "Accounts")
If MaxOrder <= 1 Then
Exit Sub
End If
Digits = Len(MaxOrder & "")
CurrentDb.Execute "Update Accounts Set AccSort= " & _
"AccID * (10 ^ (" & Digits & "- Len(AccID)))"
End Sub
والوحدة النمطية الثانية Module1
Option Compare Database
Global dbs As Database
Global Q1 As Recordset
Global Q2 As Recordset
كذلك ممكن تشرحلى وظيفة هذه الاوامر دى وهى خاصة بنموذج الشركة
Option Compare Database
Private Sub Form_Load()
Dim QRY As String
QRY = "SELECT * FROM CO;"
Set Q2 = CurrentDb().OpenRecordset(QRY)
S1 = Q2!i
S2 = Q2!j
S3 = Q2!T
S4 = Q2!F
End Sub
Private Sub ÃãÑ8_Click()
Q2.Edit
Q2!i = S1
Q2!j = S2
Q2!T = S3
Q2!F = S4
Q2.Update
DoCmd.close
End Sub
والله فى حاجات عاوزه استفسر عنها ولكن لا احب ان اثقل عليك ولكن انا اقوم بمعرفة كل شئ بالتفصيل
وانا اسفه على ذلك
