pojavjanje greska where conditions

gde je greska tu hocu da mi otvori isti broj mase ?
Dim strWhere As String
Dim strFormName As String

strFormName = "For_Detali_Smetki"
strWhere = " [Masa]='" & Me.[Masa] & "'"
DoCmd.OpenForm strFormName, View, strWhere

Potpis

viktorce

Nedostaje još jedan zarez, tj. ovde treba da stoji:

da sada radi to ali otvara samo prvi broj evo ti primer pa pgledaj
http://www.icentar.com/attachm...chmentid=4720&d=1251203073
otvori for_vlez_smetki i gde pise masa u texy box upisi neki broj bilo koj videces sta je problem

Potpis

viktorce

Private Sub Masa_AfterUpdate()
If IsNull(Me.Sifrata) Or Me.Masa = "" Then
MsgBox "Nemate Vneseno Kelner", vbCritical, "Greska"
Exit Sub
End If
If Me.Masa.Value = (DLookup("Masa", "Tbl_Masi_Arhiva", "Masa='" & Me.Masa & "'")) And (Me.Masa <> "afad") Then

DoCmd.OpenForm "For_Smetki", , , "Masa = '" & "" & Masa & "" & "'", acFormEdit
Else
DoCmd.OpenForm "For_Smetki", , , "Masa = '" & "" & Masa & "" & "'", acFormEdit
DoCmd.GoToRecord , , acNewRec
End If
End Sub




a kod ovaj kod gde je greska?

Potpis

viktorce