Private Sub Komut2_Click()
On Error GoTo Err_Komut2_Click
Dim stDocName As String
stDocName = ChrW(118) & ChrW(97) & ChrW(114) & ChrW(115) & ChrW(97) & ChrW(121) & ChrW(305) & ChrW(108) & ChrW(97) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(110) & ChrW(101) & ChrW(109) & ChrW(115) & ChrW(111) & ChrW(114) & ChrW(103) & ChrW(117) & ChrW(115) & ChrW(117)
Docmd.Setwarnings False
If MsgBox("sorgu çalışsınmı", vbYesNo, "Kur@l") = vbYes Then
DoCmd.OpenQuery stDocName, acNormal, acEdit
end if
Docmd.Setwarnings True
Exit_Komut2_Click:
Exit Sub
Err_Komut2_Click:
MsgBox Err.Description
Resume Exit_Komut2_Click
End Sub
Aşağıdaki gibi kullanın....
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.