🚀 go-pugleaf

On 19 Sie, 13:27, "Krzysztof Naworyta" <k.nawor...@datacomp.com.pl>
wrote:
> siwy5 wrote:
>
> | Mam zadeklarowany swój typ danych  dla uproszczenia
> | firma.ulica
> |
> | Teraz potrzebuje odwołać się do firma.ulica gdzie ta nazwa ulica
> | zaszyta jest w polu bazy
> | Mogoby to wyglądać np. tak
> | firma(rst.NazwaZmiennej) = "Rynek 40"
> | gdzie w rst.nazwaZmiennej zaszyte jest słowo ulica
> | Oczywiście to nie działa
>
> nie działa i raczej nie zadziała.
>
> Można własny typ danych zastapić własną klasą (choćby trywialną) z dodatkową
> właściwością Properties:
>
> ******* Class1 ****************
>
> Option Compare Database
> Option Explicit
>
> Public a As Integer       'Twoje zmienne
> Public b As Date
> Public c As String
>
> 'właściwość zwracająca wartość właściwości wg jej nazwy:
>
> Public Property Get Properties(sProperty As String) As Variant
> On Error Resume Next
>   Set Properties = CallByName(Me, sProperty, VbGet)
>   If Err = 13 Then
>      Properties = CallByName(Me, sProperty, VbGet)
>      Err.cler
>   End If
> End Property
>
> 'właściwość ustawiająca wartość właściwości wg jej nazwy:
>
> Public Property Let Properties(sProperty As String, NewVal As Variant)
>   If IsObject(NewVal) Then
>     CallByName Me, sProperty, VbSet, NewVal
>   Else
>     CallByName Me, sProperty, VbLet, NewVal
>   End If
> End Property
>
> ********************************
>
> i teraz gdzieś w innym module:
>
> Sub test()
>   Dim x As Class1
>   Set x = New Class1
>
>   With x
>     .Properties("a") = 4
>     .Properties("b") = #1/1/2008#
>     .Properties("c") = "Ala ma kota"
>
>     Debug.Print x.a, x.b, x.c
>
>   End With
>
> End Sub
>
> --
> KN

I to jest to o co mi chodziła ale ja robiłem to na zmiennej rekordowej
Jest jeszcze mały problem. Klasy nie widzi mi między plikami mdb
Mam trzy pliki, funkcje i zmienne są widoczne i działają a klasy nie
widzi w innym pliku niż jest zadeklarowana. Można to zmianić? obejść?
Pozdr
Daniel