🚀 go-pugleaf

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