Get Object name

Hvilken type control er de 10 objekter?

Det er labels jeg bruger til at sende caption.value til

Kan man lave en "global dump" eller noget og hente værdien fra en anden kode!?

Er det ikke et spørgsmål om at en kode liggende under hver label

F.eks.:

Private Sub Label1_Click()
    mess 1
End Sub
Private Sub Label2_Click()
    mess 2
End Sub
Private Sub Label3_Click()
    mess 3
End Sub
Private Sub mess(nr)
    MsgBox ("Label" + CStr(nr))
End Sub

eller ?

Private Sub Label1_Click()
    set dump = 1
    Call min kode
End Sub
Private Sub Label2_Click()
    Set dump = 2
    Call min min kode
End Sub
Private Sub Label3_Click()
    Set dump =3
    Call min kode
End Sub
Private Sub Min kode(nr)
get dump 
D = dump
for x = D to 10
osv.
End Sub

pt har jeg en lang kode i hver og det set jo ikke godt ud,

men for hver label man trykker på sletter den sig selv og rykker resten med så label9.value bliver til label10.value

men en kode for hver hvor X = nr på den lable to 10

Det lyder "lidt teknisk" - men du må gerne sende filen m/kode - så er det måske lidt nemmere at overskue.

Men det vil "lette ekspeditionen", at din målsætning er tydeliggjort.

(mail-adresse under profil)

Private Sub Rules1_Click()
Dim Msg, Style, Title, Response
Set r = Rules1
If r = Enpty Then Exit Sub:
Msg = "Do you want to Delete this rule!? " & r
Style = vbYesNo + vbCritical + vbDefaultButton2: Title = "Delete rule!?..."
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Rules1 = Empty
For x = 2 To 10
Me("Rules" & x - 1) = Me("Rules" & x)
Me("Rules" & x) = Empty
Next x
End If
End Sub

den rykker bare værdien et label for hver, det er så den første kode der er så en for hver lable bare med for x = 3 to 10 osv


men hvis jeg F.eks laver en tekstboks kalder den dump

og i hver label giver den koden
dump = 1
call kode

i min kode som skal skal bare have

D = dump
for x = D to 10

men jeg vil gemme værdien i rammen til koden, den kalder er færdig
som en global string

det er nok ikke helt det samme som af få navnet på det object, men langt nemmere for så skal jeg få koden til at fjerne teksten for at få nummert på det object

ville gerne sende filen men det vil tage meget lang tid at forklare hvor og i hvilken userform der er snakke om for der er alt for mange heh

men der ser sådan her ud

1[Label] 6[Label]
2[Label] 7[Label]
3[Label] 8[Label]
4[Label] 9[Label]
5[Label]10[Label]

Hvis jeg klikker på label 4 rykker den 5 til 4, 6 til 5 osv so 10 vil være tom gør jeg det en gang til vil 9 og 10 være tomme

og værdien i label4 vil være 7,

det er endelig bare den string jeg ikke har styr på, :/

Private Sub Rules1_Click()
Dim X at string
set X = 1
Call macro
End Sub

Private Sub macro(x)
Dim X at string
msgbox (x)
End Sub

Hvad er formålet med koden?

der er en del at en database hvor man tilføjer nogle regler til en enhed.

så hvis man har tilføjet en regl ud fra en combobox, og klik på en CommandButton ser den først om der er plads i de 10 labels hvis der er ser den om reglen allerede findes i de 10 labels hvis ikke tager den den første hvis den ikke er tom ellers tager den den næste i rækken, up to 10

det jeg så skal bruge er hvis man har ved en fejl lage en forkert regl ind i en af de 10 labels kan man slette den ved at klikke på den label med navnet på den regl, og den vil så rykke de andre regler så de er i en række uden tomme labels

så når man tilføjer værdien fra de 10 labels til databasen vil den være værdierne der kommer først og så de tomme,

Ok & tak..

nogle idéer til hvordan jeg kan sende en string til en anden kode?

måske noget med

call kode(x) men det er bare en tanke har ikke prøvet

Eks.:

dim tekst
tekst = "xxx"
call kode, tekst
...
...
sub kode(tekst)
  label1.caption = tekst
end sub

Rettelse:

Sub eks()
Dim tekst
    tekst = "xxx"
    Call kode(tekst)
End Sub
Sub kode(tekst)
  Label1.Caption = tekst
End Sub

for at mine labels kan virke skal de være Private.
har bare lavet en tekstboks som en "Dump" så virker det som det skal..

Private Sub Rules1_Click()
Dump = 2
Call Rulesdelete
End Sub
Private Sub Rules2_Click()
Dump = 3
Call Rulesdelete
End Sub
Private Sub Rules3_Click()
Dump = 4
Call Rulesdelete
End Sub
Private Sub Rules4_Click()
Dump = 5
Call Rulesdelete
End Sub
Private Sub Rules5_Click()
Dump = 6
Call Rulesdelete
End Sub
Private Sub Rules6_Click()
Dump = 7
Call Rulesdelete
End Sub
Private Sub Rules7_Click()
Dump = 8
Call Rulesdelete
End Sub
Private Sub Rules8_Click()
Dump = 9
Call Rulesdelete
End Sub
Private Sub Rules9_Click()
Dump = 10
Call Rulesdelete
End Sub
Private Sub Rules10_Click()
If Rules10 = Enpty Then Exit Sub
Msg = "Do you want to Delete this rule!?" & Rules10
Style = vbYesNo + vbCritical + vbDefaultButton2: Title = "Delete rule!?..."
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Rules10 = Empty
End If
End Sub
Sub Rulesdelete()
Dim Msg, Style, Title, Response
Set r = Dump
If Me("Rules" & r - 1) = Enpty Then Exit Sub
Msg = "Do you want to Delete this rule!?" & Me("Rules" & r - 1)
Style = vbYesNo + vbCritical + vbDefaultButton2: Title = "Delete rule!?..."
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
For x = r To 10
Me("Rules" & x - 1) = Me("Rules" & x)
Me("Rules" & x) = Empty
Next x
Dump = Empty
End If
End Sub

men smid et svar for din tid :)

Ok..