Kodning och underformulär.

[Bergh_1976]

Hej.

Jag har lite problem med kodning. Det första är att jag vill ha ett värde som kommer upp automtiskt i en ruta i formulär.

Exempel: En ruta heter Boxsort och där finns ett antal olika boxar 0461, 0462, 0463 o.s.v. sedan har jag en ruta där jag vill att vikten på de olika boxsorterna skall komma upp, 0461 väger 1,8Kg, 0462 väger 2,7kg.

 

Då testade jag med:

If Me.Boxsort = "0461" Then

Me.vikt.???? ="1,8"

End If

If Me.Boxsort = "0462" Then

Me.vikt.???? ="2,7"

End If

 

Där frågetecknen är så vet jag inte vad det ska vara. Och sedan vad det ska vara över koden? Private Sub Boxsort_Afterupdate() eller vad det kan vara?

 

Problem nummer 2.

 

Jag har ett formulär med ett underformulär, båda dessa har en ruta som heter artikelnummer, jag skulle om det funkar så det så att om jag söker på ett artikelnummer i formuläret så kommer samma artikelnummer upp i underformuläret automatiskt?

 

Tack på förhand!

//Berg

[MickeF]

 Private Sub Boxsort_AfterUpdate()
Select Case Boxsort
	Case "0461": Vikt = 1.8
	Case "0462": Vikt = 2.7
	Case Else: Vikt = Null
End Select
End Sub