Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 75464 Skopiuj do schowka Formularz uzupełniający bazę o brakujące dane
Autor Wiadomość
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 217
Wysłany: 25-01-2024, 11:31   

Dzięki. Teraz działa nie tylko z cyframi.
Ale dlaczego nie pobierają się do formularza nazwiska zawodników?
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433007 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 217
Wysłany: 25-01-2024, 11:34   

Dzięki. Po usunięciu dzaiła.
Ale dlacze nazwiska i imiona zawodników nie pobierają się do formularza?
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433008 Skopiuj do schowka
 
 
master_mix 
Excel Expert



Wersja: Win Office 365
Pomógł: 1292 razy
Posty: 2625
Wysłany: 25-01-2024, 23:34   

Nie wiem jak twój docelowy arkusz się zmienił.
Wszystkie dane są pobierane z akrusza i wiersza w którym była kliknięta komórka uruchamiająca formularz.
Dane z tego samego wiersza.

Wszystko jest w klasie ClassGameList, metoda: GameActivate
_________________

Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie.
ID posta: 433020 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 217
Wysłany: 26-01-2024, 07:56   

Ale w klasie ClassGameList, metoda: GameActivate nie ma zdefiniowanego pola formularza opisującego: Nazwisko i Imię 1 (ZawodnikLewy) oraz Nazwisko i Imię 2 (ZawodnikPrawy).
Kod:
Public Sub GameActivate(ByVal nrMeczu As String)
   
    Dim x As Long
    Dim gData As ClassGameData
    Dim gElement As ClassGameElement
   
    Set gData = New ClassGameData
    Set gElement = FindGameElement(nrMeczu)
    Set actElement = gElement
    With gData
        Set .gameElement = gElement
        .NazwaTurnieju = arkInfo.Range("C3").Value
        '.nrMeczu = gameSheet.Cells(gElement.ArkRow, "V").Value
        .NrStolu = gameSheet.Cells(gElement.ArkRow, "W").Value
        .NawiskoL = gameSheet.Cells(gElement.ArkRow, "X").Value
        .NawiskoP = gameSheet.Cells(gElement.ArkRow, "Y").Value

        For x = LBound(arrColl) To UBound(arrColl) Step 2
            .AddGame gameSheet.Cells(gElement.ArkRow, arrColl(x)).Value, _
                gameSheet.Cells(gElement.ArkRow, arrColl(x + 1)).Value
        Next
    End With
   
    Set actGdata = gData
    RaiseEvent ActiveGame(actGdata)
   
End Sub

Kolumna X to kolumna w której jest Zawodnik Lewy a kolumna Y to kolumna w której jest Zawodnik Prawy. Nie wiem co to jest "NawiskoL" i "NawiskoP" w kodzie tej procedury. Nie ma błędu w kodzie jest Nawisko nie Nazwisko. Ale wstawienie"z" i zmiana z Nawiska na Nazwisko też nic nie zmienia. Nazwa pola które powinno pobrać nazwę to wg. formularza "ZawodnikLewy" i "ZawodnikPrawy" a Caption to "Nazwisko i Imię 1" oraz "Nazwisko i Imię 2" i to Caption powinen przyjąć wartości z komórek w wierszu i kolumn X i Y.
Przesyłam w plikach zrzut ekranu z opisem formularza oraz mój plik po zmianach.

Zrzut ekranu 2024-01-26 074025.png
Plik ściągnięto 3 raz(y) 356.48 KB

WTK-1-1 25.01.2024.xlsm
Pobierz Plik ściągnięto 23 raz(y) 255.43 KB

_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433032 Skopiuj do schowka
 
 
master_mix 
Excel Expert



Wersja: Win Office 365
Pomógł: 1292 razy
Posty: 2625
Wysłany: 26-01-2024, 08:35   

aaaa, ok, nie zauważyłem tego
w kodach formularza w zdarzeniu MyGames_ActiveGame
dopisz na końcu przed End With
Kod:

ZawodnikLewy.Caption = .NawiskoL
ZawodnikPrawy.Caption = .NawiskoP
_________________

Podejmę współpracę (pracę)
Programowanie C#, Android, iOS, VB.NET, VBA, ASP.NET Core, WPF, Xamarin, Power Platforms, XAML, MVC, LINQ, Entity Framework. Bazy danych SQL Server, Oracle, MySQL, Firebird
Wrocław i okolice …lub zdalnie.
ID posta: 433033 Skopiuj do schowka
 
 
Tadek 
Excel Expert


Wersja: Win Office 2010
Pomógł: 2210 razy
Posty: 6103
Wysłany: 26-01-2024, 08:36   

Ten fragment kodu:
Kod:
    With gameData
        NrStolu.Text = gameData.NrStolu
        Zwyciezca.Text = .Zwyciezca
        sD = .setData
zamień na taki:
Kod:
    With gameData
        NrStolu.Text = .NrStolu
        ZawodnikLewy = .NawiskoL
        ZawodnikPrawy = .NawiskoP
        Zwyciezca.Text = .Zwyciezca
        sD = .setData
ID posta: 433034 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 217
Wysłany: 26-01-2024, 09:36   

Dziękuję.
Teraz działa.
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 433036 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 217
Wysłany: 04-06-2024, 21:07   

Witaj ponownie.
Powracam do tematu bo w praktyce wychodzi błąd podczas wprowadzania wyników do formularza.
1 set 5-11
2 set 7-11
3 set 11-4
4 set 15-13
5 set 5-11

Wynik 2-3 w setach
a nie można wprowadzić bo wyskakuje błąd.

Zrzut ekranu w załączonym pliku.
Czy można to naprawić?

Gdzieś musi bybłąd w sprawdzaniu poprawności.

Zrzut ekranu 2024-06-04 210028.png
Plik ściągnięto 3 raz(y) 198.1 KB

_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 435696 Skopiuj do schowka
 
 
Tadek 
Excel Expert


Wersja: Win Office 2010
Pomógł: 2210 razy
Posty: 6103
Wysłany: 05-06-2024, 08:16   

W makrze: Private Function ValidationSets() As ValidType
to:
Kod:
If txtL > txtP Then
zamień na to:
Kod:
If txtL * 1 > txtP * 1 Then
ID posta: 435703 Skopiuj do schowka
 
 
partner2001 
Exceloholic


Wersja: Win Office 365
Posty: 217
Wysłany: 05-06-2024, 10:46   

Dzięki.
_________________
Dziękuję za pomoc.
Pozdrawiam
Leszek
ID posta: 435714 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe