ربط النموذج بنموذج فرعي مع زر حفظ للبينات

[محسن 2017]

السلام عليكم ورحمة الله وبركاته

 

بارك الله في جهود الاخوة في هذا الموقع الرائع..

 

لدي قاعدة بيانات (لغرض التعلم) في المرفقات

بها جدولين:

1- جدول المستخدمين ( رقم المستخدم (تلقائي) - اسم المستخدم - الايميل - تاريخ الانضمام)

2- جول الحسابات (رقم الحساب - اسم الحساب - اسم المستخدم - نوع الحساب)

 

 

أنشأت نموذج لإدخال اسماء المستخدمين.. لكن أرغي فيما يلي:

1- عند اضافة مستخدم في جدول المستخدمين يضاف له بشكل (تلقائي) 3 حسابات في جدول الحسابات بالشكل التالي:

- نوع الحساب : اشتراكات - ادخارات - مصروفات

- رقم الحساب = (رقم المستخدم + (1000) إذا كان نوع الحساب اشتراكات) أو (رقم المستخدم + (2000) إذا كان نوع الحساب ادخارات) أو (رقم المستخدم + (3000) إذا كان نوع الحساب مصروفات)

- اسم الحساب= (اسم المستخدم + A إذا كان نوع الحساب اشتراكات) أو (اسم المستخدم + B  إذا كان نوع الحساب ادخارات) أو (اسم المستخدم + C  إذا كان نوع الحساب مصروفات)

 

2- لا يتم حفظ بيانات المستخدم أو حساباته إلا بعد الضغط على زر الحفظ في النموذج..

 

اقتباس

Public Sub batchAdd()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim A As String
    Dim B As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("accounts")
    
    i = 1
    
    
    Do While i <= 3
    
        If = 1 Then
            A = "A"
            B = "اشتراكات"
        ElseIf = 2 Then
            A = "B"
            B = "ادخارات"
        ElseIf = 3 Then
            A = "C"
            B = "مصروفات"
        Else
            A = "N"
            B = "N"
        End If
    
    
        rs.AddNew
        rs!AccountNo = (1000 * i) + ([Forms]![Users]![UserNO])
        rs!AccountName = ([Forms]![Users]![UserName]) & " - " & A
        rs!UserName = [Forms]![Users]![UserName]
        rs!AccountType = B
        rs.Update
        i = i + 1

    Loop
      
    
    rs.Close
    
    Set rs = Nothing
    Set db = Nothing

End Sub

 

db.rar

[محسن 2017]

بإنتظار رد المبدعين الكرام.. 

[محسن 2017]

ألا يوجد حل؟؟