Temat: Northwind - blokowanie

Witam,
Na bazie Nortwind próbuję zrobić bazę dostosowaną do moich potrzeb. Utknęłam w momencie, kiedy chciałam powiększać formularz Szczegóły zamówienia zakupu>szczegóły zakupu i Szczegóły zamówień > szczegóły zamówień. Po dodaniu zamówień zakupu oraz zamówień sprzedaży i ich zatwierdzeniu nie można ani powiększać kolumn, ani przeglądać zamówień, które mają większą liczbę rekordów i trzeba suwakiem zjechać w dół, ponieważ suwaki też są zablokowane. Podejrzewam, że odpowiada za to jakaś formuła w procedurze zdarzenia. Ale która dokładnie, zupełnie nie mam pojęcia. Rozumiem, że chodzi o to aby zablokować możliwość zmiany produktów dodanych już do magazynu, ale tutaj jest zablokowane nawet przeglądanie. Prośba o pomoc jak to zmienić, aby była nadal zablokowana możliwość edycji po zatwierdzeniu zamówienia, ale żeby działało powiększanie kolumn oraz żeby działały suwaki.
Pozdrawiam,
Kasia

Temat: Northwind - blokowanie

Dzień dobry,
Za zablokowanie karty odpowiedzialna jest ta o to funkcja

Public Sub InitFormState()

    Dim Status As PurchaseOrderStatusEnum

    

    Me.Supplier_ID.SetFocus

    

    Status = Nz(Me![ID stanu], New_PurchaseOrder)

    

    Me.cmdSubmitforApproval.Enabled = (Status = New_PurchaseOrder)

    Me.cmdApprovePurchase.Enabled = (Status = Submitted_PurchaseOrder)

    Me.cmdCancelPurchase.Enabled = (Status <> New_PurchaseOrder)

    

    If IsNull(Me![Supplier ID]) Then

        Me.[Purchase Details_Page].Enabled = False

    Else

        Me.[Purchase Details_Page].Enabled = (Status = New_PurchaseOrder) Or (Status = Submitted_PurchaseOrder)

    End If

    

    Me.[Inventory Receiving_Page].Enabled = (Status = Approved_PurchaseOrder)

    Me.[Payment Information_Page].Enabled = (Status = Approved_PurchaseOrder)

       

    Me.AllowEdits = Not (Status = Closed_PurchaseOrder)

    Me.AllowDeletions = Not (Status = Closed_PurchaseOrder)

End Sub

A dokładniej ten fragment z "ifem". Jest on odpowiedzialny za wyłączenie całej karty w przypadku gdy ID dostawcy nie jest nullowe oraz status zamówienia nie jest równy nowemu zamówieniu lub nie jest równy zatwierdzonym do realizacji.

Zamiast tego ja osobiście użyłbym jakichś zdarzeń dla tego formularza o nazwie "sbfPurchaseDetails", który jest w tej karcie. Coś w rodzaju:

  If IsNull(Me![Supplier ID]) Then

        Me!sbfPurchaseDetails.Form.AllowEdits = False

    Else

        Me!sbfPurchaseDetails.Form.AllowEdits = (Status = New_PurchaseOrder) Or (Status = Submitted_PurchaseOrder)

    End If

Pozdrawiam

Edit:
..nie jest nullowe...Ten post został edytowany przez Autora dnia 05.11.20 o godzinie 20:39

Temat: Northwind - blokowanie

Dziękuję ślicznie, działa :-)
Pozdrawiam,