كيف أعمل تعديل و اضافة على حقول جدول من نموذج جدول آخر ؟؟

الاخوة الاعزاء

ياليت لو احد يعرف اي حل

يمكنك عمل ذلك من خلال منع تكرار او ازدواج الادخال لحقل الغرف no duplicate في عرض التصميم في الجدول حقل الغرف المحجوزة

1the_rooms.rar

وعليكم السلام أخي علي :)

1. غير الجدول the_rooms الى

2. ضع زر على النموذج ليضيف البيانات في الجدول ، وضع الكود التالي على حدث ضغط الزر:

Private Sub cmd_Confirm_Booking_Click()

    Dim mySQL As String
    
    'check if the room is available
    Which_Room = "room_" & Me.room_booked
    
    'is it in the Table
    If Not IsNull(DLookup(Which_Room, "the_rooms", Which_Room & "='Booked'")) Then
        MsgBox "Record available already"
        Exit Sub
    End If
    
    'append
    'mySQL = "INSERT INTO the_rooms ( " & Which_Room & " ) SELECT 'Booked'"
    
    'update
    mySQL = "UPDATE the_rooms SET " & Which_Room & "='Booked'"
    Debug.Print mySQL
    
    CurrentDb.Execute (mySQL)
    
End Sub

جعفر

233.the_rooms.accdb.zip

شكرا لكم اخواني وجزاكم الله خيرا

:)