Just nu i M3-nätverket
Jump to content

Val i meddelanderuta Access


Martassen

Recommended Posts

Har gjort ett makro instruktionerna
Meddelanderuta med text "Formulär kommer nu öppnas".
Öppna formulär

 

 

Hur fixar man i meddelanderutan så man kan välja Ok och Avbryt? Alternativt Ja/nej?
Trycker man ja så ska formuläret öppnas. Trycker man nej öppnas inget och det avbryts så att säga.

 

Link to comment
Share on other sites

Function ja(fraga$) As Integer
ja = MsgBox(fraga, vbYesNo, "Fråga") = vbYes
End Function

Function ok(fraga$) As Integer
ok = MsgBox(fraga, vbOKCancel, "Fråga") = vbOK
End Function


Sub Testa()
If ok("Öppna formulär?") Then
DoCmd.OpenForm "Formulär1"
End If
End Function
Det går att göra motsvarande som ett makro.
Link to comment
Share on other sites

Ok!
Hur ser makrot ut om man ska göra detta?

 

Jag håller på försöker:

Instruktionen "Om".
Skriver Meddelanderuta("Öppna formuläret?;"1)=2
Därefter instruktionen Avbryt händelse
Därefter instruktionen Öppna formulär

 

Tack på förhand för hjälp!

Link to comment
Share on other sites

Kan hända jag fått det funka!?

 

Se bild.

 

ser det ok ut? Behövs Avbryt händelse?

 

Vad betyder första raden?. Hade tidigare en 2:a istället vilket inte funka men ändrade det till nedan:
Testade men ej säker på logiken i denna rad:

Meddelanderuta("Öppna formuläret?";1)=1

 

Trycker jag Avbryt öppnas ej formuläret. Trycker jag Ok öppnas det. Verkar det som iallafall.
 

 

Link to comment
Share on other sites

Har själv bara använt makron till väldigt enkla saker så där kommer jag inte ge några råd.

 

Tycker att VBA är så mycket mer flexibelt och kraftfullare.

Link to comment
Share on other sites

Ok gjordet om det till VBA. Vad betyder det nedan och vad står siffrorna för?
(MsgBox("Öppna formuläret?", 1) = 1) Then
DoCmd.CancelEvent
DoCmd.OpenForm "frmProdukt", acNormal, "", "", acAdd, acNormal
End If


 

Function makro()If (MsgBox("Öppna formuläret?", 1) = 1) Then
        DoCmd.CancelEvent
        DoCmd.OpenForm "frmProdukt", acNormal, "", "", acAdd, acNormal
    End If
On Error GoTo makro_Err

    


mcrmakro_Exit:
    Exit Function

mcrmakro_Err:
    MsgBox Error$
    Resume mcrmakro_Exit

End Function
Link to comment
Share on other sites

och gällande din kod:
Vad menas med (fraga$)?

 

och hur får man formuläret att öppnas i Läggtill läge med koden nedan? Overkill lägga in?:
acNormal, "", "", acAdd, acNormal. Se nedan:
 

Function ja(fraga$) As Integer
    ja = MsgBox(fraga, vbYesNo, "Fråga") = vbYes
End Function

Function ok(fraga$) As Integer
    ok = MsgBox(fraga, vbOKCancel, "Fråga") = vbOK
End Function


Sub Testa()
     If ok("Öppna formulär?") Then
        DoCmd.OpenForm "frmProdukt", acNormal, "", "", acAdd, acNormal
    End If
End Function

 

Link to comment
Share on other sites

Jag får inte till följande kod:

Jag har ritat upp en knapp. Vilken av rutinerna nedan ska jag lägga under "on click" eventet?. Jag vill dessutom att frmProdukt öppnas i läggtilläge.

Function ja(fraga$) As Integer
    ja = MsgBox(fraga, vbYesNo, "Fråga") = vbYes
End Function

Function ok(fraga$) As Integer
    ok = MsgBox(fraga, vbOKCancel, "Fråga") = vbOK
End Function


Sub Testa()
    If ok("Öppna formulär?") Then
        DoCmd.OpenForm "frmProdukt"
    End If
End Function
Link to comment
Share on other sites

Har nu ritat en knapp i ett formulär och vid "klickning" la jag in och den verkar göra så frmprodukt öppnas i läggtill-läge.
 

Private Sub Kommandoknapp102_Click()
If ok("Öppna formulär?") Then
        DoCmd.OpenForm "frmProdukt", acNormal, "", "", accAdd, acNormal
    End If
End Sub

Är denna raden för mycket om få formuläret i läggtill-läge?

DoCmd.OpenForm "frmProdukt", acNormal, "", "", accAdd, acNormal
Link to comment
Share on other sites

Räcker det inte med följande och skippa de två functions?

Private Sub Kommandoknapp20_Click()
If MsgBox("Öppna frmprodukt", vbOKCancel) = vbOK Then
DoCmd.OpenForm "frmprodukt", acNormal, "", "", acFormAdd
End If
End Sub
Link to comment
Share on other sites

Är denna raden för mycket om få formuläret i läggtill-läge?

DoCmd.OpenForm "frmProdukt", acNormal, "", "", accAdd, acNormal

 

Bara acAdd behövs. Övriga parametrar kan lämnas blanka då angivna värden är defaultvärdena.

 

Detta räcker alltså:

DoCmd.OpenForm "frmProdukt", , , , acAdd
OBS du har stavat acAdd med två cc (accAdd)

 

PS Övriga frågor verkar du ha hittat svaren på själv :) DS

Link to comment
Share on other sites

(fraga$)

är en kortvariant av

(fraga AS String)

 

D.v.s en deklaration som säger att funktionen ska ha en parameter av typen sträng.

Link to comment
Share on other sites

Kanon Micke!

Ok sista funderingarna:
Och vad fasen betyder själva kommatecknen? Är det att man kan lägga till 4 varianter till? :-)

 

DoCmd.OpenForm "frmProdukt", , , , acAdd

och vad betyder detta?

If (MsgBox("Öppna formuläret?", 1) = 1) Then
If (MsgBox("Öppna formuläret?", 1) = 2) Then


 

Link to comment
Share on other sites

Kanon Micke!

Ok sista funderingarna:

Och vad fasen betyder själva kommatecknen? Är det att man kan lägga till 4 varianter till? :-)

 

 

DoCmd.OpenForm "frmProdukt", , , , acAdd

 

Nej det är bara plats för andra typer av värden som kan skickas till funktionen Msgbox

När man utelämnar värden mellan kommatecknen så betyder det att default värdena kommer användas.

I det här fallet har två av parametrarna skickats med:

Den första som är formulärnamnet "frmProdukt".

Den femte som betyder att formuläret ska öppnas i inmatningsläge.

Parametrar 2, 3 och 4 har utelämnats. Tidigare så var det ändå bara defaultvärden du skickade med där.

 

Koden blir mycket enklare att läsa men fungerar ändå på precis samma sätt.

Link to comment
Share on other sites

och vad betyder detta?

If (MsgBox("Öppna formuläret?", 1) = 1) Then
If (MsgBox("Öppna formuläret?", 1) = 2) Then

 

Det är samma som

If (MsgBox("Öppna formuläret?", vbOKCancel) = vbOK) Then
If (MsgBox("Öppna formuläret?", vbOKCancel) = vbCancel) Then
vbOkCancel är bara en konstant som har värdet 1

Även vbOk är en konstant som har värdet 1

och vbCancel=2.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...