[ viktorce @ 25.08.2009. 12:53 ] @
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
[ smal @ 25.08.2009. 13:03 ] @
Citat:
viktorce: gde je greska tu hocu da mi otvori isti broj mase ?

Code:
DoCmd.OpenForm strFormName, View, strWhere


Nedostaje još jedan zarez, tj. ovde treba da stoji:
Code:
DoCmd.OpenForm strFormName, View, , strWhere
[ viktorce @ 25.08.2009. 13:26 ] @
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
[ viktorce @ 25.08.2009. 23:12 ] @
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?